Met onderstaande code selecteer ik een excel bestand welk ik wil importeren.
Vervolgens wordt het geselecteerde bestand met onderstaande code geïmporteerd.
Is het mogelijk voordat het geïmporteerd wordt:
-het geselecteerde excel bestand te openen
-In cel A1 en A6 tekst te plaatsen
-De wijzigingen opslaan in het excel bestand
Code:
Private Sub cmdDialoogvensterImport_Click()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.Title = "Selecteer import bestand"
.Filters.Clear
.Filters.Add "Excel bestand", "*.xlsx", 1
.Filters.Add "Alle bestanden", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
Me.txtBestandslocatieImport = varFile
Next
Else
MsgBox "U heeft geen bestand geselecteerd en de opdracht geannuleerd"
End If
End With
End Sub
Vervolgens wordt het geselecteerde bestand met onderstaande code geïmporteerd.
Code:
Private Sub cmdImporteren_Click()
Dim stBestand As String
stBestand = Me.txtBestandslocatieImport
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_OmzetTemp", stBestand, True
MsgBox ("De data is geimporteerd"), vbInformation, "Opdracht is uitgevoerd."
DoCmd.SetWarnings True
End Sub
Is het mogelijk voordat het geïmporteerd wordt:
-het geselecteerde excel bestand te openen
-In cel A1 en A6 tekst te plaatsen
-De wijzigingen opslaan in het excel bestand