excel vba 读入txt 并拆分
答案:2 悬赏:20 手机版
解决时间 2021-04-01 18:29
- 提问者网友：像風在裏
- 2021-04-01 14:57
excel vba 读入txt 并拆分
最佳答案
- 五星知识达人网友：冷風如刀
- 2021-04-01 16:17
代码前面加两句就好，直接选择文件更方便：
Sub bb()
Dim a, b, k%, i%, j%, q%, FiName
FiName = Application.GetOpenFilename("请选择文本文件,*.txt")
If FiName = False Then Exit Sub
Open FiName For Input As #1
…………
Sub bb()
Dim a, b, k%, i%, j%, q%, FiName
FiName = Application.GetOpenFilename("请选择文本文件,*.txt")
If FiName = False Then Exit Sub
Open FiName For Input As #1
…………
全部回答
- 1楼网友：低血压的长颈鹿
- 2021-04-01 17:02
前面加输入框，输入文件路径即可 ：Sub bb()
Dim a, b, x, k%, i%, j%, q%
x = InputBox("输入文档所在路径：", , "e:/file") '增加输入路径
Open x & "/" & "a.txt" For Input As #1 '打开路径加文件名
。。。以下接你原来的处理
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯