返回列表下一主題上一主題發帖

Refresh BackgroundQuery:=False error

herhsiu

中學生 Rank: 2

帖子: 47
主題: 12
精華: 0
積分: 70
點名: 0
作業系統: WIN7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-7-28
最後登錄: 2021-12-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-22 10:03 | 只看該作者

Refresh BackgroundQuery:=False error

底下這段文字檔查詢,如果開啟檔案錯誤的話,之後就算再重新開啟正確檔案,程式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