2016年5月23日 星期一

EXCEL用VBA去抓另一個EXCEL檔的儲存格

今天這個問題是
如何用"EXCEL用VBA去抓另一個EXCEL檔的儲存格"
看起來複雜
但處理好了以後
可以解好多問題

比如現在我有一堆格式一致的EXCEL檔(1.xlsb、2.xlsb.......n.xlsb)
我要把每一個xlsb的儲存格a1存在index.xlsb的a1.....an裡

 製作方法:
1.先開啟index.xlsb和1.xlsb兩個檔案
2.再錄製巨集取得index.xlsb的a1上=1.xlsb ==>2016版得到的原始碼
ActiveCell.FormulaR1C1 = "=[1.xlsb]工作表1!R4C8"
3.再用FOR迴圈把整個程式串起來即可。

Sub pro()
 k = ThisWorkbook.Path                       'index.xlsb的路徑
  For i = 1 To 100                                  '假設有100個xlsb
    Range("A" & i).Formula = "='" & k & "\[" & i & ".xlsb]工作表1'!R1C1" '問題的解答
  Next
End Sub


投資要靠自己 聽明牌就是把錢送別人

沒有留言:

張貼留言

歡迎留言<