Excel 2010에서 런타임 오류 1004 새로 고침 BackgroundQuery 새로 고침

Question

여러 텍스트 파일을 가져 와서 한 장의 Excel 파일로 가져오고 하나의 그래프로 그리는 스크립트를 작성하는 중입니다. 에 문제가 있습니다. BackgroundQuery를 새로 고칩니다. 1004 런타임 오류가 발생합니다.

어떻게 해결할 수 있습니까? 당신이 인용 된 문자열 안에 경로와 파일 이름 변수를 사용하려고 같은

Sub fring1() 

    Dim fpath As String 
    Dim fname As String 
    Dim i As Integer 

    fpath = "C:\Users\epinkas\Desktop\Yossi\" 
    fname = fpath & "*.txt" 

    Name = Dir(fname) 
    While Name <> "" 

     With Sheet1.QueryTables.Add(Connection:= _ 
      "TEXT;fpath & Name", _ 
      Destination:=Range("$A$1")) 
      .Name = fpath & Name 
      .FieldNames = True 
      .RowNumbers = False 
      .FillAdjacentFormulas = False 
      .PreserveFormatting = True 
      .RefreshOnFileOpen = False 
      .RefreshStyle = xlInsertDeleteCells 
      .SavePassword = False 
      .SaveData = True 
      .AdjustColumnWidth = True 
      .RefreshPeriod = 0 
      .TextFilePromptOnRefresh = False 
      .TextFilePlatform = 437 
      .TextFileStartRow = 1 
      .TextFileParseType = xlDelimited 
      .TextFileTextQualifier = xlTextQualifierDoubleQuote 
      .TextFileConsecutiveDelimiter = False 
      .TextFileTabDelimiter = True 
      .TextFileSemicolonDelimiter = False 
      .TextFileCommaDelimiter = False 
      .TextFileSpaceDelimiter = False 
      .TextFileColumnDataTypes = Array(1) 
      .TextFileTrailingMinusNumbers = True 
      .Refresh BackgroundQuery:=False 
     End With 
     ActiveSheet.Shapes.AddChart.Select 
     ActiveChart.ChartType = xlXYScatterSmoothNoMarkers 
     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$A$1356") 

     Name = Dir() 
    Wend 

End Sub 

Answer 1

것 같습니다 :

덕분에, Eyal 님

여기 내 코드입니다. 변수를 인용 문자열에 연결하십시오.

With Sheet1.QueryTables.Add(Connection:= _ 
     "TEXT;" & fpath & Name, _ 
     Destination:=Range("$A$1")) 

변수 이름이 아닌 변수 값을 문자열에 넣어야합니다.