AW: :-( schade nur Bilder - kein Code
14.11.2019 18:44:23
Dennis
und nochmal in sauber - ich komm mit diesem Forum hier noch nicht so ganz klar :-)
Sub query_send_san()
'programmdatei = name der Excel-Datei (Logistik-Tool.xlsm)
'verzeichnis_programm = Pfad, indem die Programmdatei sitzt
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & programmdatei & ";DefaultDir=" & verzeichnis_programm & "" _
_
_
), Array(";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Range("$B$4")).QueryTable
.CommandText = "SELECT `source_san$`.PZN, `source_san$`.Hersteller, `source_san$`. _
Bezeichnung, `source_san$`.`Art#Nr Hersteller`, `source_san$`.Menge, `source_san$`.ME, ` _
source_san$`.Bestand FROM (`source_san$`) WHERE (`source_san$`.ADM=" & hcmquerysan & ") ORDER BY (`source_san$`.Bezeichnung)"
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "ADM_POS_SAN"
.Refresh BackgroundQuery:=False
End With
End Sub
Sub query_send_ghd()
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & programmdatei & ";DefaultDir=" & verzeichnis_programm & "" _
_
_
), Array(";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Range("$B$4")).QueryTable
.CommandText = "SELECT `source_ghd$`.PZN, `source_ghd$`.Hersteller, `source_ghd$`. _
Bezeichnung, `source_ghd$`.`Art#Nr Hersteller`, `source_ghd$`.Menge, `source_ghd$`.ME, ` _
source_ghd$`.Bestand FROM (`source_ghd$`) WHERE (`source_ghd$`.ADM=" & hcmqueryghd & ") ORDER BY (`source_ghd$`.Bezeichnung)"
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "ADM_POS_GHD"
.Refresh BackgroundQuery:=False
End With
End Sub