Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Access Import

Access Import
18.02.2005 12:34:46
Dirk
Hallo,
Ich habe ein Prozedur (s.u.), die Daten aus einer vorher gewählten Access Datei (GetOpenFileName) nach Excel importiert. Klappt auch alles super, solange die Access Datei im Verzeichnis "Eigene Dateien" ist (unabhängig vom Ort der Excel Datei!).
Sobald aber die Access Datei in einem anderen Verzeichnis, oder einem Unterverzeichnis von "Eigene Dateien" ist, kommt die Fehlermeldung "Typen unverträglich" (Laufzeitfehler 13) (mit Markierung von der With-Anweisung bis "Range("A1"))" ... siehe unten).
Hilfe! und Danke,
Dirk
___________________________________________________

Sub Import ()
datei = Application.GetOpenFilename("FWDWin-Dateien (*.mdb), *.mdb")
'Import "Comments"
Sheets("Comments").Select
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & datei & ";Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLED" _
, _
"B:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:G" _
, _
"lobal Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=F" _
, _
"alse;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("Comments")
.Name = "Kommentar Import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False    'hier ok
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = " & datei & "
.Refresh BackgroundQuery:=False
End With
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Access Import
Andy
Wenn im Pfad Leerzeichen sind, muss er in 'das ist der Pfad' eingeschlossen werden.
Andy
AW: Access Import
18.02.2005 12:41:59
Dirk
Hallo Andy,
leider verstehe ich nicht, was Du meinst. Könntest Du das bitte nochmals umschreiben?
Danke,
Dirk
AW: Access Import
Andy
Wenn im Pfad Leerzeichen vorkommen, muss der Pfad in Hochkomma '' eingeschlossen werden.
Andy
AW: Access Import
Dirk
Danke
AW: Access Import, geschlossen
Andy
o
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige