Hallo zusammen,
für den Import einer CSV mit Dialog(um beliebige Datei zu wählen) benutze ich folgender Code:
---------
Private Sub Befehl14_Click()
Dim fd As Object
Dim dateiname As String
Set fd = Application.FileDialog(1)
fd.AllowMultiSelect = False
fd.ButtonName = "Importieren"
With fd
If .Show = True Then
dateiname = fd.SelectedItems(1)
'DoCmd.TransferText acImportDelim, "txtImportSpezifikation", "Sales", dateiname
DoCmd.TransferText acImportDelim, "LEER1", "Sales", dateiname
Else
Set fd = Nothing
End If
End With
End Sub
--------
will gerne aber für Excel- Was muss ich am besten anpassen an den Code?
Vielen Dank im voraus
Gruß
Sahaj