有關Vlookup的用法

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-2-12 18:38 | 顯示全部帖子

各位前輩好
使用Vlookup的時候碰到一個問題

資料夾當中有各公司的財報，開啟一個檔案想擷取各公司財報中的部分資訊

程式碼如附檔，我總共試了A~D共4種方法，前兩種可行，後兩種不可行

Private Sub CommandButton1_Click()
Dim StartTime, LastRow
StartTime = Timer
LastRow = Sheets(1).Range("A2").End(xlDown).Row '找出最後一筆資料
Application.ScreenUpdating = False
For i = 2 To LastRow
Dim A
A = Range("A" & i).Value
Workbooks.Open Filename:="C:\Users\KT\Documents\2014_backup\KT\投資理財\Excel分析模組\" & A & "季報.xlsx", UpdateLinks:=False, ReadOnly:=True
'方法A 指定儲存格
Range("E" & i).FormulaR1C1 = "=[" & A & "季報.xlsx]ISQ!R4C2"
'方法B VLookup
Range("E" & i).FormulaR1C1 = "=VLOOKUP(R[-" & i - 1 & "]C,[" & Range("A" & i).Value & "季報.xlsx]ISQ!R1C1:R52C9, 2, FALSE)"
'方法C --> 不可行, 顯示錯誤'1004' 應用程式或物件定義上的錯誤
Range("E2").FormulaR1C1 = _
"=VLOOKUP(R[-1]C,[1101季報.xlsx]ISQ!$A$1:$J$58,2,FALSE)"
'方法D --> 不可行, 編譯錯誤必須是陳述式的結尾
Range("E" & i).FormulaR1C1 = "=VLOOKUP(Range("E2").value,[" & Range("A" & i).Value & "季報.xlsx]ISQ!R1C1:R52C9, 2, FALSE)"
Windows(A & "季報.xlsx").Close
Next i
Application.ScreenUpdating = True
EndTime = Timer
MsgBox "本次下載共花費：" & EndTime - StartTime & "秒"
End Sub