大家好,本节分享使用VBA程序将Excel文件内容写入txt文件,运行程序后,将Excel文件中A列的内容逐行写入txt文件
效果演示
V B A 代码
代码如下:
代码的核心内容,首先获得有数据的代码的单元格地址,将单元格的内容赋值给数组。获得本文件地址,在同文件夹下生成txt文件,通过循环将数组中的数据写入txt文件中,保存。
Sub test1()
Dim m As Long, n As Long, p As Long, q As Long
Dim Name1 As String, Mypath As String, Temp, Save_file, Ss
Dim Arr1()
'判断A列数据的最后一行
m = Range("a1048576").End(xlUp).Row
'转为数组
Arr1 = Range("a1:a" & m)
'输出文件的名称
Name1 = "测试"
'获得文件路径
Mypath = ThisWorkbook.Path
'保存txt文件路径,可修改名称
Save_file = Mypath & "\" & Name1 & ".txt"
Ss = ""
'循环得到数组中数据组成字符串
For p = LBound(Arr1) To UBound(Arr1)
'行内数据分隔,制表符
Temp = Join(Application.Index(Arr1, p), vbTab)
'换行
Ss = Ss & Temp & vbCrLf
Next
'写入txt文件
Open Save_file For Output As #1
Print #1, Ss
Close #1
End Sub
本文分享自 Excel和Access学习笔记 微信公众号,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体同步曝光计划 ,欢迎热爱写作的你一起参与!