如何从外部粘贴excel文件

Question

我有一个将值粘贴到我的Excel中的问题，我有2张1和2.在表1中我把我的按钮，文本字段放在哪里 我有一个broswer获取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