VBS操作Excel常見方法

1、VBS操作Excel常見方法dimoExcel,oWb,oSheetSetoExcel=CreateObject(Excel.Application)SetoWb=oExcel.Workbooks.Open(E:其他新裝電話表.xls)SetoSheet=oWb.Sheets(Sheet1)MsgBoxoSheet.Range(B2).Value#提取單元格B2內(nèi)容3、如果是XP系統(tǒng)，可以使用如下代碼DimobjFileDlgSetobjFileDlg=CreateObject(UserAccounts.CommonDialog)objFileDlg.Filter=ExcelFile(*.xl

2、s)|*.xlsIfobjFileDlg.ShowOpenThenmsgbox您選擇的文件是：&objFileDlg.FileName&vbCrLfEndIfVBS控制Excel的一些常見方法：(一)使用動(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添加新工作簿：oExcel.WorkBooks.Add打開已存在的工作簿：oExcel.WorkBooks.Open(C

3、:ExcelDemo.xls)設(shè)置第2個(gè)工作表為活動(dòng)工作表：oExcel.WorkSheets(2).Activate或oExcel.WorksSheets(Sheet2).Activate給單元格賦值：oExcel.Cells(1,4).Value=第一行第四列設(shè)置指定列的寬度(單位：字符個(gè)數(shù))，以第一列為例：oExcel.ActiveSheet.Columns(1).ColumnsWidth=5設(shè)置指定行的高度(單位：磅)(1磅=0.035厘米)，以第二行為例：oExcel.ActiveSheet.Rows(2).RowHeight=1/0.0351厘米在第8行之前插入分頁(yè)符：oExcel

4、.WorkSheets(1).Rows(8).PageBreak=1在第8列之前刪除分頁(yè)符：oExcel.ActiveSheet.Columns(4).PageBreak=0指定邊框線寬度：oExcel.ActiveSheet.Range(B3:D4).Borders(2).Weight=31-左2-右3-頂4-底5-斜()6-斜(/)清除第一行第四列單元格公式：oExcel.ActiveSheet.Cells(1,4).ClearContents設(shè)置第一行字體屬性：oExcel.ActiveSheet.Rows(1).Font.Name=隸書oExcel.ActiveSheet.Rows(1

5、).Font.Color=clBlueoExcel.ActiveSheet.Rows(1).Font.Bold=TrueoExcel.ActiveSheet.Rows(1).Font.UnderLine=True14)進(jìn)行頁(yè)面設(shè)置：頁(yè)眉：oExcel.ActiveSheet.PageSetup.CenterHeader=報(bào)表演示頁(yè)腳：oExcel.ActiveSheet.PageSetup.CenterFooter=第&P頁(yè)頁(yè)眉到頂端邊距2cm:oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035頁(yè)腳到底端邊距3cm：oExcel.ActiveSh

6、eet.PageSetup.HeaderMargin=3/0.035頂邊距2cm：oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035底邊距2cm：oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035左邊距2cm：oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035右邊距2cm：oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035頁(yè)面水平居中：oExcel.ActiveSheet.PageSetup.CenterHorizo

7、ntally=2/0.035頁(yè)面垂直居中：oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035打印單元格網(wǎng)線：oExcel.ActiveSheet.PageSetup.PrintGridLines=True拷貝操作：拷貝整個(gè)工作表：oExcel.ActiveSheet.Used.Range.Copy拷貝指定區(qū)域：oExcel.ActiveSheet.Range(A1:E2).Copy從A1位置開始粘貼：oExcel.ActiveSheet.Range.(A1).PasteSpecial從文件尾部開始粘貼：oExcel.ActiveSheet

8、.Range.PasteSpecial插入一行或一列：oExcel.ActiveSheet.Rows(2).InsertoExcel.ActiveSheet.Columns(1).Insert刪除一行或一列：a.oExcel.ActiveSheet.Rows(2).Deleteb.oExcel.ActiveSheet.Columns(1).Delete打印預(yù)覽工作表：oExcel.ActiveSheet.PrintPreview打印輸出工作表：oExcel.ActiveSheet.PrintOut工作表保存：ifnotoExcel.ActiveWorkBook.SavedthenoExcel.

9、ActiveSheet.PrintPreview工作表另存為：oExcel.SaveAs(C:ExcelDemo1.xls)放棄存盤：oExcel.ActiveWorkBook.Saved=True關(guān)閉工作簿：oExcel.WorkBooks.Close退出Excel：oExcel.Quit(二)使用VBS控制Excle二維圖選擇當(dāng)?shù)谝粋€(gè)工作薄第一個(gè)工作表setoSheet=oExcel.Workbooks(1).Worksheets(1)增加一個(gè)二維圖achart=oSheet.chartobjects.add(100,100,200,200)選擇二維圖的形態(tài)achart.chart.cha

10、rttype=4給二維圖賦值setseries=achart.chart.seriescollectionrange=sheet1!r2c3:r3c9series.addrange,true加上二維圖的標(biāo)題achart.Chart.HasTitle=Trueachart.Chart.ChartTitle.Characters.Text=Excle二維圖改變二維圖的標(biāo)題字體大小achart.Chart.ChartTitle.Font.size=18給二維圖加下標(biāo)說明achart.Chart.Axes(xlCategory,xlPrimary).HasTitle=Trueachart.Chart.

11、Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text=下標(biāo)給二維圖加左標(biāo)說明achart.Chart.Axes(xlValue,achart.Chart.Axes(xlValue,9)給二維圖加右標(biāo)說明achart.Chart.Axes(xlValue,achart.Chart.Axes(xlValue,10)改變二維圖的顯示區(qū)大小xlPrimary).HasTitle=TruexlPrimary).AxisTitle.Characters.Text=左標(biāo)說明xlSecondary).HasTitle=TruexlSecondary).Axi

12、sTitle.Characters.Text=右標(biāo)說achart.Chart.PlotArea.Left=5achart.Chart.PlotArea.Width=223achart.Chart.PlotArea.Height=108如何用vbs把excel的單元格數(shù)據(jù)寫到txt復(fù)制代碼代碼如下：IfWScript.Arguments.Count0ThenFilename=WScript.Arguments(0)Seta=CreateObject(Excel.Application)IfFilename=ThenFilename=a.GetOpenFilename(ExcelFiles(*.x

13、ls),*.xls)IfVarType(Filename)=vbBooleanThenMsgBoxExcel2Txt用于將Excel文件的每個(gè)Sheet保存為一個(gè)文本文件。&vbCr&vbLExcel2Txtfilename.xls或在對(duì)話框中打開Excel文件。WScript.QuitEndIfEndIfSetw=a.Workbooks.Open(Filename)n=Replace(Replace(w.Name,.xls,),.XLS,)a.DisplayAlerts=FalseForEachsInw.Sheetss.SaveAsw.Path&n&_&s.Name&.txt,20Nexta

14、.Quit把以上代碼存為Excel2Txt.vbs雙擊執(zhí)行就行了VBS操作Excel復(fù)制代碼代碼如下：SetobjExcel=CreateObject(Excel.Application)建個(gè)exel對(duì)象SetobjWorkbook=objExcel.Workbooks.Open_(E:DOCHewl領(lǐng)域模型.xls)打開文件strToBeWrited=&vbcrlf&_-GeneratedbyScriptGenerator&vbcrlf&_&vbcrlf&vbcrlfCount=objWorkbook.WorkSheets.Count取sheet數(shù)量Setmy=CreateObject(Ex

15、cel.Sheet)新建sheet對(duì)象ForEachmyInobjWorkbook.WorkSheets遍歷sheetIfmy.Name=目錄ormy.Name=SecondHandHouseThendonothingElseWscript.Echomy.Name獲得sheet名字Wscript.Echomy.Rows.CountstrToBeWrited=strToBeWrited&createtable&my.Name&vbcrlfstrToBeWrited=strToBeWrited&/*=&vbcrlfstrToBeWrited=strToBeWrited&/*Table:&my.Na

16、me&*/&vbcrlfstrToBeWrited=strToBeWrited&/*=&vbcrlfstrToBeWrited=strToBeWrited&createtable&my.Name&(&vbcrlfrowNum=3DoUntilmy.Cells(rowNum,1).Value=Wscript.EchosAMAccountName:&my.Cells(rowNum,2).ValuestrToBeWrited=strToBeWrited&my.Cells(rowNum,2).Value&mynotnullIfnotmy.Cells(rowNum,9).Value=ThenstrToB

17、eWrited=strToBeWrited&default&my.Cells(rowNum,9).ValueEndIfstrToBeWrited=strToBeWrited&,&vbcrlfrowNum=rowNum+1LoopstrToBeWrited=strToBeWrited&constraintPK_&my.Name&primarykstrToBeWrited=strToBeWrited&)&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNextForEachmyInobjWorkbook.WorkSheets遍歷sheetIfmy.Name

18、=目錄ormy.Name=SecondHandHouseThendonothingElsestrToBeWrited=strToBeWrited&constraintPK_&my.Name&primarykstrToBeWrited=strToBeWrited&)&vbcrlfEndIfstrToBeWrited=strToBeWrited&vbcrlfNext寫文件setfs=createobject(scripting.filesystemobject)setf=fs.opentextfile(E:DOCHewldbscript.sql,2,true)Wscript.EchostrToBe

19、Writedf.writestrToBeWritedf.closeSetf=nothingSetfs=nothingobjExcel.Quit結(jié)束退出復(fù)制代碼,代碼如下：DimExcelSetExcel=CreateObject(Excel.Application)不顯示提示信息,這樣保存的時(shí)候就不會(huì)提示是否要覆蓋原文件Excel.DisplayAlerts=FALSE調(diào)用EXCEL文件的時(shí)候不顯示Excel.visible=FALSEExcel.workbooks.open(D:test.XLS)將sheetl設(shè)置為活動(dòng)sheetExcel.workbooks(1).activate插入行，

20、這條我找MSDN都沒找到，最后亂試試出來的Excel.ActiveSheet.rows(1).insertExcel.ActiveSheet.Cells(1,1).Value=DateExcel.ActiveSheet.Cells(1,2).Value=row1Excel.ActiveSheet.Cells(1,3).Value=comment1Excel.ActiveSheet.rows(2).insertExcel.ActiveSheet.Cells(2,1).Value=DateExcel.ActiveSheet.Cells(2,4).Value=row2Excel.ActiveShee

21、t.Cells(2,7).Value=comment2Excel.saveExcel.quitSetExcel=NothingExcel.ActiveSheet.rows(1).insert不用找MSDN,在EXCEL幫助中就能找至U，看“編程信息”/“MicrosoftExcelVisualBasic性”的介紹，和“編程信息”/“MicrosoftExcelVisualBasic參考”/“方法”/“I-L”/“Ins，的語(yǔ)法。因?yàn)樵贓XCEL的VBA中,“Rows”、“Columns”、“Cells”屬性返回的都是Range對(duì)象，所以對(duì)用。例如：你在EXCEL的VBA編輯器中可以這樣寫cells(1,1).value=abccells(1,1).wraptext=false在寫這些語(yǔ)句時(shí)，你應(yīng)該注意到，在寫完“cells(1,1).”之后，并沒有彈出應(yīng)該彈出的屬性/方法列行。我的方法是：在EXCEL中錄制宏，然后在EXCEL的VBA編輯器中修改語(yǔ)句，調(diào)試運(yùn)行無誤后再粘一、聲明變量聲明為整型變量聲