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

csv Datei öffnen

csv Datei öffnen
11.09.2007 16:23:14
Eon
Hallo
ich möchte in excel ein makro integrieren, dieses makro soll eine csv datei in einer bereits existierenden arbeitsmappe als neues arbeitsblatt öffnen, das habe ich noch hin bekommen
mit diesem Quelltext

Private Sub CommandButton1_Click()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


dadurch das es eine csv datei ist hat excel diese zerfeuert und die werte nicht in verschiedenen spalten ausgeworfen.
Habe jetzt ein bisschen im internet geschaut und habe einen Quelltext gefunden der die csv Datei in verschiedenen spalten öffnet dieser :
Sub csv()
Dim i As Long
Dim z As String
Dim a As Variant
Dim n As Long
Open "c:\test.csv" For Input As #1
n = 0
While Not EOF(1)
n = n + 1
Line Input #1, z
a = Split(z, ";")
For i = 0 To UBound(a)
Cells(n, i + 1).NumberFormat = "@"
Cells(n, i + 1) = a(i)
Next
Wend
Close #1
End Sub


Jetzt versuche ich schon seit mehreren stunden einen Quelltext aus den beiden zumachen aber dies gelingt mir nicht. Vielleicht können Ihr mir behilflich sein, Schonmal Vielen Dank im Vorraus.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv Datei öffnen
11.09.2007 16:34:30
Rudi
Hallo,

Private Sub CommandButton1_Click()
Dim strTmp As String
Dim arrTmp As Variant
Dim lngRow As Long
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
With ThisWorkbook
Set wks = .Worksheets.Add(after:=Worksheets(.Worksheets.Count))
End With
Open sFile For Input As #1
While Not EOF(1)
lngRow = lngRow + 1
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
With wks.Range(.Cells(lngRow, 1), .Cells(lngRow, UBound(arrTmp) + 1))
.NumberFormat = "@"
.Value = arrTmp
End With
Wend
Close #1
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: csv Datei öffnen
11.09.2007 16:42:09
Eon
Hallo Rudi,
schon mal vielen Dank für diese schnelle hilfe
er gibt mir leider eine fehlermeldung raus
"Unzulässiger oder nicht ausreichend definierter Verweis"
bei
With wks.Range(.Cells(lngRow, 1), .Cells(lngRow, UBound(arrTmp) + 1))
und da (.Cells
Liebe Grüße Eon

AW: csv Datei öffnen
11.09.2007 17:00:00
Eon
Hallo
mein Problem mit den cells habe ich hin bekommen
habe aber eine andere Frage welcher Befehl gibt an wo auf meiner Festplatte sich die Datei befindet die ich mit dem sFile = Range("B3").Value suche.
Sorry bin ein noob mit visual basic. Stelle mich wohl sehr doof an.
Liebe Grüße

Anzeige
AW: csv Datei öffnen
11.09.2007 17:03:35
Rudi
Hallo,
in B3 muss der komplette Pfad stehen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: csv Datei öffnen
11.09.2007 17:02:14
Rudi
Hallo,
nimm beidemal den . weg.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: csv Datei öffnen
11.09.2007 17:21:00
Eon
Hallo Rudi,
das klappt jetzt auch, mir fällt ein stein vom herz Vielen Dank
nur noch eine kleine Frage, gibt es eine möglichkeit das die geöffneten Blätter nicht z.B. Tabelle2 sondern den namen der File hat.
Liebe Grüße
Eon

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige