Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Verbindung mit excel |
16.04.2013 11:33:57 |
soupy |
|
|
|
17.04.2013 11:20:45 |
Holger |
|
|
|
24.04.2013 12:18:45 |
Gast8748 |
|
|
|
24.04.2013 12:21:43 |
Holger |
|
|
|
24.04.2013 14:33:56 |
Gast77193 |
|
|
Von:
soupy |
Datum:
16.04.2013 11:33:57 |
Views:
2050 |
Rating:
|
Antwort:
|
Thema:
Verbindung mit excel |
Hallo,
folgendes problem: ich möchte automatisch daten aus access in excel laden. das ganze wurde per makro aufzeichnen und den befehl "daten aus access" aufgenommen. an sich funktioniert der code einwandfrei. wenn das makro jedoch automatisch startet, werde ich immer gefragt ob ich auch zu dem speicherort der DB verbinden möchte... d.h. es läuft nciht automatisch ab, sondern ich muss immer auf "OK" klicken.... kann mir jemand sagen wie ich diese frage ausschalten kann? appl.screenupdate funktioniert nicht, das habe cih bereits probiert... hier mein code
Sub import()
'
'
'
Sheets("Tabelle1").Select
Columns("A:F").Select
' Selection.ListObject.QueryTable.Delete
Selection.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=egalwo\access.db;Mode=ReadWrite" _
, _
";Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine " _
, _
"Type=6;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New " _
, _
"Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Comp" _
, _
"act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypa" _
, "ss UserInfo Validation=False"), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("TBL_import")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "egalwo\access.db"
.ListObject.DisplayName = "TBL_db"
.Refresh BackgroundQuery:=False '<-- danach kommt immer die frage nach der verbindung
End With
End Sub
Gruß soupy
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Verbindung mit excel |
16.04.2013 11:33:57 |
soupy |
|
|
|
17.04.2013 11:20:45 |
Holger |
|
|
|
24.04.2013 12:18:45 |
Gast8748 |
|
|
|
24.04.2013 12:21:43 |
Holger |
|
|
|
24.04.2013 14:33:56 |
Gast77193 |
|
|