来自文本文件的Excel数据源

来自文本文件的Excel数据源,excel,Excel,我有多个从Linux创建的报告,并保存为选项卡式文本文件。当我在Excel中打开更新的文本报告时,我发现自己一遍又一遍地执行相同的步骤(创建表、设置过滤器、透视、创建图表等) 有没有办法从一个文本文件创建一个电子表格,根据我的喜好进行配置,并且在将来能够根据我将提供的新文本文件刷新数据集?文本文件格式保持不变,可以调整以适应Excel。理想情况下,我更愿意在没有VBA的情况下这样做,但这是一个次要的考虑 没有VBA,我觉得很难。 您可以使用类似的方法: Dim nLast As Integer

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


有没有办法从一个文本文件创建一个电子表格,根据我的喜好进行配置,并且在将来能够根据我将提供的新文本文件刷新数据集?文本文件格式保持不变,可以调整以适应Excel。理想情况下,我更愿意在没有VBA的情况下这样做,但这是一个次要的考虑

没有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开始。

您可以通过
查询定义
创建“可刷新”表(使用自定义格式)。