別のブックのVLookup

Question

空のセルに達するまでセルA7、A8、A9などから入力（13桁の数字）を取るマクロを作成し、これと別のブックでvlookupを実行します。

しかし、私はちょうど＃N/Aエラーを取得しています、そして、私はなぜうまくいかないのですか？

私の現在のコード：

Sub getData() 

Application.EnableEvents = False 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Application.Calculation = xlManual 

Dim wb As Workbook, src As Workbook 
Dim srcRange As Range 
Dim InputString 
Dim OutputString 
Dim i As Long 

Set wb = ActiveWorkbook 
Set src = Workbooks.Open("D:\Files\test1.csv", True, True) 
Set srcRange = src.Sheets(1).Range("A1:H1").End(xlDown) 

i = 7 

Do While wb.ActiveSheet.Cells(i, 1) <> "" 

    InputString = wb.Worksheets("Sheet 1").Cells(i, 1) 

    OutputString = Application.VLookup(InputString, srcRange, 3, False) 

    wb.Worksheets("Sheet 1").Cells(i, 2) = OutputString 

    i = i + 1 

Loop 


src.Close (False) 

Application.EnableEvents = True 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
Application.Calculation = xlAutomatic 

End Sub 

私はそれは私が（「とInputString」）をアップしているよ参照は、「SRC」ファイルにカスタムフォーマット＃0として定義されていることは注目に値すると思います。この問題があまりにも重要かどうかは分かりませんが、整数でなければなりませんか？

また、 "OutputString"は数値かテキストのどちらかになります。そのため私は意図的に未定義にしました。私はそれを 'Variant'、 'String'、 'Integer'として定義しようとしましたが、それは実際に何も変更されていません。

ありがとうございました。

Answer 1

Set srcRange = src.Sheets(1).Range("A1:H1").End(xlDown)

これはあなたのコラムA、すなわちA20上の1つのセルの範囲を、取得します。 1つのセルにVLookupを実行することは無意味です。これはA1:H20のようなものに設定します

With Sheets(1) 
    Set srcRange = .Range("A1:H" & .Range("A1").End(xlDown).Row) 
End With 

：あなたはおそらく何を意味するのか

は、このでした。

Answer 2

最初にsrcの範囲を変更する必要があります。これは実際には上から下の範囲ではなく下の行だけを取得するように設定されています。試してみてください

Set wb = ActiveWorkbook 
Set src = Workbooks.Open(""D:\Files\test1.csv", True, True) 
With src.Sheets(1) 
    Set srcRange = .Range(.Range("A1"), .Range("H1").End(xlDown)) 
End With 

第2に、私はCSVファイルがテキスト以外の13桁の数字をサポートするとは思いません。 VLOOKUPはテキストと一般的な数値の区別が非常に敏感なので、新しいsrcの範囲が役に立たない場合は、まずCStr（）を使用して入力文字列を変換してみてください。

幸運を祈る！