Як вставити файл excel з зовнішнього - excel, excel-vba, vba

У мене проблема вставки значень у своїexcel, у мене є 2 аркуш 1 та 2.в аркуш 1 його, куди я поклав свою кнопку, текстове поле У мене є браузер, який отримує файл 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