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

Question

我需要从外部驱动器复制文件并将其粘贴到我的Excel中，我可以浏览文件，但我不能将这些值粘贴到新工作表... in一个同一个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总是指您的宏在

运行工作簿