How to ImportSpreadsheet with a variable file name

[Jackass]

Hi,

Anyone please helping me!!!
I'm very newbie
I've been create MS access and want to import file by browse and select file to import.
I have 1 text box name "Text01" (will show path and file name to import)
I have 1 button for browse file name "btbrowse" (Browse to select file)
I have 1 button for run command import excel to table it's name "Import"
and in database i have table name "T_DataFingerScan" to receive data from import

p.s. I can use macro to import but in macro cannot browse file so please give me for suggestion.

Regards,
Jackass

 

[ranman256]

1 user clicks button to select a file to import
2. once selected , run docmd.TransferSpreadsheet to import the data

see code below to select a file in the button click:
usage:
txtBox = UserPick1File("c:\folder\")

'NEW VERSION
Public Function UserPickFile(byval pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialog As String, sDecr  As String, sExt As String
dim fd as filedialog


set fd = Application.FileDialog(msoFileDialogFilePicker)  '<---- 'MUST ADD REFERENCE : Microsoft Office 11.0 Object Library
With fd
    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    .Filters.Add "All Files", "*.*"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
    ''.AllowMultiSelect = True
     
        If .show = 0 Then
           'There is a problem
           Exit Function
        End If
    
    'Save the first file selected
    UserPick1File = Trim(.SelectedItems(1))
End With
set fd = nothing
End Function

 

[Jackass]

Ranman256 very thanks for your answer.
How can i apply for my access by detail as below?

I have 1 text box name "Text01" (will show path and file name to import)
I have 1 button for browse file name "btbrowse" (Browse to select file)
I have 1 button for run command import excel to table it's name "Import"
and in database i have table name "T_DataFingerScan" to receive data from import