Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
396to400
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
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Externe Daten importieren

Externe Daten importieren
17.03.2004 14:30:28
Karin
Hallo zusammen
Ich muss eine .txt Datei importieren, und habe dafür untenstehendes Makro mit dem Makrorecorder aufgezeichnet. Da aber diese .txt nicht immer den gleichen Pfad haben wird, muss der Pfad wählbar sein.
Weiss jemand wie das geht?
Danke und Gruss
Karin


Sub Daten_import()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Karin.txt", Destination:=Range("A1"))
.Name = "Karin"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 28592
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Externe Daten importieren
17.03.2004 14:54:45
Nepumuk
Hallo Karin,
versuch es mal so:

Public Sub Daten_import()
Dim strFilename As String
strFilename = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If strFilename <> "Falsch" Then
With ActiveSheet.QueryTables.Add(Connection:=strFilename, Destination:=Range("A1"))
.Name = "Karin"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 28592
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
AW: Externe Daten importieren
17.03.2004 15:09:33
Karin
Hallo Nepumuk
Habs versucht bleibt aber bei
With ActiveSheet.QueryTables.Add(Connection:=strFilename, Destination:=Range("A1"))
hängen.
Gruss Karin
AW: Externe Daten importieren
17.03.2004 15:17:26
Nepumuk
Hallo Karin,
da war ich zu schnell mit löschen. So geht's:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFilename, Destination:=Range("A1"))
Gruß
Nepumuk
AW: Externe Daten importieren
17.03.2004 15:32:37
Karin
Hallo Nepumuk
Vielen Dank, dass funktioniert ja super!!!
Gruss Karin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige