Question

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

有没有办法从文本文件创建电子表格，根据自己的喜好进行配置，以后能否根据我提供的新文本文件刷新数据集？文本文件格式保持不变，可以调整以适应Excel。理想情况下，我更愿意在没有VBA的情况下这样做，但这是一个小问题。

Answer 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开始。

来自文本文件的Excel数据源

1 个答案: