VBA问题路过的进来看看，我想把文件夹内所有TXT文件打开并

VBA问题路过的进来看看，我想把文件夹内所有TXT文件打开并执行一些操作怎么写代码呢，遍历函数可以用吗？

easy

不感兴趣

开通SVIP免广告

我去查查，

vba有一套完整的对文本文件操作的指令，open,close,input,write等等。总体来说你要是对循环比较熟，学习来就不难。只是因为大家平时很少会用到文本文件，真要写代码，那还是要好好认真琢磨一番的。

我有一个文件夹内的数据是TXT格式的需要提取出来一列写入到工作表中，就是不会循环在这卡着呢

就是将文本导入表格，分列提取某一列第一个到最后一个数据，……

还有人吗？

不感兴趣

开通SVIP免广告

VBA文件相关的东西比较复杂，一般都教程也就简单介绍dir,open,close,copy等的用法而已。貌似还有一个比较复杂的FileSystemObject对象，没怎么研究。

难道非叫我用goto呢

'打开txt文件，并打印出txt数据内容
Public Sub opentxt()
Dim filePath As String
Dim tempText As String
'选择要读取的文件
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "txt 文件", "*.txt", 1 '筛选txt文件
If .Show = -1 Then
filePath = .SelectedItems(1)
Else
Exit Sub
End If
End With
'打开读取文件流
Open filePath For Input As #1
Do While Not EOF(1)
'逐行读取txt文件
Line Input #1, tempText
'将每行的数据显示在立即窗口
Debug.Print tempText
Loop
'关闭文件
Close #1
End Sub

该楼层疑似违规已被系统折叠查看此楼

感谢，我先试着修改一下，有问题再请教!

顶一下，

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

39回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六