[算表] VBA抓取另一算表的資料
軟體:excel
版本:2003
---------------------------------------------------------------------------------------------------
http://ppt.cc/5VGb
假如在同一資料夾內有 A.xls 和 B.xls 兩個檔案
要使 A.xls 的 Sheet1 儲存格 A1等於 B.xls 的 Sheet1 儲存格 A1
使用巨集來操作至少可以使用以下兩種方法
1.
在A檔案內執行(B檔案可以不用開啟)
Range("a1").Formula = "='[B.xls]Sheet1'!$A$1"
Range("a1").Formula = Range("a1").Value
' 讓它的內容等於它的值(不要公式)
' 若B檔案不是在同一個資料夾內則需要指定完整的路徑
' 例 : Range("a1").Formula = "='C:\XXX\[B.xls]Sheet1'!$A$1"
-----------------------------------------------------------------------------------------------------
我想使用網頁內法一的方法，抓取dat檔的資料
現有一個B.dat的檔案，我想抓儲存格 B29到 B129 的值
將值貼在A.xls內的 D2 到 D129。
透過以下指令
For i = 2 To 102
Range("D" & i).Formula = "='[B.dat]Sheet1'!$B$29 "
Next i
我現在只成功將 B.dat 的儲存格 B29 的值 複製到 D2 到 D29
目前的問題是不知道如何將 $B$29 這一項用迴圈變數 i 來改寫
還是法一只能抓單一儲存格
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.126.251.169
※ 編輯: kgreatheart 來自: 140.126.251.169 (02/10 16:04)
→
02/10 17:50, , 1F
02/10 17:50, 1F
→
02/10 23:13, , 2F
02/10 23:13, 2F
→
02/10 23:17, , 3F
02/10 23:17, 3F
→
02/10 23:20, , 4F
02/10 23:20, 4F
→
02/10 23:23, , 5F
02/10 23:23, 5F
→
02/11 11:42, , 6F
02/11 11:42, 6F
→
02/11 11:43, , 7F
02/11 11:43, 7F
→
02/18 22:36, , 8F
02/18 22:36, 8F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
10
15