在工作簿的sheet2中打开文档

Question

我有一个代码，一旦分配给一个按钮，点击就会为我打开一个.dat文件。

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

我的代码是：

','

Answer 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