Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

csv-Dateien automatisch importieren

csv-Dateien automatisch importieren
03.03.2007 19:04:00
Peter
Ich habe folgendes Problem:
Möchte csv-Dateien (Kontoumsätze von Bank downgeloadet) in ein Tabellenblatt an vorher angewählter Stelle (Zelle im Blatt, auf der der Cusor gerade steht) mit VBA-Makro automatisch importieren. Dazu ist es aber notwendig, dass das Dialogfenster "Datei auswählen" geöffnet wird und nach Wahl der Datei alles weiter automatisch abläuft. Hab untenstehend den aufgezeichnet Code. Wie und an welcher Stelle kann ich nun das Dialogfenster zum Öffnen der Datei im Code einfügen? Es ändert sich also nur der jeweilige Dateiname und der Ort(Zelle in der ich vor Aufruf des Makros stand) wohin importiert werden soll.
Kann mir da irgendwer helfen, wäre sehr dankbar!
Liebe Grüße
Peter
Sub importieren()
' importieren Makro
' Makro am 02.03.2007 von POLA aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\POLA\Desktop\0001234567_20070220_20070302.csv" _
, Destination:=Range("A2696"))
.Name = "0001234567_20070220_20070302"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: csv-Dateien automatisch importieren
03.03.2007 19:48:00
Heiko
Hallo Peter,
wenn es nur um das auswählen der Datei und dann das automatische einfügen ab der aktiven Zelle geht, dann so. Den Rest habe ich nicht getestet, aber du sagst ja es geht so dann sollte es auch weiter damit gehen.
Sub importieren()
Dim varPfadUndDatei As Variant
varPfadUndDatei = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
If varPfadUndDatei = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & varPfadUndDatei, Destination:=ActiveCell)
.Name = "0001234567_20070220_20070302"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: csv-Dateien automatisch importieren
03.03.2007 19:54:00
Peter
Lieber Heiko!
Ganz herzlichen Dank, dass war eine prompte Hilfe!
Schönen Samstag noch
Peter

8 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige