Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
csv Datei einlesen
21.04.2006 19:03:19
jens
Hallo
Im Moment lese ich meine csv Dateien per Makro ein.
Die csv Dateien haben im duchschnitt 800 bis 1500 Zeilen.
Jede 30-40 sek. wird eine neue zeile in der csv Datei geschrieben.
Davon gibt es 4 Stück die ich jedesmal einlesen muss.
Dauer immer ziehmlich lange.
Nun Meine Frage.
Ist es möglich wenn sich eine csv Datei aktualisiert, die letzte zeile der csv Datei automatisch in Excel zu importieren?
danke
Jens
Mit diesem Makro bewerkstellige ich jetzt das einlesen.

Sub halbauto()
Sheets("Import").Activate
Dim s As Range
If Range("m10").Value = "" Then
MsgBox "Kein Pfad zu RA1 vorhanden"
Exit Sub
End If
If Range("m11").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
If Range("m12").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
If Range("m13").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
Sheets("Import").Range("B3:H6000").Clear
Dim rngQ As Range
Dim wbQ As Workbook ' Q für Quelle
Dim wbZ As Workbook ' Z für Ziel
Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim zeileZ As Long
Dim i As Integer
Set wbZ = ThisWorkbook
Set wsZ = wbZ.Worksheets(1)
zeileZ = 3
On Error Resume Next 'falls Datei nicht existiert
For i = 10 To 13
Workbooks.OpenText FileName:=Range("m" & i), _
DataType:=xlDelimited, semicolon:=True
Set wbQ = ActiveWorkbook
Set wsQ = wbQ.Worksheets(1)
Set rngQ = wsQ.UsedRange
rngQ.Copy Destination:=wsZ.Cells(zeileZ, 2)
zeileZ = wsZ.Cells(wsZ.Rows.Count, 2).End(xlUp).Row + 1
wbQ.Close Savechanges:=False
Next i
Sheets("Auswertung").Activate
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv Datei einlesen
21.04.2006 20:06:30
Solaiman
Hallo Jens,
dafür brauchst du doch kein VBA!
CSV über
Menü Daten - Externe Daten importieren - Daten importieren
mit Excel verbinden. Jedesmal wenn du es aktualisieren wills, kannst du es mit
rechten Maustaste auf dem Bereich - Kontextmenü - Daten aktualisieren" aktualisieren.
Gruß
Solaiman
Anzeige

311 Forumthreads zu ähnlichen Themen


Hallo,
viele .CSV Daten müssen in Excel importiert werden. Ein funktionierendes Makro würde die Sache für immer sehr erleichtern. Kann man das Folgende mit einem Makro lösen?
Folgende Attribute gelten für den Datei Import:


Datenformat der Spalten ist Standard
-Start in...
Anzeige

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...

Hallo,
muß eine .CSV Datei kommagetrennt in Spalten importieren.
Dann nach dem Bearbeiten wieder in eine .CSV Datei exportieren.
Benötigt wohl ein Makro.
Danke.
https://www.herber.de/bbs/user/60798.xls
Anzeige

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...

Hallo zusammen,
ich bin auf ein (für mich ;-)) größeres Problem gestoßen und konnte dies auch nicht durch Googeln etc. lösen. Folgendes: Ich exportiere aus einem Programm eine Liste mit Namen als CSV-Datei. Diese Namen stehen komplett in einer Spalte. Wenn ich nun meine Excel-Datei mit dies...

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige