如何複製文件並粘貼到另一個工作表

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總是指您的宏在

運行工作簿