在工作簿的工作表2中打开文档

我有一个代码曾经分配给一个button，并点击打开一个.dat文件为我。

但是，这将打开一个单独的工作簿上的文件，我希望能够打开，以便它在Sheet2中显示相同的工作簿。

我的代码是：

Sub Open_Workbook() Dim my_FileName As Variant my_FileName = Application.GetOpenFilename If my_FileName <> False Then Workbooks.Open Filename:=my_FileName End If End Sub 

Answer 1

你不能直接做，但是这会打开它，将所有的数据复制到表2，然后closuresdat文件而不保存

 Sub Open_Workbook() Dim my_FileName As Variant my_FileName = Application.GetOpenFilename If my_FileName <> False Then Workbooks.Open Filename:=my_FileName activeworkbook.sheets(1).usedrange.copy thisworkbook.sheets(2).range("a1") activeworkbook.close false End If End Sub