☰

绕过 Excel 文件选择确认，以便与非 .txt 文本文件进行数据连接

tag-icon • tag-icon microsoft-excel microsoft-excel-2007 vba import
绕过 Excel 文件选择确认，以便与非 .txt 文本文件进行数据连接

我有一个 Excel 工作簿，用于处理来自另一个程序的模型输出。该程序生成空格分隔的纯文本输出文件，其中包含“.plt”扩展。我在 Excel 中有一个数据连接来导入这些数据，但它需要的点击次数比我想要的要多。目前的工作流程如下：

  1. 运行其他模型。
  2. 在 Excel 中，单击数据->全部刷新
  3. 在打开的文件对话框中，单击“文本文件 (*.prn、*.txt、*.csv)”
  4. 出现下拉菜单 - 单击：“全部文件 （*。*）”。
  5. 从列表中选择文件名（文件名永不改变 - 始终“输出.plt”）
  6. 选择“进口。”

从这里，它会记住数据连接的所有设置 - 位置、文本到列等。由于我的文件名从未改变，所以我希望它能记住我的文件的名称，所以我只需要点击一两次，而不是五次。

我尝试录制一个宏，完成所有这些步骤，但 VBA 中唯一显示的部分是ActiveWorkbook.RefreshAll

答案1

有一个选项可以提示输入文件名。

转到数据/连接，选择您的连接，单击属性。

在刷新控制部分下，在“使用情况”选项卡上，取消勾选“刷新时提示输入文件名”

答案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

相关内容