码迷,mamicode.com
首页 > 其他好文 > 详细

VBA读取可选择文件夹下可选择txt文件内容

时间:2014-07-18 14:29:21      阅读:149      评论:0      收藏:0      [点我收藏+]

标签:os   文件   数据   io   for   c   

Sub OneTxt() ‘打开一个txt文件
Dim Filename As Variant, extLine&, mArr() As String
Dim i%, j%
ChDir ThisWorkbook.Path
Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True)
j = 1
For k = 1 To UBound(Filename)

If Filename(k) = False Then Exit Sub ‘最后一个选项MultiSelect等于false表示只能选择一个文件,如下面的等于true可以选择多个文件
‘选择多个文件的时候是一个数组,需要循环打开,一个的时候就是字符串

With Worksheets("sheet1")
‘.Cells.ClearContents ‘删除第一个表的内容
Open Filename(k) For Input As #1 ‘ 以只读的方式打开文件,参考open方法的帮助
Do While Not EOF(1) ‘ 循环至文件尾。
Line Input #1, TextLine ‘ 读入一行数据并将其赋予某变量
mArr = Split(TextLine, ",") ‘按空格分开这个字符,循环赋值给单元格
For i = 0 To UBound(mArr)
.Cells(j, i + 2) = mArr(i) ‘此处参考split函数的帮助
Next i
.Cells(j, 1) = Dir(Filename(k)) ‘等于文件名
j = j + 1
Loop

Close #1 ‘ 关闭文件。

 

End With
Next k
End Sub

VBA读取可选择文件夹下可选择txt文件内容,布布扣,bubuko.com

VBA读取可选择文件夹下可选择txt文件内容

标签:os   文件   数据   io   for   c   

原文地址:http://www.cnblogs.com/flyrain/p/VBA_TXT2.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!