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

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始终引用您的宏运行的工作簿