excel用vba自动提取指定txt文件中指定位置字符到excel指定单元格中

Question

如题所述

Answer 1

我刚刚编辑的，请试用。如下代码可实现提取第四行第四列的数据。

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

   

追问

比如我的路径在d盘名为1的文件夹下的123.txt该怎么改，在下不懂语法格式，请指教

追答

只有一个文件，那还是用什么VBA呀？

追问

这个文件是系统产生，内容每产生一次都会变化

追答Sub xxx()
Dim myText As String
Dim myString As String
Dim i As Single
i = 1
myText = "d\1\123.txt"
Open myText For Input As #1
myString = Split(Split(VBA.StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))(2), ",")(2) '3行第2个逗号后字符
Cells(i, 1) = myString
Close
End Sub

Answer 2

弄好了没，如果没弄好我来追问

没有，请高手帮助，感谢了

追答

加我，说话方便

Q314088595