Hallo,
ich möchte gerne zwei Excel-Sheets per VBA öffnen und entsprechend ansteuern.
Das öffnen funktioniert, obwohl ich denke dass der Code nicht optimal ist. Mein Problem ist, dass ich nicht weiß wie ich von z.B. Exceldatei1 zu Exceldatei2 wechsel um Werte zu ändern.
Hier erstmal mein Code für das öffnen:
Dim xlApp As Excel.Application
Dim xlwrkbk1 As Excel.Workbook
Dim xlsheet1 As Excel.Worksheet
Dim xlwrkbk2 As Excel.Workbook
Dim xlsheet2 As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
DoCmd.SetWarnings False
DoCmd.Hourglass False
xlApp.Visible = True 'Blatt ist sichtbar
'Masterblatt
wrk1 = "C:\Users\Desktop\E0.xls"
wrk2 = "C:\Users\Desktop\E_1.xls"
Set xlwrkbk1 = xlApp.Workbooks.Open(wrk1)
Set xlwrkbk1 = xlApp.Application.ActiveWorkbook
Set xlwrkbk2 = xlApp.Workbooks.Open(wrk2)
Set xlwrkbk2 = xlApp.Application.ActiveWorkbook
Vielen Dank!