Question

需要处理一批txt文本文件，用Tab分隔符分隔的。但不会用VBA编程，求大神

txt文件源数据是严格按Tab字符隔开的，求大神用EXCEL VBA 编个小程序处理下啊。需求就是保留第一列和第五列的数据 其他的删掉，然后另存一个新的excel文件到源文件所在文件夹里的一个子文件夹“结果”里。
ps：最好能注释下，本人没有编程基础，刚开始看VBA的书。
文件链接：http://pan.baidu.com/s/1nt4AXp3 密码：7xmi，这是用excel打开的样子。如果用其他编程也可以

Answer 1

有不理解的追问我

Sub txt_saveas_excel()

    Dim target_path As String

    Dim target_name As String

    Dim result_fName As String

    

    target_path = "D:\"

    target_name = "123.txt"

    '打开目标文件

    Workbooks.Open (target_path & target_name)

    '删掉第五列以后所有列，如果是以前excel版本可能没有16384列，把这个数值改小就可以了

    Range(Columns(6), Columns(16384)).Delete shift:=xlLeft

    '删掉2-4列，shift:=xlLeft可不要，默认就是向左

    Range(Columns(2), Columns(4)).Delete shift:=xlLeft

    '目标文件路径下的结果文件夹下，并把txt后缀换成xlsx后缀

    result_fName = target_path & "结果\" & Replace(target_name, ".txt", ".xlsx")

    

'    FileExtStr = ".xlsb": FileFormatNum = 50

'    FileExtStr = ".xlsx": FileFormatNum = 51

'    FileExtStr = ".xlsm": FileFormatNum = 52

'    FileExtStr = ".csv": FileFormatNum = 6

'    FileExtStr = ".txt": FileFormatNum = -4158

'    FileExtStr = ".prn": FileFormatNum = 36

    '文件另存，后缀不同用不同的格式代码

    ActiveWorkbook.SaveAs result_fName, 51

    '关闭文件，不用再保存

    ActiveWorkbook.Close False

    

End Sub

Answer 2

下面的代码满足你的需求：

Option Explicit
Sub YgB()
    Dim f
 '打开文件 
   f = Application.GetOpenFilename("TXT源文件,*.txt")
    Workbooks.Open f
 '删除A、F之外的列 
   Range("B:D").Delete
    Range("C:Q").Delete
 '另存为EXCEL文件 
   ActiveWorkbook.SaveAs f & ".xls"
End Sub