Mirki mam problem, wyciągam dane z MS QUERY do excela z pliku .xls za pomocą VBA.
Tylko jak podłączyć komórkę jako kryteria? Próbowałem zamienić na Range("a1") lub Cell(1,1) ale niestety sypie błędem

Sub Makro3()

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=C:\Users\M\Desktop\dane.xlsx;DefaultDir=C:\Users\M\Desktop;DriverId=1046;MaxBufferSize=2048;Pag" _
), Array("eTimeout=5;")), Destination:=Range("$F$7")).QueryTable

.CommandText = Array( _
"SELECT Dane$.Art#, Dane$.Dane" & Chr(13) & "" & _
Chr(10) & "FROM C:\Users\M\Desktop\dane.xlsx.Dane$Dane$" & Chr(13) &Pokaż całość