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

Question

I am using Visual basic from excel to open a different workbook and pass some things from one to another. I have the second file opening fine however I cant get the second file to read the things I need.

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

this is my code to open the second application. I have 2 variables in 2 cells in the first workbook. How would one go about getting the variables. the problem i have encountered is; the second workbook can be called from any file, in any folder.

i would try variable = Workbooks(firstWorkbook.xlsm).worksheets(sheet1)... however the worksheets dont have the same names either. please help

thanks

Answer 1

Your code is in Workbook1, and opens Workbook2. So it's Workbook1 that does everything - so " I cant get the second file to read the things I need" is not meaningful.

  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