程序在一個EXCEL表中，設(shè)為SheetA，打開一個EXCEL文件后增加一個工作表，設(shè)為SheetB。還要用到一張基價(jià)表，設(shè)為SheetC,下面的代碼展示了如何打開EXCEL文件，并進(jìn)行三者之間的操作，希望給有此需求的人予幫助。對某張表進(jìn)行操作，只需冠以詞頭SheetX即可。

Dim strDeskTop, LB, SD, CX As String ''類別，深度 標(biāo)識 查詢Dim SheetA, SheetB, SheetC As WorksheetDim ZBFileName, mFileName, FilePath As StringDim ZB, DZB As WorkbookstrDeskTop = CreateObject("WScript.Shell").SpecialFolders("Desktop") ''系統(tǒng)桌面Application.DefaultFilePath = strDeskTop ''設(shè)置默認(rèn)路徑ZBFileName = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx;*.xlsm", , "分層數(shù)據(jù)一覽表")If ZBFileName = "False" ThenCloseExit SubEnd IfSet ZB = Workbooks.Open(ZBFileName, , True) ''打開待查找的表，只讀為真Set SheetA = ZB.Worksheets(1) ''或者分層數(shù)據(jù)一覽表ZB.Sheets.Add After:=Sheets(Sheets.Count)ZB.Sheets(Sheets.Count).SelectZB.Sheets(Sheets.Count).Name = "巖土類別統(tǒng)計(jì)"Set SheetB = ZB.Worksheets("巖土類別統(tǒng)計(jì)") ''工作表Set SheetC = ThisWorkbook.Worksheets("基價(jià)表")

總結(jié)

以上是生活随笔為你收集整理的VBA打开一个EXCEL文件并在二个文件之间来回操作的代码的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。