Laufzeitfehler '1004' Methode 'Arbeitsblätter' des Objekts '_Global' fehlgeschlagen

Question

Ich glaube, ich habe ein unqualifiziertes Referenzproblem mit dem Code unten, basierend auf dem, was ich gelesen habe. Ich denke, was ich tun muss, ist das Arbeitsbuch speziell zu referenzieren, aber ich habe eine Reihe von Möglichkeiten ausprobiert, alles erfolglos. Kann jemand helfen?

Dim f As FileDialog, str As String 
Set f = Application.FileDialog(msoFileDialogFilePicker) 
f.Show 
str = f.SelectedItems(1) 

Dim xl As Excel.Application 
Set xl = New Excel.Application 
xl.Visible = True 
xl.Workbooks.Open (str) 

Dim wsT As Worksheet, wsA As Worksheet, wsE As Worksheet, wsI As Worksheet, lr As Long, lrow As Long 

Worksheets.Add(After:=Worksheets(1)).Name = "TABLE" 

Set wsA = Worksheets("ACTIVE") 
Set wsT = Worksheets("TABLE") 

Ein Beispiel dessen, was ich versucht habe, war

Set wb = xl.workbooks.open(str) 

Vielen Dank!

Answer 1

Sie waren fast da. Definieren Sie zuerst die Variablen.

Dim xl As Excel.Application 
Set xl = New Excel.Application 
xl.Visible = True 

Dim xlWB as Excel.Workbook '** added this line 
Set xlWB = xl.Workbooks.Open(str) 

Rest der Code sieht auf den ersten Blick