Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.06.2014 11:11:47 |
Tribal |
|
|
|
26.06.2014 14:05:48 |
Gast8572 |
|
|
|
26.06.2014 21:27:27 |
Gast68490 |
|
|
|
26.06.2014 21:27:31 |
Gast61951 |
|
|
Excel VBA - Daten aus CSV Dateien Importieren |
28.06.2014 07:14:06 |
Gast803 |
|
|
|
29.06.2014 23:39:56 |
Tribal |
|
|
Von:
Gast803 |
Datum:
28.06.2014 07:14:06 |
Views:
821 |
Rating:
|
Antwort:
|
Thema:
Excel VBA - Daten aus CSV Dateien Importieren |
Hallo,
schmeiß' den MacroRecorder an und geh' mit Deinen Vorgaben manuell auf Daten >>> Externe Daten abrufen >>> Aus Text,
dann erhältst Du bspw. das hier:
Option Explicit
Public Sub test()
Dim vntReturn As Variant
vntReturn = Application.GetOpenFilename(FileFilter:="Text Files (*.csv),*.csv", _
Title:="Please select text file...")
If vntReturn = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & CStr(vntReturn), Destination:= _
Range("$E$5")) 'Startzelle anpassen....
.Name = "csvTest_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells 'Kein Überschreiben
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True 'Semikolon
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Die nicht benötigten Parameter entfernen oder anpassen...
Gruß,
|
- 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
|
|
26.06.2014 11:11:47 |
Tribal |
|
|
|
26.06.2014 14:05:48 |
Gast8572 |
|
|
|
26.06.2014 21:27:27 |
Gast68490 |
|
|
|
26.06.2014 21:27:31 |
Gast61951 |
|
|
Excel VBA - Daten aus CSV Dateien Importieren |
28.06.2014 07:14:06 |
Gast803 |
|
|
|
29.06.2014 23:39:56 |
Tribal |
|
|