VBA实例3-创建并将内容写入 txt 文件
2023-06-13 09:15:01 时间
大家好,本节分享使用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
相关文章
- SQL注入实例学习待整理
- c语言程序设计实例-经典C语言程序设计100例
- 【Android 逆向】使用 Python 代码解析 ELF 文件 ( PyCharm 中进行断点调试 | ELFFile 实例对象分析 )
- linux文件管理命令实例分析【显示、查看、统计等】
- Oracle 如何规范清理v$archived_log记录实例详解
- MySQL建表实例:一步一步带你搞定(mysql建表例子)
- 快速上手:PDO MySQL实例教程(pdomysql实例)
- java实现文件复制和格式更改的实例
- .NET创建、删除、复制文件夹及其子文件的实例方法
- aspnetpager重写url(伪静态)配置实例
- Java创建文件夹及文件实例代码
- asp.netC#实现下载文件的六种方法实例
- c#文件的复制,移动,创建(实例代码)
- C#Linq读取XML文件的实例
- asp.netStreamReader创建文件的实例代码
- ExtJS实现文件下载的方法实例
- c#代码自动修改解决方案下任意文件实例
- JS实现侧悬浮浮动实例代码
- C#实现json的序列化和反序列化实例代码
- 免费的ip数据库淘宝IP地址库简介和PHP调用实例
- 在Node.js中实现文件复制的方法和实例
- Perl访问MSSQL并迁移到MySQL数据库脚本实例
- C#基于DBContext(EF)实现通用增删改查的REST方法实例
- PHP与MYSQL中UTF8编码的中文排序实例
- php多个文件及图片上传实例详解
- php一行代码获取文件后缀名实例分析
- mysqlinsert语句操作实例讲解
- Nodejs中读取中文文件编码问题、发送邮件和定时任务实例
- python中os操作文件及文件路径实例汇总
- PHP对文件进行加锁、解锁实例
- php+mysqli事务控制实现银行转账实例
- 四个常用的.NET的SQLHELPER方法实例