標題: EXCEL VBA 抓取資料問題 [打印本頁]

---

作者: iwiniwin    時間: 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    時間: 2015-3-11 17:17

回復 1# iwiniwin

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)