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
@madspirit: Tak pojawia się "Błąd składni SQL" Równie dobrze może być jako zmienna a do zmiennej mogę sobie przypisać komórkę. Tylko nie wiem jak to w kodzie wpisać i nie znalazłem informacji w internetach.
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()
Dane$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
.Art#,Dane$.Dane" & Chr(13) & "" & _C:\Users\M\Desktop\dane.xlsxChr(10) & "FROM
.Dane$Dane$" & Chr(13) &Równie dobrze może być jako zmienna a do zmiennej mogę sobie przypisać komórkę. Tylko nie wiem jak to w kodzie wpisać i nie znalazłem informacji w internetach.
@brak_nicku: Niestety przy tej zmianie pokazuje także "Błąd składni SQL
"Parameters.AddParam" - wydaje się dość skomplikowany, ale teraz wiem bardziej jak szukać rozwiązania problemu.