Question

我已经创建了一个用户窗体，可以将单个excel工作表导入到特定的excel表中。我是完全按照youtube教程中的说明一步一步完成的。但是，它碰到

Me.txtFileName的“编译错误：找不到数据方法”

这是我的代码：

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 Spreadsheet", "*.xls, *.xlsx"
    If diag.Show Then
        For Each item In diag.SelectedItems
            Me.txtFileName = item
        Next
    End If
End Sub

Answer 1

我认为Me.txtFileName = item行在您的代码中没有任何意义。

您甚至不允许多重选择，因此最后的循环是毫无意义的。我做了一点修改。现在，选择多个文件后，您将看到msgbox。

您可以将该Msgbox行更改为要打印在Diag中选择的那些文件名的任何位置。

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 Spreadsheet", "*.xls, *.xlsx"
    diag.AllowMultiSelect = True
    If diag.Show Then
        For Each item In diag.SelectedItems
            MsgBox item
        Next
    End If
End Sub

对于初学者，出现对话框时，仅选择2个文件。

如何将Excel工作表追加到VB中Access中的现有表？

1 个答案: