excel - 如何从外部粘贴excel文件

Question

我在将值粘贴到我的 excel 中时遇到问题，我有 2 张表 1 和 2。在表 1 中我放置了我的按钮，文本字段我有一个获取 excel 文件的浏览器，我想将该 excel 文件粘贴到表中2.

目前我可以浏览并选择文件，但我无法将信息粘贴到表 2 中，任何人都可以帮助我。

Dim fileStr As String
Sub GetOpenFile()

fileStr = Application.GetOpenFilename()
Worksheets("Sheet2").TextBox1.Value = fileStr

End Sub
Sub Button3_Click()

Workbooks.Open fileStr

End Sub

Answer 1

尝试这个：

Sub Button3_Click()
Dim fileStr As String, wbk1 as workbook, wbk2 as workbook

fileStr = Application.GetOpenFilename()

set wbk1=activeworkbook
set wbk2=Workbooks.Open (fileStr)

wbk2.sheets(1).cells.copy wbk1.Worksheets("Sheet2").cells(1,1)

End Sub