Refresh BackgroundQuery:=False error

herhsiu

底下這段文字檔查詢,如果開啟檔案錯誤的話,之後就算再重新開啟正確檔案,程式run到 .refresh BackgroundQuery:=False 這裡都會出現error(執行階段錯誤1004),請問該用什麼方法可以reset掉?謝謝~

        With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\server\" & Sheet2.text1 , _
        Destination:=Range("$A$1"))
        .Name = "test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .refresh BackgroundQuery:=False    End With

herhsiu

回復 2# GBKEE


    抱歉我貼錯,但這個case是開對檔案時都沒問題,開錯檔案出現錯誤時即使再重新開啟正確檔案還是會出現error,必須把檔案關閉再重開,有沒有辦法reset?

GBKEE

回復 1# herhsiu
網址有問題
Connection:=  "TEXT;\\server\" & Sheet2.text1
自己測試看看