|
Jaka様、ご返事ありがとうございました。
ちょっと場違いな質問にもかかわらす、ご返事大変助かりました。
解決策としては、Range("B10000"),のところを、下記の様に書き換えました。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Set xlRange = xlSheet.Columns("B")
For intF = 0 To 50
strByou = Application.WorksheetFunction.VLookup _
(CLng(strPoint(iFOR)), xlRange , 1, True)
Next intF
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
VBからExcelファイルをいじる場合って難しいですね・・・
>こんにちは。
>VB6全然解りませんが...。
>
>>For intF = 0 To 50
>> strByou = Application.WorksheetFunction.VLookup _
>> (CLng(strPoint(iFOR)), Range("B10000"), 1, True)
>>Next intF
>>〜エラー〜
>>WorksheetFunction クラスの VLookup プロパティを取得できません。(1004)
>
>WorksheetFunctionを外したら...。
>これがあると、結果がエラーの場合エラー値を返さず実効エラーになります。
>On error resume next で、回避しても良いけど、こいうのでエラートラップ使うのは、私は抵抗がある。
>
>たぶんこれでしょう。
>strByou = Application.VLookup _
> (CLng(strPoint(iFOR)), Range("B10000"), 1, True)
>If iserror(strByou) then
> ない
>Else
> ・
> ・
|
|