我有一个代码,一旦分配给一个按钮,点击就会为我打开一个.dat文件。
但是,这会在单独的工作簿上打开文件,我希望能够打开它,以便它在同一工作簿的Sheet2中显示。
我的代码是:
','
答案 0 :(得分:1)
你不能直接这样做,但这会打开它,将所有数据复制到表2中,然后关闭dat文件而不保存
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