1樓：匿名使用者
sub ab()
workbooks.open "c:\a.xls"
activeworkbook.worksheets(1).cells.copy thisworkbook.worksheets(1).[a1]
activeworkbook.close falseworkbooks.open "c:\b.xls"
activeworkbook.worksheets(2).cells.copy thisworkbook.worksheets(2).[a1]
activeworkbook.close falseend sub
2樓：百無生
用getobject方法可
bai以隱藏打
du開的工zhi
作簿物件，實現看dao上去沒有回開啟的答
過程sub test()
dim wb as workbook
dim sht as worksheet
set wb=getobject("c:\a.xls")set sht=wb.
worksheets(1)sht.cells.copy thisworkbook.
worksheets(1).[a1]
wb.close
set wb=getobject("c:\b.xls")set sht=wb.
worksheets(2)sht.cells.copy thisworkbook.
worksheets(2).[a1]
wb.close
end sub
3樓：匿名使用者
sub ab()
dim wb as workbook
set wb = getobject(file path)todo
wb.close
set wb=nothing
end sub
excel裡面我想 用vba實現呼叫另一個工作簿中的資料怎麼解決
4樓：盜娠羚假
錄製巨集的用法只能測試出一些初級vba用法，很多vba功能無法通過此種方法測試。比如回更改單元格答字型，比如呼叫其他工作簿資料。雖然是挖墳，但我必須指出！
請別在這種問題下，用此種回答誤導後人！
以下是我一段呼叫其他工作簿的**，你可以參考下，但是我坦言，這個方法並不快速。
怎麼用python讀取檔案裡指定行的內容，並匯入excel
如果檔案不大，建議使用下面的方法。由於linecache會快取，所以對大檔案可以使用自己簡單是實現getline如下 def getline thefilepath,desired line number if desired line number 1 return for current lin...
C檔案讀取1 如何讀取文字檔案中的指定字串2 如何讀取文字檔案中指定字串之間的內容
string filecontent system.io.filestream mystream new filestream f test.txt filemode.open system.io.streamreader mystreamreader new streamreader mystre...
VB如何讀取字串中的指定字元
vb6.0使用mid 函式來讀取字串中指定數量的字元。mid 函式 返回 variant string 其中包含字串中指定數量的字元。語法 mid 函式示例 本示例使用 mid 語句來得到某個字串中的幾個字元。dim mystring,firstword,lastword,midwords myst...