如何從外部粘貼excel文件

-1

我有一個粘貼到我的Excel中的值的問題，我有2張1和2.在表1中它的位置我把我的按鈕，textfield 我有一個broswer取得一個Excel文件，我想粘貼Excel文件成片。2.如何從外部粘貼excel文件

目前我能夠broswe和選擇文件，但我不能將信息粘貼到表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

來源

2012-10-09 Mr Mashabela

看起來你使用了錯誤的術語。你是否試圖將工作表從一個Excel工作簿複製到另一個？ – Tinman

是的，我想從1個工作簿複製到另一個 –

試試這個：

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

來源

2012-10-09 21:43:48 nutsch

感謝名單了很多它的工作原理 –

完美。如果您的問題得到完全解答，請記住接受解決方案。 – nutsch

@nutsch上讓你✔好運。今天我在不同的線程回答的問題的作品約一個叫做'hh'子程序，而不是授予點，他刪除/編輯的問題，併發布了一個新的。 – danielpiestrak

如何從外部粘貼excel文件

回答

相關問題