来自文本文件的 Excel 数据源

【问题标题】：Excel data-source from text files来自文本文件的 Excel 数据源
【发布时间】：2014-04-09 16:32:57
【问题描述】：

我有多个从 Linux 创建并保存为选项卡式文本文件的报告。当我在 Excel 中打开更新的文本报告时，我发现自己一遍又一遍地执行相同的步骤（创建表格、设置过滤器、透视、创建图表等）。

有没有办法从文本文件创建电子表格，根据自己的喜好对其进行配置，并且将来能够根据我提供的新文本文件刷新数据集？文本文件格式保持不变，可以进行调整以适应 Excel。理想情况下，我宁愿在没有 VBA 的情况下执行此操作，但这是一个次要考虑。

【问题讨论】：

您可以通过Query Definition 创建一个“可刷新”表（使用您的自定义格式）。

标签： excel

【解决方案1】：

没有 VBA，我认为这很困难。你可以使用类似的东西：

Dim nLast As Integer
Workbooks.OpenText Filename:="E:\0\aa.TXT", Origin:=xlMSDOS, StartRow:=1 _
    , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
    , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
    TrailingMinusNumbers:=True
nLast = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("A1:B" & nLast).Select
Selection.Copy
Windows("Book1.xlsm").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

打开 Txt 文件，仅复制并粘贴模型文件中的值（带有数据透视表、图表 ...）
我工作表中的数据从 B7 开始。

【讨论】：