|
Sehr geehrtes VBA Forum,
Habe ein Problem ich muss eine CSV Datei mittels Button in ein Excel Sheet importieren. Komme aber nicht weiter.
Hier was ich derweil habe:
Private Sub CommandButton1_Click()
Dim wksAkt As Worksheet
Set wksAkt = ActiveSheet
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.InitialFileName = strPfad
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Title = "Select a CSV File"
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
If .Show = -1 Then
strPfad = .SelectedItems(1)
Else
Exit Sub
End If
End With
If strPfad = "" Then Exit Sub
Open strPfad For Output As #1
End Sub
|