Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
CSV Datei Semikolon getrennt mit VBA einlesen |
13.10.2015 11:05:05 |
Vinu |
|
|
|
13.10.2015 12:04:11 |
BigBen |
|
|
|
13.10.2015 13:58:10 |
Gast14923 |
|
|
|
14.10.2015 11:45:07 |
Vinu |
|
|
|
14.10.2015 15:45:07 |
Gast68570 |
|
|
|
14.10.2015 15:46:05 |
Gast65708 |
|
|
|
16.10.2015 09:05:19 |
Gast28234 |
|
|
Von:
Vinu |
Datum:
13.10.2015 11:05:05 |
Views:
1211 |
Rating:
|
Antwort:
|
Thema:
CSV Datei Semikolon getrennt mit VBA einlesen |
Hallo,
Ich will mehrere CSV Dateien öffnen, bearbeiten und speichern.
Wenn ich das folgende Makro laufen lasse wird die Datei geöffnet,
aber nicht nach Semikolon getrennt. Bedeutet mehrere Zellen in
einer Zelle.
So wie ich gelesen habe,kann man das mit "Local:= True"
erledigen. Leider weiss ich nicht, wie ich es machen kann.
Könnt Ihr bitte da weiter helfen?
Sub MWMultiDateiUpdate()
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Application.ScreenUpdating = False 'Das "Flackern" ausstellen
'Schritt 1: Schleife über alle Excel Dateien in einem Verzeichnis
sPfad = "C:\TEST\Sammlung\"
sDatei = Dir(CStr(sPfad & "*.csv")) '
Do While sDatei <> ""
'Schritt 2: öffnen der Datei und Datenübertragung
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False,
False) 'nur lesend öffnen
'CODE
'Schritt 3: Datei speichern und wieder zu machen und nächste
Schleifenrunde
Application.DisplayAlerts = False
oSourceBook.Close True 'speichern
Application.DisplayAlerts = True
'Nächste Datei
sDatei = Dir()
Loop
Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren
wieder einschalten
'Variablen aufräumen
Set oSourceBook = Nothing
Danke
|
- 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
|
CSV Datei Semikolon getrennt mit VBA einlesen |
13.10.2015 11:05:05 |
Vinu |
|
|
|
13.10.2015 12:04:11 |
BigBen |
|
|
|
13.10.2015 13:58:10 |
Gast14923 |
|
|
|
14.10.2015 11:45:07 |
Vinu |
|
|
|
14.10.2015 15:45:07 |
Gast68570 |
|
|
|
14.10.2015 15:46:05 |
Gast65708 |
|
|
|
16.10.2015 09:05:19 |
Gast28234 |
|
|