VBA中实现Txt文本内容切分，贴到excel中

最新推荐文章于 2024-07-30 10:54:14 发布

IT厨子

最新推荐文章于 2024-07-30 10:54:14 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

文章标签： VBA中Txt文件粘贴到Excel中

本文链接：https://blog.youkuaiyun.com/Yorking_ding/article/details/90044737

使用VBA编写子函数subReadDBTxt，将TXT文件中的数据按行读取，并粘贴到Excel特定单元格中，用于数据对比和查找差分。通过while循环处理文件内容，结合break语句控制流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA中实现Txt文本内容切分，贴到excel中cell列中

※Txt文件中的内容是从DB中导出的文本数据。在Excel中做数据对比时，找出相应的差分。
同时，VBA中while语句的Break功能的实现。

‘#子函数定义’
private sub subReadDBTxt（FileName as String)
Dim StarRng As Range '定义Excel中粘贴的开始位置
Dim txtPath as String, nextLine As string
Dim WriteFlg As Boolean， OpenFlg as Boolean
Dim i%, j%
Dim sheetName as string
'txtPath=“C:\test\abcdefg.txt”
Open FileName For Input As #1
WriteFlg = False
OpenFlg = False

Do while Not EOF(1)
	on Error Resume Next
	Line input #1, nextLine
	if nextLine = "" then
		WriteFlg = False
		OpenFlg = False
		goto CONTINUE
	end if

	if InStr(nextLIne, "sheet1") > 0 then
		sheetName="sheet1"
		goto CONTINUE
	elseif InStr(nextLIne, "sheet2") > 0 then
		sheetName="sheet2"
		goto CONTINUE
	End If
	if InStr(nextLIne, "----------------------") > 0 then 'Oracle 中DB导出时带有的分隔符
		WriteFlg = True
		goto CONTINUE
	end IF
	if WriteFlg = True then
		if  OpenFlg = False then
			worksheets(s