如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列？ 15
1个回答
展开全部
可以使用如下的代码，复制如下代码到VBA模块中运行即可。
如下代码代表4行4列，如果其余行或列数则可更改相应的数字。
具体步骤如下：
打开office excel；
Alt+F11打开VBA编辑器；
复制如下代码到模块中；
F5运行该模块；
按照提示进行如下步骤即可。
Sub xxx()
Dim myFile As String
Dim myText As String
Dim myString As String
Dim i As Single
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
myFile = .SelectedItems(1)
End With
myText = Dir(myFile & "\" & "*.txt")
Do While Len(myText) <> 0
Open myFile & "\" & myText For Input As #1
myText = Split(Split(VBA.StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列，如果其余行或列数则更改相应的数字
Debug.Print myText
Close
myText = Dir
Loop
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
