將變量從多個工作簿傳遞到一個工作簿

Question

我正在使用Excel的Visual Basic打開另一個工作簿，並將某些東西從一個傳遞到另一個。 我已經打開了第二個文件，但是我無法獲取第二個文件來讀取所需的內容。

Sub createExcel()
Cells(1, 1).Text = "va02"
Dim objExcel
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Open(filepath)
    End Sub

這是我打開第二個應用程序的代碼。 我在第一個工作簿的2個單元中有2個變量。 如何獲得變量。 我遇到的問題是； 可以從任何文件，任何文件夾中調用第二個工作簿。

我會嘗試變量= Workbooks（firstWorkbook.xlsm）.worksheets（sheet1）...但是工作表也沒有相同的名稱。 請幫忙

謝謝

Answer 1

您的代碼在Workbook1中，並打開Workbook2。 因此，正是Workbook1可以完成所有工作-因此“我無法獲得第二個文件來讀取所需的內容”沒有意義。

  Sub Demo(filepath as string)
  ThisWorkbook.Worksheets(1).cells(1,1).text = "This is written by initial Workook"      
  Dim Wb as Workbook
  Set Wb = Workbooks.Open(filepath)
  Wb.Sheets(1).cells(1,2) = "So is this, even though it's in a different workbook"
  End Sub