返回列表 上一主題 發帖

EXCEL VBA 抓取資料問題

iwiniwin

帖子
25 
主題
10 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
S 
閱讀權限
10 
性別
男 
註冊時間
2014-2-19 
最後登錄
2016-2-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-11 16:54 | 只看該作者

EXCEL VBA 抓取資料問題

我有一個程式如下  我會去抓tmp 資料
但是我點到哪個SHEET  他就會這個個SHEET 執行下面程式碼
請問  我是想讓他SHEET3 執行下面的程式碼?
有人會改寫嗎?



Sub GetValue()
    Dim sPath As String
    sPath = ThisWorkbook.Path & "\"
    Range("A1:A999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A999"
    Range("B1:B999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C999"

End Sub
收藏 分享

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-3-11 17:17 | 只看該作者
回復 1# iwiniwin

這樣就可以了，但要注意的是Sheet名稱和Sheet編號並不一定一樣，下面用的是Sheet編號或者你也可以改成用名稱=>Worksheets("Sheet3")
    Sheet3.Range("A1:A999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A999"

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題