永发信息网

Excel vba能不能处理文本文档

答案:4  悬赏:80  手机版
解决时间 2021-11-18 20:37
Excel vba能不能处理文本文档
最佳答案
给你一个例子自己学习一下,这是一个读写操作,基本过程就是
把已给路径的txt文件逐行读取到一个缓存里,但人为添加了回车换行,修改后,在会传到这个文件中

Public Sub TXTRWPractice()

Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String
' Edit as needed
sFileName = ActiveWorkbook.Path & "\123.txt"
iFileNum = FreeFile
Open sFileName For Input As iFileNum
'读取文件
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum
'修改文件

sTemp = Replace(sTemp, "DIM A", "1.75")
sTemp = Replace(sTemp, "DIM B", "2.00")
sTemp = Replace(sTemp, "DIM C", "3.00")
sTemp = Replace(sTemp, "DIM D", "4.00")
'Save txt file as (if possible)

'写回传文件

iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum
'Close Userform
'Unload UserForm1

End Sub
全部回答
可以,我就会!
肯定可以的
这个是可以的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
网页产品的首页设计 承载哪些功能
联通手机卡没欠费被暂停服务
晚上鲜羊奶煮熟以后放在冰箱早上拿出来喝会坏
锐仁固态硬盘性能怎么样?
浙建枫华紫园怎么样?好不好?值不值得买?
中国最早的驱逐舰是什么?
我这电脑配置 4800买的是不是被坑了
引申义写作文“朋友”
我家是蓬安开元乡的。老家很多荒山,现想在家
157sm显卡换硅脂怎么换
索尼XZ XP XC区别在哪
my body的英语语文
啄木鸟的腿短而有力,脚趾二趾向前,二趾向后
我有一张狐狸脸,为什么不能做狐狸精
我想找屠宰场宰杀一头猪,一头可以吗?
推荐资讯
己知m十4m的3次方等于6,求3m十l2m的3次方减去
福州大学,这就是所谓的“211”名校吗
5050RGB灯珠哪一家品牌质量可靠?有谁有参数
方程3x+6=2x-8移项后正确的是?
匹克和乔丹的鞋那个好
农村土地入市会给当地农民带来什么好处
五年级作文题目《一种熟悉的水果》400字
求《陌上花》by新醅饮雪,最好是发网盘链接,
小说男主角是方行的小说
训猴人要把7只桃子平分给3只猴子,但又不能把
买了一棵小灌木,叶子很小一个柄上三片,开了
什么时候用rain 什么时候用rainy 什么时候又
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?