繞過 Excel 檔案選擇確認以與非 .txt 文字檔案進行資料連接

Question

我有一個 Excel 工作簿，用於處理另一個程式的模型輸出。該程式產生以空格分隔的純文字輸出文件，其中包含“.plt”擴大。我在 Excel 中有一個數據連接來導入這些數據，但它需要的點擊次數比我想要的要多。目前工作流程是這樣的：

1. 運行其他模型。
2. 在 Excel 中，按一下“資料”->“全部刷新”
3. 在開啟的檔案對話方塊中，按一下“文字檔（*.prn、*.txt、*.csv）”
4. 出現下拉式選單 - 點選：“全部文件 （*。*）”。
5. 從清單中選擇檔案名稱（檔案名稱永遠不會改變 - 始終“輸出.plt”）
6. 選擇“進口。”

從這裡開始，它會記住資料連接的所有設定- 位置、文字到列等。或兩次點擊次數，而不是 5 次。

我嘗試錄製一個宏，完成所有這些步驟，但 VBA 中顯示的唯一部分是ActiveWorkbook.RefreshAll

Answer 1

有一個選項提示輸入檔名。

轉到數據/連接，選擇您的連接，點擊屬性。

在「刷新控制」部分下的「使用」標籤上，勾選「刷新時提示輸入檔案名稱」方塊

Answer 2

Dim File_Path As String
File_path=" C:\Users\owner\John\Output.plt"
Open File_Path for Input as #1
row_num= 5
Do until EOF(1)
Line Input #1, Line_FromFile
Line_Items = Split(Line_FromFile, ",")
Range("C"&row_num).Value = Line_Items(2)
Range("B"&row_num).Value = Line_Items(1)
Range("A"&row_num).Value = Line_Items(0)
row_num = row_num + 1
Loop
Close #1