Ms access 已经5天了,我正在寻找更新数据访问表,如果表中存在使用方法导入VBA访问;我想知道一些想法 我的代码工作得很好,只是在我的数据库上创建了一个新表,我想添加到现有的选项卡中。我看不到任何用于导入的代码,只有一个FileDialog来选择文件。 Private

Ms access 已经5天了,我正在寻找更新数据访问表,如果表中存在使用方法导入VBA访问;我想知道一些想法 我的代码工作得很好,只是在我的数据库上创建了一个新表,我想添加到现有的选项卡中。我看不到任何用于导入的代码,只有一个FileDialog来选择文件。 Private,ms-access,import,vba,Ms Access,Import,Vba,已经5天了,我正在寻找更新数据访问表,如果表中存在使用方法导入VBA访问;我想知道一些想法 我的代码工作得很好,只是在我的数据库上创建了一个新表,我想添加到现有的选项卡中。我看不到任何用于导入的代码,只有一个FileDialog来选择文件。 Private Sub btnBrowse_Click() Dim diag As Office.FileDialog Dim item As Variant Set diag = Application.FileDialog(msoFileDialogF

已经5天了,我正在寻找更新数据访问表,如果表中存在使用方法导入VBA访问;我想知道一些想法
我的代码工作得很好,只是在我的数据库上创建了一个新表,我想添加到现有的选项卡中。我看不到任何用于导入的代码,只有一个
FileDialog
来选择文件。
Private Sub btnBrowse_Click()
Dim diag As Office.FileDialog
Dim item As Variant

Set diag = Application.FileDialog(msoFileDialogFilePicker)
diag.AllowMultiSelect = False
diag.Title = "Please select an Excel Spreadsheet"
diag.Filters.Clear
diag.Filters.Add "Excel Spreadsheets", "*.xls, *.xlsx"

If diag.Show Then
    For Each item In diag.SelectedItems
        Me.txtFileName = item
    Next
End If

End Sub