Question

excel vba做出一个打开文件对话框：

选择文件后 自动复制打开表的数据到本工作薄，并关闭已经打开文件的文件！

Answer 1

Sub SelectFile()
Application.DisplayAlerts = False
fil = ThisWorkbook.Name
Filename = Application.GetOpenFilename("Excel 文银模件 ,*.xls;*.xlsx")
If Filename <> False Then
aFile = Split(Filename, "\锋亮缓"键举)
sfilename = aFile(UBound(aFile))
End If
Workbooks.Open (Filename)
Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells
Workbooks(sfilename).Close
Application.DisplayAlerts = True
End Sub

追问

更改文件名字还能用吗？

追答

可以啊，重新选择就行
你可以自己试试嘛

对了，这是默认复制第一个工作表的内容
如果需要复制其他的，更改这条
Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells

追问

打开所有文件，更改哪个？还有 点取消 清除错误提示

追答

这只是打开一个指定的文件，如果是打开一个文件夹中的所有文件，就不需要用打开对话框了，直接指定文件夹，遍历所有文件就行了
取消错误，可以增加一句On error resume next

追问

我的意思是打开包括所有拓展名的。不是非得制定xls或者xlsx的，我有个文件是lag格式的能用excel打开，取消错误：On error resume next 加在哪里

追答

Sub SelectFile()
Application.DisplayAlerts = False
On Error Resume Next
fil = ThisWorkbook.Name
Filename = Application.GetOpenFilename("所有文件 ,*.*")
If Filename False Then
aFile = Split(Filename, "\")
sfilename = aFile(UBound(aFile))
End If
Workbooks.Open (Filename)
Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells
Workbooks(sfilename).Close
Application.DisplayAlerts = True
End Sub
这样就可以打开所有文件
但是，不能保证打开文件后能够正确复制
因为程序原理是复制Excel表格中的第一个工作表
如果复制对象不是Excel认可的格式，可能会出现找不到对象的错误。

Answer 2

Sub 打腊颂源迹开()
Application.Dialogs(475).Show '‘文件－打开’对话轮裂郑框
End Sub