将变量从多个工作簿传递到一个工作簿

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