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

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。