返回列表 上一主題 發帖

EXCEL VBA 抓取資料問題

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

        靜思自在 : 布施如播種,以歡喜心滋潤種子,才會發芽。
返回列表 上一主題