VBA入门到进阶常用知识代码总结52

最新推荐文章于 2023-10-07 21:33:56 发布

tiansdk320

最新推荐文章于 2023-10-07 21:33:56 发布

阅读量642

点赞数 1

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104366295

版权

本篇博客详细介绍了VBA中读取TXT文件的四种方法：Input、Input #、Line Input #以及综合应用案例，包括从TXT文件中一次性读取内容、按行读取、读取Write写入的数据，并提供了具体的代码示例。

摘要由CSDN通过智能技术生成

第52集 Txt文件的读取
246、读取txt文件内容方法
Input：从文件中读取指定数量的字符
Input #：把数据读出放在变量里，变量用逗号分隔
Line Input #：取出完整的一行
247、 Input函数读取
Input 函数只用于以 Input 或 Binary 方式打开的文件
Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等
Sub d1()
On Error Resume Next
Dim f, mychar
f = ThisWorkbook.path & “/a.txt”
Open f For Input As #1
Do While Not EOF(1) ’ EOF:循环至文件尾，1：1号文件
mychar = Input(1, #1) ’ 1:读出1个字符,#1:1号文件。
Debug.Print mychar & “:” & Asc(mychar) ’ 显示到立即窗口并转化为ASCII码。
Loop
Close #1
End Sub

把文本文件的内容一次性取出来
Sub d2()
Dim f, mychar, n, L
f = ThisWorkbook.path & “/a.txt”
n = FreeFile '自动取得编号
Open f For Input As n
L = LOF(n) '取得文件的长度
mychar = Input(L - 6, n) '要减去中文字符的个数
Debug.Print mychar ’ 显示到立即窗口。
Close #1
End Sub
248、 Input #读取
Input 文件号