Datenbank

Forumthread: Datenbank

Datenbank

23.11.2021 11:59:36

BossHoss

Hallo zusammen,
Ich möchte ein AddIn erstellen, welches bei der Aktivierung eine kleine Datenbank in einem neuen Blatt mit reinsetzt .
Habe was aufgezeichnet, das gibt aber Fehlermeldungen .
Ist das überhaupt machbar ?
Gruß Bert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

bitte Code zeigen (owT)

23.11.2021 12:03:11

Pierre
AW: bitte Code zeigen (owT)

23.11.2021 13:11:23

BossHoss

bitte Code zeigen (owT)

23.11.2021 12:03:11

Pierre

AW: bitte Code zeigen (owT)

23.11.2021 13:11:23

BossHoss

Application.CutCopyMode = False
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=M:\Production\PLANUNG\Auftrag.xls;DefaultDir=M:\Production\PLANUNG;DriverId=1046;MaxBufferSize=2048;PageTim" _
), Array("eout=5;")), Destination:=Range("$A$1")).QueryTable
.CommandType = 0
.CommandText = Array( _
"SELECT `Auftrag$`.Projektnummer, `Auftrag$`.Referenz, `Auftrag$`.Kunde, `Auftrag$`.F4, `Auftrag$`.F5, `Auftrag$`.Umsatz, `Auftrag$`.F7, `Auftrag$`.Typ, `Auftrag$`.F9, `Auftrag$`.`Est#/hrs`, `Auftrag$`" _
, _
".Datum, `Auftrag$`.F12, `Auftrag$`.F13, `Auftrag$`.F14, `Auftrag$`.F15" & Chr(13) & "" & Chr(10) & "FROM `M:\Production\PLANUNG\Auftrag.xls`.`Auftrag$` `Auftrag$`" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabelle_Abfrage_von_Excel_Files"
.Refresh BackgroundQuery:=False
End With
Range("A2").Select

Forumthread: Datenbank

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread