vba - 如何复制文件并粘贴到另一个工作表中

Question

我需要从外部驱动器复制文件并将其粘贴到我的 excel 中，我可以浏览文件但我无法将这些值粘贴到新工作表中......在同一个 excel 中我的代码：

Dim fileStr As String
Sub GetOpenFile()

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

End Sub
Sub Button3_Click()

Workbooks.Open fileStr
ActiveSheet.Paste

End Sub

Answer 1

您试图在没有复制任何内容的情况下粘贴到活动工作表。此外，活动工作表可能不是您要粘贴到的工作表。

试试这个：

Sub Button3_Click()

Dim wbToCopy As Workbook

Set wbToCopy = Workbooks.Open(fileStr)
wbToCopy.Worksheets("Sheet1").Range("A1:H100").Copy

ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial

wbToCopy.Close

End Sub

ThisWorkbook始终引用运行宏的工作簿