런타임 오류 '1004'- VLOOKUP 용

Question

두 번 VlookUp을 사용하여 VBA 코드를 작성하려고하지만 런타임 오류 '1004'가 표시됩니다. 응용 프로그램 정의 또는 개체 정의 오류. 이것의 목표는 : 나는 워크 시트 "데이터"를 .csv 파일을로드하고 복사하는 VLOOKUP을 실행 Login, Name eMail, Card Number, Host Login 등 :

내가 데이터를 고객으로부터 .csv 파일을받을 데이터를 워크 시트 "사용자"에게 보냅니다. 고객이 같은 순서로 .csv 파일을 만들지 않으므로 워크 시트 "사용자"에 복사 할 고정 열 번호가있는 vlookup을 만들 수 없습니다. 내가 사용하는 코드 :

Sub browseFileTest() 
Dim desPathName As Variant 
Dim DestCell As Range 
Dim iemail As Integer 
Dim PosEmail As Integer 
Dim icard As Integer 
Dim Poscard As Integer 
Dim ihost As Integer 
Dim Poshost As Integer 
Dim iemailD As Integer 
Dim PosEmailD As Integer 
Dim icardD As Integer 
Dim PoscardD As Integer 
Dim ihostD As Integer 
Dim PoshostD As Integer 

'Import file to worksheet Data 
    desPathName = Application.GetOpenFilename(fileFilter:="Excel Files (*.*), *.*", Title:="Please select a file") 
    If desPathName = False Then 
     MsgBox "Stopping because you did not select a file. Reselect a destination file through the menu" 
     Exit Sub 
    Else 
    With Sheets("Data").QueryTables.Add(Connection:= _ 
     "TEXT;" & desPathName, Destination:=Sheets("Data").Range("$A$1")) 
     .Name = "users" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .TextFilePromptOnRefresh = False 
     .TextFilePlatform = 850 
     .TextFileStartRow = 1 
     .TextFileParseType = xlDelimited 
     .TextFileTextQualifier = xlTextQualifierDoubleQuote 
     .TextFileConsecutiveDelimiter = False 
     .TextFileTabDelimiter = True 
     .TextFileSemicolonDelimiter = True 
     .TextFileCommaDelimiter = False 
     .TextFileSpaceDelimiter = False 
     .TextFileColumnDataTypes = Array(1, 1) 
     .TextFileTrailingMinusNumbers = True 
     .Refresh BackgroundQuery:=False 
    End With 
'Find cells position to 1º Vlookup 
     For iemail = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, iemail), "Email") Then 
      PosEmail = iemail - 1 
     End If 
     Next 
     For icard = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, icard), "CardNumber") Then 
     Poscard = icard - 1 
     End If 
     Next 
     For ihost = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, ihost), "HostLogin") Then 
     Poshost = ihost - 1 
     End If 
     Next 
    Sheets("Data").Select 
' Find cells position to 2ª Vlookup 
     For iemailD = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, iemailD), "Email") Then 
     PosEmailD = iemailD - 1 
     End If 
     Next 
     For icardD = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, icardD), "CardNumber") Then 
     PoscardD = icardD - 1 
     End If 
     Next 
     For ihostD = 1 To Cells(1, 1).End(xlToRight).Column 
     If InStr(Cells(1, ihostD), "HostLogin") Then 
     PoshostD = ihostD - 1 
     End If 
     Next 
' Copy cells from Worksheet Data to WorkSheet Users 
    **With Sheets("Users").Range("A2", Sheets("Users").Cells(Rows.Count, "A").End(xlUp)) 
     .Offset(, PosEmail).Formula = "=VLOOKUP(A" & .Row & ",'Data'!$A:$I,(,""" & PosEmailD & """),FALSE)"** 
     .Offset(, 1).Value = .Offset(, 1).Value 
    End With 
    End If 
End Sub 

이것이 가능하다고 생각하십니까?

Answer 1

이 문제가되어야 VLOOKUP의 신택스로 표시 하였다 : 특히

VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)

를 col_index_num 파라미터 건설과. 따라서

... : $ I, "& PosEmailD &", FA ...

보다는

`... : $ I, (, "" "& PosEmailD & "" "), FA ...

것 같습니다.

(두 쌍의 큰 따옴표, 한 쌍의 괄호 및 쉼표 잉여).