Hallo!
Ich möchte in einem Tabellenblatt eine Datenbankabfrage per VBA erzeugen.
Wenn ich den Vorgang mit dem Recorder aufzeichne, erscheint mit der Teil ab Command.Text...
schon rot direkt nach dem aufzeichnen!
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=Y:\Öffentliche Ordner\AV-Bo\Fuhrmann\Induktiv.mdb;DefaultDir=Y:\Öffentliche Ordner\AV-Bo\Fuh" _
), Array("rmann;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A1"))
.CommandText = Array( _
"SELECT dbo_ACES_BlockData.Datum, dbo_ACES_BlockData.Uhrzeit, dbo_ACES_BlockData.InvNr, dbo_ACES_BlockData.Erzeugnis_nr, dbo_ACES_BlockData.WW_status, dbo_ACES_BlockData.Auftrags_nr, dbo_ACES_BlockData" _
, _
".Betriebsart, dbo_ACES_BlockData.Blockdurchmesser, dbo_ACES_BlockData.Induktordurchmesser, dbo_ACES_BlockData.Block_Laenge, dbo_ACES_BlockData.Soll_temp, dbo_ACES_BlockData.Zu_Kalt, dbo_ACES_BlockData" _
, _
".Zu_warm, dbo_ACES_BlockData.MAX_Temp, dbo_ACES_BlockData.Verbrannt_Temp, dbo_ACES_BlockData.IST_Temp, dbo_ACES_BlockData.INDU_Leistung_Proz, dbo_ACES_BlockData.INDU_Leistung_KW, dbo_ACES_BlockData.TA" _
, _
"KT_Soll, dbo_ACES_BlockData.TAKT_IST, dbo_ACES_BlockData.Block_Status, dbo_ACES_BlockData.Zaehler_presse, dbo_ACES_BlockData.INDU_Korre, dbo_ACES_BlockData.Kamera_1_Temp, dbo_ACES_BlockData.Kamera_2_T" _
,,,,) .Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Kriege den Teil auch nicht manuell zusammengeschustert, wer kann mir helfen?
Gruß
F.