请教excel宏绝对路径问题

Question

求助大神呀，下面是一串vba代码
Sub ImportTXT()
'
    With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT; E:\data\pmtest\Sample of TXT pose.TXT“, Destination:=Range("$A$4"))
        '.CommandType = 0
        .Name = "Sample of TXT pose"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 862
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub想改成相对路径，以下为代码
Sub ImportTXT()
'
    With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;" & ThisWorkbook.Path & "\Sample of TXT pose.TXT""", Destination:=Range("$A$4"))
        '.CommandType = 0
        .Name = "Sample of TXT pose"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 862
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub
可是运行会报无法访问文件 ‘1004’样的错，请大神指点看看哪里出问题了不甚感激。

Answer 1

 "TEXT;" & ThisWorkbook.Path & "\Sample of TXT pose.TXT"""--
最后那两个引号有点多余了，去掉改成 "TEXT;" & ThisWorkbook.Path & "\Sample of TXT pose.TXT"保存一下，再重新打开EXCEL运行看看。