vba实现让用户选择一个excel文件，并复制其第一个工作表

业务员

我希望点击宏按键以后，选择文件导入，确认之后 ，把该导入的excel文件的第一个工作表的内容复制到vba运行的工作簿的第二个名称为数据的工作表上

liulang0808

论坛案例不少，楼主可以检索参考
打开对话框可以使用FileDialog对象
With Application.FileDialog(msoFileDialogFilePicker)

3190496160

Sub 导入数据()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets("数据")
sh.UsedRange.Clear
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False   '单选择
    .Filters.Clear   '清除文件过滤器
    .Filters.Add "Excel Files", "*.xls;*.xls*"
    .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
    If .Show <> -1 Then MsgBox "您没有选择文件": Exit Sub 'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
    f = .SelectedItems(1)
End With
Set wb = Workbooks.Open(f)
wb.Worksheets(1).UsedRange.Copy sh.[a1]
wb.Close False
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160