|
楼主 |
发表于 2015-1-7 15:05
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
自己也捣鼓了一个,感觉有些山寨,请各位专家赐教
Public Sub abc()
Dim filename, inputstring As String
Dim i As Integer
Dim data
i = 1
j = 1
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = True Then
filename = .SelectedItems(1)
End If
End With
'filename = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1) '本列TXT文件
Open filename For Input Access Read As #1
Cells(j, 1) = "序号"
Cells(j, 2) = "MAS编码"
Cells(j, 3) = "图号"
Cells(j, 4) = "版本"
Do While Not EOF(1)
Line Input #1, inputstring '读TXT文件一行
data = inputstring
If i <> 1 Then
If IsNumeric(Left(data, 3)) Then
Cells(j + 1, 1) = Left(data, 3) '截取从第11个字符后6个字符
Cells(j + 1, 2) = Trim(Mid(data, 6, 25))
If Left(Cells(j + 1, 2), 4) = "0371" Then
Cells(j + 1, 3) = Mid(Cells(j + 1, 2), 5, 5) & "-" & Mid(Cells(j + 1, 2), 10, 5)
Cells(j + 1, 4) = Mid(Cells(j + 1, 2), 15, (Len(Cells(j + 1, 2)) - 14))
End If
j = j + 1
End If
End If
i = i + 1
Loop
Close #1
End Sub
|
|