Hi Leute...
Das da unten ist mein Quelltext und ich möchte die Tabellennamen nicht statisch(was jetzt der Fall ist)
sondern mit dem ausgewählten Dateinamen benennen(dynamisch). Könnt ihr mir helfen?
Vielen Dank im Voraus
Adam
Quelltext:
Private Sub BtnImport_Click()
Dim Pfad As String
Dim importPath As String
Dim sImport_Tabelle As String
Dim tImport_Tabelle As String
Dim cImport_Tabelle As String
Pfad = CurrentProject.Path
sImport_Tabelle = "_import_x_Tabelle"
tImport_Tabelle = "_import_t_Tabelle"
cImport_Tabelle = "_import_c_Tabelle"
Dim objFiledialog As FileDialog
Set objFiledialog = FileDialog(msoFileDialogFilePicker)
objFiledialog.AllowMultiSelect = False
objFiledialog.ButtonName = "Importieren"
objFiledialog.Filters.Add "Freigabe-Dateien", "*.xls;*.xlsx;*.txt;*.csv"
objFiledialog.InitialFileName = Pfad
If objFiledialog.Show() = True Then
importPath = objFiledialog.SelectedItems(1)
Set objFiledialog = Nothing
If right(importPath, 4) = ".xls" Or right(importPath, 5) = ".xlsx" Then
DoCmd.TransferSpreadsheet acImportDelim, sImport_Tabelle, importPath, True
ElseIf right(importPath, 4) = ".txt" Then
DoCmd.TransferText acImportDelim,";", tImport_Tabelle, importPath
ElseIf right(importPath, 4) = ".csv" Then
DoCmd.TransferText acImportDelim,";", cImport_Tabelle, importPath
End If
End If
End Sub
Das da unten ist mein Quelltext und ich möchte die Tabellennamen nicht statisch(was jetzt der Fall ist)
sondern mit dem ausgewählten Dateinamen benennen(dynamisch). Könnt ihr mir helfen?
Vielen Dank im Voraus
Adam
Quelltext:
Private Sub BtnImport_Click()
Dim Pfad As String
Dim importPath As String
Dim sImport_Tabelle As String
Dim tImport_Tabelle As String
Dim cImport_Tabelle As String
Pfad = CurrentProject.Path
sImport_Tabelle = "_import_x_Tabelle"
tImport_Tabelle = "_import_t_Tabelle"
cImport_Tabelle = "_import_c_Tabelle"
Dim objFiledialog As FileDialog
Set objFiledialog = FileDialog(msoFileDialogFilePicker)
objFiledialog.AllowMultiSelect = False
objFiledialog.ButtonName = "Importieren"
objFiledialog.Filters.Add "Freigabe-Dateien", "*.xls;*.xlsx;*.txt;*.csv"
objFiledialog.InitialFileName = Pfad
If objFiledialog.Show() = True Then
importPath = objFiledialog.SelectedItems(1)
Set objFiledialog = Nothing
If right(importPath, 4) = ".xls" Or right(importPath, 5) = ".xlsx" Then
DoCmd.TransferSpreadsheet acImportDelim, sImport_Tabelle, importPath, True
ElseIf right(importPath, 4) = ".txt" Then
DoCmd.TransferText acImportDelim,";", tImport_Tabelle, importPath
ElseIf right(importPath, 4) = ".csv" Then
DoCmd.TransferText acImportDelim,";", cImport_Tabelle, importPath
End If
End If
End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Adam81“ ()