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.