如何使用Replace把xls的文件路径替换为txt文本形式？

作者：绿色风分类：时间：2022-08-17 浏览：161

楼主
wise

Q:如何使用Replace把xls的文件路径替换为txt文本形式？
A：ALT+F11→插入模块→输入以下内容：

Sub mrco1()
Dim arr, i&, j&, str$
'定义变量
Open Replace(ThisWorkbook.FullName, "xls", "txt") For Output As #1
'把当前的文件后缀为xls修改为txt后缀,并以顺序输出方式打开文件
arr = Range("A2:I" & Cells(Rows.Count, 9).End(xlUp).Row)
'选取A2到I列最后的数据区域
For i = 1 To UBound(arr)
'循环数组的行
str = ""
'str初始化
For j = 1 To UBound(arr, 2)
'循环数组的列
str = str & arr(i, j) & "|"
Next j
Print #1, str
'把内容输入文件
Next i
Close #1
'关闭文件
End Sub

另存为文本.rar

2楼
0Mouse

xls改成txt可以用
Sub t()

Dim f$
f = ThisWorkbook.FullName
MsgBox Left(f, Len(f) - 3) & "txt"
End Sub

不过还是觉得

Replace(ThisWorkbook.FullName, "xls", "txt")

这一句简洁有力，学习！

3楼
纵鹤擒龙水中月

受教了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表