前景提要(文末提供源码下载)
昨天我们分享了用vba来实现按照指行数写入同一行数据的方法，在某种程度适应了一些小伙伴的工作需要，不过还是那句话，做数据汇总的，总要面对各种千奇百怪的数据源，今天有小伙伴们给我发来一个问题，是这样的
希望能够是现在写入的过程中，按照指定的分隔符，也就是逗号“，”来进行分割，一行数据就写在同一行
场景简介
其实如果是单个文件，数据量不是很大的话，上面的情况可以通过导入/写入数据之后，在进行分列这样子实现效果的，如果按照我们之前的代码进行写入的话，也是需要再次操作数据的分列的，那么是否能够通过VBA代码一次到位呢？
代码区
Sub test()Dim pathnpathn = ActiveWorkbook.PathWith Application.FileDialog(msoFileDialogFilePicker) If .Show = -1 Then f = .SelectedItems(1) End IfEnd Withi = Cells(Rows.Count, 1).End(xlUp).RowWorkbooks.OpenText _ Filename:=f, _ StartRow:=1, _ DataType:=xlDelimited, _ Other:=True, _ OtherChar:="，

相信大家都知道VBA中的Split函数，那么在bat中是否有类似的功能呢？
正文
已有一个txt文本：将进酒·君不见.txt
对txt中每一行进行分割，分割符采用.，，.
分别输出文本文件，观察不同分割符的效果
代码
@echo offfor /f "delims=.， tokens=2" %%i in (将进酒·君不见.txt) do echo %%i>>1.txtfor /f "delims=. tokens=2" %%i in (将进酒·君不见.txt) do echo %%i>>2.txt
代码截图
结果文件
1.txt
2.txt
代码解读
delims=.，，指定了分隔符，这里指定了.和，为分割符
tokens=2,指定了分割后，取哪一个部分，分割后的第一部分为1，依次为2,3,4。
当省略delims参数，默认使用空格作为分割符；当省略tokens参数时，默认取第1部分for /f %%i in (将进酒·君不见.txt) do echo %%i>>3.txt
Ps：这里也指出之前写的一篇文章的错误，当一行中无空格时，for /f效果看起来就是逐行读出文本文件，但其实它就是读出空格分割后的第1部分

VBA：TXT转EXCEL



EXCEL版本：	2016


适用TXT样式：	固定分隔符规范TXT数据源


效果：

调用对话框选择打开TXT，设置TXT分割符，将转化文件保存到TXT文件同一目录下。如下图：






关于批量txt转化EXCEL：

可以结合Dir语句，遍历选定目下txt文件，再逐个转化成EXCEL文件。调用文件对话框选择目录语句如下：

Sub select_file_directory()
On Error Resume Next
Dim dig As Object
Set dig = Application.FileDialog(msoFileDialogFolderPicker)
With dig
	'从d盘下开始选择，也可以选择其他盘符。
	.InitialFileName = "d:\"
	.Show
	'文件目录
	file_directory = .SelectedItems(1)
End With
Set dig = Nothing
On Error GoTo 0
End Sub


转化代码如下：（感兴趣的朋友可以直接复制使用）

Sub txt_to_excel()
'关闭屏幕更新
Application.ScreenUpdating = False
Dim arr()
Dim brr
Dim sep, file_name As String
Dim file_path
Dim fso, f As Object
Dim col, row, i As Long

'设置txt分隔符
sep = "|"
Set fso = CreateObject("scripting.filesystemobject")
'调用文件对话框选择txt文件
file_path = Application.GetOpenFilename("TXT文件,*txt", 1, "请选择目标txt文件~")
If file_path = False Then MsgBox "您已经取消选择文件，点击结束程序~": End
file_name = Split(file_path, "\")(UBound(Split(file_path, "\")))
file_name = Split(file_name, ".")(0)
'从文件路径中截取txt文件名字，用于保存excel命名
Debug.Print file_name	

'如果不存在，怎创建该文件。第三个参数设置true。第二个参数，1是只读，2是写入，3是追加写入
Set f = fso.opentextfile(file_path, 1, True)
'如果文件指针位于 TextStream 文件末，则返回 True；否则如果不为只读则返回 False，只能以只读方式打开，不然会报错。
If f.atendofstream = False Then
    row = 1
    brr = Split(f.readline, sep)
    'txt数据一共有col列
    col = UBound(brr) + 1
    '动态数组只能修改最后一维，数组的第一位“行”固定了，只能到列上扩充，实际还是行坐标，这里还是定义变量row表示数组列。
    ReDim Preserve arr(1 To col, 1 To row)
    For i = 1 To col
    	'分割txt行，赋值到数组
        arr(i, row) = brr(i - 1)
    Next
End If
Do While f.atendofstream = False
    row = row + 1
    brr = Split(f.readline, sep)
    ReDim Preserve arr(1 To col, 1 To row)
    For i = 1 To col
        arr(i, row) = brr(i - 1)
    Next
Loop
'关闭txt对象
f.Close

'新建工作簿，保存txt内容
Set wb = Workbooks.Add
With ActiveSheet
	'转置数组，写入到单元格中。
    [a1].Resize(UBound(arr, 2), UBound(arr, 1)) = Application.WorksheetFunction.Transpose(arr)
End With
'保存工作簿
wb.SaveAs ThisWorkbook.path & "\" & file_name & ".xlsx"
'关闭工作簿
wb.Close True
'恢复屏幕更新
Application.ScreenUpdating = True
MsgBox "Convert successfully!"
End Sub 

微信公众号原文

系统：Windows 7



引言


相信大家都知道VBA中的Split函数，那么在bat中是否有类似的功能呢？




思考：实验设计


已有一个txt文本：将进酒·君不见.txt
对txt中每一行进行分割，分割符采用.，，.
分别输出文本文件，观察不同分割符的效果






代码



@echo off
for /f "delims=.， tokens=2" %%i in (将进酒·君不见.txt) do echo %%i>>1.txt
for /f "delims=. tokens=2" %%i in (将进酒·君不见.txt) do echo %%i>>2.txt

代码截图 



结果文件 

1.txt 



2.txt 





代码解读


delims=.，，指定了分隔符，这里指定了.和，为分割符
tokens=2,指定了分割后，取哪一个部分，分割后的第一部分为1。
当省略delims参数，默认使用空格作为分割符；当省略tokens参数时，默认取第1部分




for /f %%i in (将进酒·君不见.txt) do echo %%i>>3.txt



Ps：这里也指出之前写的一篇文章的错误，当一行中无空格时，for /f效果看起来就是逐行读出文本文件，但其实它就是读出空格分割后的第一部分



更多精彩，请关注微信公众号 

扫描二维码，关注本公众号