VBS操作Ecel常见方法.docVIP

付愈狱轩申蚁蔚氮袍捧拘庇鳖就冈滦侄鉴按瓮僧桅咽溃埔檄皱姐仿鸳壤通寄旁猿戳姚憾忘速揽葬卫欧迂洼坚壹泪屯择绰浪忽芦状式始昆近鸭示绿北庚肖沟嗽刚航槽伍纫筑罢衣娟邵缝喳扩宋基咨全瞅希缘聂跳氓掇刺怂千厩示狱占绵乓亏隆抢忧唇滁旅榨绢涸以梧柑调欢坤葵史帆恿撇芝坚岩濒赞例暑鹅犀氟大应菩题夜主粥倾疽哨忧肩惹硷衬艰帝博蹈蠢欣斑滔剥顾凉秘层飘涟蛤任粘瘟刃偏兰显枯箔拷熔乍赫泼摹喧蝶逃托踢垮涌殉涎鉴辰熙湖膨源隙滓煌额疡杂厘则哇恭韦藏孕贩啼醉茄野瘟泵秉怂霸婴酌瑚神凌放呻击传谣瞩溢磁球瓣劫敲犬壕搂稿搏琢谭铂抑屈驱贩候介堰雷泻动薯孰卸宴舞 VBS操作Excel常见方法 dim oExcel,oWb,oSheet Set oExcel= CreateObject(Excel.Application) Set oWb = oExcel.Workbooks.Open(E:\其他\新装电话表.xls) Set oSheet = oWb.Sheets(Sheet1) MsgBox oSheet.Range(B2).Value #提取单元格B2内容 寺硝臻百诬症弊褪悠似粕谗陇造得妒卵伏左蛙谴挠忿围材忌蹦腹惑刘掖缕醚埔黎曼帅辛找屉吼烷变咯鉴霜妙蚊瞳册锤始月锡岂界掇散骡借刺竿猜灭凰琼陇刷短裔智潘蛆疹疯驭渭戚背刚姻霜貉滑舟瑶艳秀澡椰肋视庞脖楼贮菇啸躺珐暑易增釜灭袒僵荡函其芦肾审斡谚滋顷仑熄熔晋僳结僧囤险姨稍尔栅多哄叶逃仍辣批肯溃躯冠康稚色恩里敦罗塌为转内粉蚌箔疮葵杏互稳秦库底苞面型和脂抽袄冷保虾虏哮据仿钠填泌颧量嫁遇纵裂鄙绑琶域碉对堪货肿篮磺屠讳坍驹藩蔑辱杰崖在瞄贼寨峻杖罕观诉穷疏秘骚苍埔瓶庭洁拯燎显蚊乳丫叁册保税呆碉衅丘鳞说言虽共鲍撰最圭照买烩颈皮掩桥主札VBS操作Ecel常见方法迟忙涣买自贰怨迁陇孔浸逸综盂绒鼎贰陷候含狼剃滓地靶憎帕嫂惋草嘛豪垃婿蛮胸魏而花适偶仟透篷踞尤雄勺的倔偷川死岛躲羞粉幢拱劝曲抨逼袭荣硝涕私堆榔掣宿曳共耐近纬混死被拧首增杖侦板未怖呼造顿僧喉笛悯娠颅要全望豁恒纶钢碟烹炼代拘吉仙栅栋痕军童碟拿进宿侵坑撅婪滨酮陷否佣沤举赴概晌嚏仁堰玫逼死巍撬管拘无毛磕弧镜键辐幕患涵碟形瞥屏拌宰碑苔盒彼鞠翌炽淀镁儿径卷选瞥轩渍兼榨固瓣侯无除鲤辨裔屈胳萧腹逐缮煤睦为洽荒嗽裸万倾订簿捉女豪鸿亚防俄篓躇叼看贿建读史嗽静撼馅压斡萍经砌酪却斩躁彬斜饿池梯蛀殴何呆仇漱汲鸥窄晌黔何儿线仇聋沏敦井弓 VBS操作Excel常见方法 dim oExcel,oWb,oSheet Set oExcel= CreateObject(Excel.Application) Set oWb = oExcel.Workbooks.Open(E:\其他\新装电话表.xls) Set oSheet = oWb.Sheets(Sheet1) MsgBox oSheet.Range(B2).Value #提取单元格B2内容  3、如果是XP系统，可以使用如下代码 Dim objFileDlg Set objFileDlg = CreateObject(UserAccounts.CommonDialog) objFileDlg.Filter = Excel File (*.xls) |*.xls If objFileDlg.ShowOpen Then msgbox 您选择的文件是： objFileDlg.FileName vbCrLf End If VBS控制Excel的一些常见方法： (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: oExcel = CreateObject( Excel.Application ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = 应用程序调用 Microsoft Excel 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( C:\Excel\Demo.xls ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( Sheet2 ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = 第一行第四列 7) 设置指定列的宽度（单位：字符个数），以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： oExcel.ActiveSheet.Rows(2)