VBA打开一个EXCEL文件并在二个文件之间来回操作的代码

程序在一个EXCEL表中，设为SheetA，打开一个EXCEL文件后增加一个工作表，设为SheetB。还要用到一张基价表，设为SheetC,下面的代码展示了如何打开EXCEL文件，并进行三者之间的操作，希望给有此需求的人予帮助。对某张表进行操作，只需冠以词头SheetX即可。

   Dim strDeskTop, LB, SD, CX As String   ''类别，深度 标识 查询
   Dim SheetA, SheetB, SheetC As Worksheet
   Dim ZBFileName, mFileName, FilePath As String
   Dim ZB, DZB As Workbook

     strDeskTop = CreateObject("WScript.Shell").SpecialFolders("Desktop")   ''系统桌面
     Application.DefaultFilePath = strDeskTop      ''设置默认路径
     ZBFileName = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx;*.xlsm", , "分层数据一览表")

     If ZBFileName = "False" Then
         Close
         Exit Sub
     End If

     Set ZB = Workbooks.Open(ZBFileName, , True)    ''打开待查找的表，只读为真

    Set SheetA = ZB.Worksheets(1)     ''或者分层数据一览表
      
    ZB.Sheets.Add After:=Sheets(Sheets.Count)
    ZB.Sheets(Sheets.Count).Select
    ZB.Sheets(Sheets.Count).Name = "岩土类别统计"
    
    Set SheetB = ZB.Worksheets("岩土类别统计")    ''工作表
    
    Set SheetC = ThisWorkbook.Worksheets("基价表")