Ik gebruik onderstaande importsub voor .exe bestanden:
Maar nu zoek ik iets dergelijks voor het importeren van .csv bestanden. wie weet raad?
Bart
Code:
Public Sub TRANSFERSPREADSHEEET()
Dim strFileName As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.Title = "Zoek het Excel bestand dat je wilt"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls", 1
.Filters.Add "All Files", "*.*", 2
If .Show = -1 Then
strFileName = .SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "import", strFileName, True
Else
Exit Sub
End If
End With
End Sub
Bart