VBS操作Excel常見(jiàn)方法

文檔從互聯(lián)網(wǎng)中收集， 已重新修正排版，文檔從互聯(lián)網(wǎng)中收集， 已重新修正排版，word格式支持編輯，如有幫助歡迎下載支持IwordIword格式支持編輯，如有幫助歡迎下載支持。VBS操作Excel常見(jiàn)方法dimoExcel,oWb,oSheetSetoExcel=CreateObject("Excel.Application")SetoWb="E:\其他'新裝電話表.xls")SetoSheet=oWb.Sheets("Sheet1")MsgBoxoSheet.Range("B2").Value'#提取單元格B2內(nèi)容' 3、如果是XP系統(tǒng)，可以使用如下代碼DimobjFileDlgSetobjFileDlg=CreateObject("UserAccounts.CommonDialog")objFileDlg.Filter="ExcelFile(*.xls)|*.xls"IfobjFileDlg.ShowOpenThenmsgbox"您選擇的文件是："&objFileDlg.FileName&vbCrLfEndIfVBS控制Excel的一些常見(jiàn)方法：(一)使用動(dòng)態(tài)創(chuàng)建的方法首先創(chuàng)建Excel對(duì)象，使用ComObj:oExcel=CreateObject("Excel.Application")顯示當(dāng)前窗口：oExcel.Visible=True更改Excel標(biāo)題欄：oExcel.Caption="應(yīng)用程序調(diào)用MicrosoftExcel"添加新工作簿：打開(kāi)已存在的工作簿："C:\Excel\Demo.xls")設(shè)置第2個(gè)工作表為活動(dòng)工作表：oExcel.WorkSheets(2).Activate或oExcel.WorksSheets("Sheet2").Activate給單元格賦值：oExcel.Cells(1,4).Value="第一行第四列"設(shè)置指定列的寬度(單位：字符個(gè)數(shù))，以第一列為例：=58)設(shè)置指定行的高度(單位：磅)(1磅=0.035厘米)，以第二行為例:=1/0.035'1厘米在第8行之前插入分頁(yè)符：oExcel.WorkSheets(1).Rows(8).PageBreak=1在第8列之前刪除分頁(yè)符：=0指定邊框線寬度："B3:D4").Borders(2).Weight=31-左2-右3-頂4-底5-斜(\)6-斜(/)清除第一行第四列單元格公式：,4).ClearContents設(shè)置第一行字體屬性：="隸書(shū)"=clBlue=True=True進(jìn)行頁(yè)面設(shè)置：a.頁(yè)眉：="報(bào)表演示"b.頁(yè)腳：="第&P頁(yè)"c.頁(yè)眉到頂端邊距2cm：=2/0.035d.頁(yè)腳到底端邊距3cm：=3/0.035e.頂邊距2cm：=2/0.035f.底邊距2cm：=2/0.035g.左邊距2cm：=2/0.035h.右邊距2cm：=2/0.035i.頁(yè)面水平居中：=2/0.035j.頁(yè)面垂直居中：=2/0.035k.打印單元格網(wǎng)線：=True拷貝操作：a.拷貝整個(gè)工作表：b.拷貝指定區(qū)域："A1:E2").Copyc.從A1位置開(kāi)始粘貼："A1").PasteSpeciald.從文件尾部開(kāi)始粘貼：插入一行或一列：a.b.刪除一行或一列：a.b.打印預(yù)覽工作表：打印輸出工作表：工作表保存：ifnotthen工作表另存為：oExcel.SaveAs("C:\Excel\Demo1.xls")放棄存盤(pán)：=True關(guān)閉工作簿：退出Excel：oExcel.Quit(二)使用VBS控制Excle二維圖1)選擇當(dāng)?shù)谝粋€(gè)工作薄第一個(gè)工作表setoSheet=oExcel.Workbooks(1).Worksheets(1)2)增加一個(gè)二維圖achart=,100,200,200)3)選擇二維圖的形態(tài)4)給二維圖賦值setseries=range="sheet1!r2c3:r3c9"series.addrange,true5)加上二維圖的標(biāo)題"Excle二維圖"6)改變二維圖的標(biāo)題字體大小7)給二維圖加下標(biāo)說(shuō)明,xlPrimary).HasTitle=True,xlPrimary).="下標(biāo)說(shuō)明"8)給二維圖加左標(biāo)說(shuō)明,xlPrimary).HasTitle=True,xlPrimary).="左標(biāo)說(shuō)明"9)給二維圖加右標(biāo)說(shuō)明,xlSecondary).HasTitle=True,xlSecondary).="右標(biāo)說(shuō)明"10)改變二維圖的顯示區(qū)大小=5=223=108如何用vbs把excel的單元格數(shù)據(jù)寫(xiě)到txt復(fù)制代碼代碼如下：If>0ThenFilename=WScript.Arguments(O)Seta=CreateObject("Excel.Application")IfFilename=""ThenFilename=a.GetOpenFilename("ExcelFiles(*.xls),*.xls")IfVarType(Filename)=vbBooleanThenMsgBox"Excel2Txt用于將Excel文件的每個(gè)Sheet保存為一個(gè)文本文件。"&vbCr&vbLf&vbCr&vbLf&"用法:Excel2Txtfilename.xls或在對(duì)話框中打開(kāi)Excel文件?！盬Script.QuitEndIfEndIfSetw=n=Replace(Replace(w.Name,".xls",""),".XLS","")a.DisplayAlerts=FalseForEachsInw.Sheetss.SaveAsw.Path&"\"&n&"_"&s.Name&".txt",20Nexta.Quit把以上代碼存為Excel2Txt.vbs雙擊執(zhí)行就行了VBS操作Excel復(fù)制代碼代碼如下：SetobjExcel=CreateObject("Excel.Application")'建一個(gè)exel對(duì)象SetobjWorkbook=_("E:\DOC\Hewl\領(lǐng)域模型.xls")'打開(kāi)文件strToBeWrited=" "&vbcrlf&"--GeneratedbyScriptGenerator"&vbcrlf& " "&vbcrlf&vbcrlfCount= '取sheet數(shù)量Setmy=CreateObject("Excel.Sheet")'新建sheet對(duì)象ForEachmyInobjWorkbook.WorkSheets'遍歷sheetIfmy.Name="目錄"ormy.Name="SecondHandHouse"Then'donothingElse'Wscript.Echomy.Name'獲得sheet名字'Wscript.Echo'strToBeWrited=strToBeWrited&"createtable"&my.Name&vbcrlfstrToBeWrited=strToBeWrited&"/*==============================================================*/"&vbcrlfstrToBeWrited=strToBeWrited&"/*Table:"&my.Name&"*/"&vbcrlfstrToBeWrited=strToBeWrited&"/*==============================================================*/"&vbcrlfstrToBeWrited=strToBeWrited&"createtable"&my.Name&"("&vbcrlfrowNum=3DoUntilmy.Cells(rowNum,1).Value=""'Wscript.Echo"sAMAccountName:"&my.Cells(rowNum,2).ValuestrToBeWrited=strToBeWrited&""&my.Cells(rowNum,2).Value&""&my.Cells(rowNum,3).Value&"notnull"Ifnotmy.Cells(rowNum,9).Value=""ThenstrToBeWrited=strToBeWrited&"default"&my.Cells(rowNum,9).ValueEndIfstrToBeWrited=strToBeWrited&","&vbcrlfrowNum=rowNum+1LoopstrToBeWrited=strToBeWrited&"constraintPK_"&my.Name&"primarykey(id)"&vbcrlfstrToBeWrited=strToBeWrited&")"&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNextForEachmyInobjWorkbook.WorkSheets'遍歷sheetIfmy.Name="目錄"ormy.Name="SecondHandHouse"Then'donothingElsestrToBeWrited=strToBeWrited&"constraintPK_"&my.Name&primarykey(id)"&vbcrlfstrToBeWrited=strToBeWrited&")"&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNext'寫(xiě)文件setfs=createobject("scripting.filesystemobject")setf=fs.opentextfile("E:\DOC\Hewl\dbscript.sql",2,true)'Wscript.EchostrToBeWritedf.writestrToBeWritedf.closeSetf=nothingSetfs=nothingobjExcel.Quit'結(jié)束退出復(fù)制代碼代碼如下：DimExcelSetExcel=CreateObject("Excel.Application")'不顯示提示信息,這樣保存的時(shí)候就不會(huì)提示是否要覆蓋原文件Excel.DisplayAlerts=FALSE'調(diào)用EXCEL文件的時(shí)候不顯示Excel.visible=FALSE"D:\test.XLS")'將sheetl設(shè)置為活動(dòng)sheetExcel.workbooks(1).activate’插入行，這條我找MSDN都沒(méi)找到，最后亂試試出來(lái)的,1).Value=Date,2).Value="row1",3).Value="comment1",1).Value=Date,4).Value="row2",7).Value="comment2"Excel.saveExcel.quitSetExcel=Nothing不用找MSDN，在EXCEL幫助中就能找到，看“編程信息”/“MicrosoftExcelVisualBasic參考”/“屬性”/“Q-R”/“Rows屬性”的介紹，和“編程信息”/“MicrosoftExcelVisualBasic參考”/“方法”/“I-L”/“Insert方法”的介紹，就能明白這條語(yǔ)句的語(yǔ)法。因?yàn)樵贓XCEL