excel2010 mht單一網頁檔自動匯入問題

我有很多單一網頁檔(比如123.mht)要匯入的excel，我匯入到excel的方法是：
資料→從其它來源→從excel匯入資料→檔案類形選擇"所有檔案(*.*)"→點選123.mht→匯入→確定。

以上的步驟中因為excel預設的是xml檔，所以會看不到我要匯入的123.mht檔案，一定要先選擇"所有檔案(*.*)"才會看到我要匯入的123.mht。

我想要在巨集中做自動匯入的動作，錄製的結果如下，但會卡在第3行，我想應該是因為excel預設的是xml檔所以看不到mht檔案而讓程式無法向下執行，想請問是否有方法解決?

Sheets("Phy0").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;file:///C:/Program%20Files%20(x86)/Microsoft%20Office/Office14/QUERIES/123" _
, Destination:=Range("$A$1"))
.Name = "123"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With