Hallo zusammen,
ich habe ein Problem mit einer Access Datenbank.
Ich möchte im Grunde Daten aus verschiedenen Queries in verschiedene
Excel Dokumente speichern (für jedes Query ein Dokument).
Jetzt kann ich aber nur eine Verbindung aufbauen, bzw. beim Durchlauf von
mehr als einmal erscheint ein Fehler.
Wie kann ich meine Verbindung so auslagern, dass ich sie entweder nach jedem Mal
schließe, oder dass einfach so viele Verbindungen wie nötig aufgebaut werden?
Mein Befehl zum Erstellen der Verbindung ist ja recht komprimiert, und erlaubt es nicht
eine Verbindung zu schließen. Danke euch.
For k = 0 To UBound(res1_url, 2)
Dim exAnw As Excel.Application
Dim exDok As Excel.Workbook
Set exAnw = CreateObject("Excel.Application")
Set exDok = exAnw.Workbooks.Add(Template:=ActiveDocument.path & "\tpl.xltx")
exAnw.Visible = True
If IsArray(res4_5) Then
With exDok.ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & path & ";Mode=Share Deny" _
, _
" Write;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Bypass UserInfo Validation=False"), Destination:=Range("$B$3")).QueryTable
.CommandType = xlCmdSql
.CommandText = query4_5_a
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = path
.ListObject.DisplayName = "Tabelle_vulnscanresults"
.Refresh BackgroundQuery:=False
End With
Next
|