Excel中vba怎么获取一个TXT文件的固定行数据？

2024-11-16 02:17:42

推荐回答（3个）

回答（1）：

用正则表达式，按换行符分割，取出第10行
再将取出的第10行用正则表达式以不可见字符进行分割，就可以了

回答（2）：

刚才试了一下，你说的这种类型的txt好像可以直接用excel打开，所以我录了个宏，改了一下
你可以试试：

Sub 提取()
    Set zsht = ActiveSheet
    Workbooks.OpenText Filename:="d:\ABC.txt"
    Set mytxt = ActiveWorkbook
    zsht.Range("a1:d10").Value = ActiveSheet.Range("a1:d10").Value
    mytxt.Close
End Sub

这个宏是要先打开一个空表格，然后运行这个宏，会把txt当成表格打开，并A1：D10数值赋值给刚才打开的空表格

回答（3）：

用数组啊，这么多数据还用变量，out了