如何从外部粘贴excel文件

我有一个问题，粘贴到我的excel值，我有两个表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

试试这个：

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

---

看起来您使用了错误的术语。是否要将工作表从一个excel工作簿复制到另一个工作簿？是，我要从一个工作簿复制到另一个工作簿。如果您的问题得到了充分的回答，请记住接受解决方案。@nutsch祝您好运✔. 我今天在另一个线程上回答了Op的一个问题，关于一个名为hh的子程序，他没有奖励分数，而是删除/编辑了这个问题并发布了一个新的问题。@Gimp你通知mods了吗？@nutsch是的，在我报告后，一个很棒的mod来修复了它。在上一篇文章变形后，我拒绝回答你的问题，因此给了你+1分。：]