[已解决]请爱疯进入帮助一下，谢谢

wuliao_tao

以前请你帮助用VBA提取文本方法，如果文本000是这种类型的是否有办法提取。

0.rar (8 KB, 下载次数: 42)

2012-2-23 01:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-23 09:50

1. Sub test()
   
2.     Dim A() As String, B(), C
   
3.     Dim i&, j&, s&, Op
   
4.    
   
5.     '选取文本
   
6.     Op = Application.GetOpenFilename()
   
7.     If Op = False Then End
   
8.    
   
9.     '导入数组
   
10.     Open Op For Input As #1
    
11.     A = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
12.     Close #1
    
13.     ReDim B(1 To 66666, 0 To 9)    '预定大小，自行修改
    
14.    
    
15.     '筛选后输出
    
16.     For i = LBound(A) To UBound(A)
    
17.         If InStr(A(i), "新华书店") Then
    
18.             s = s + 1
    
19.             C = Split(A(i), Chr(9))
    
20.             For j = 0 To UBound(C)
    
21.                 B(s, j) = C(j)
    
22.             Next j
    
23.         End If
    
24.     Next i
    
25.     [a2].Resize(s, UBound(B, 2)) = B
    
26. End Sub

复制代码

这样，你得确保你选择的是文本文件，
否则，可能读取错误

跳转到最佳答案楼层

epexiaocheng

学习中.................

菜鸟锐

进来学习一下{:011:}

爱疯

1. Sub test()
   
2.     Dim A() As String, B(), C
   
3.     Dim i&, j&, s&, Op
   
4.    
   
5.     '选取文本
   
6.     Op = Application.GetOpenFilename()
   
7.     If Op = False Then End
   
8.    
   
9.     '导入数组
   
10.     Open Op For Input As #1
    
11.     A = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
12.     Close #1
    
13.     ReDim B(1 To 66666, 0 To 9)    '预定大小，自行修改
    
14.    
    
15.     '筛选后输出
    
16.     For i = LBound(A) To UBound(A)
    
17.         If InStr(A(i), "新华书店") Then
    
18.             s = s + 1
    
19.             C = Split(A(i), Chr(9))
    
20.             For j = 0 To UBound(C)
    
21.                 B(s, j) = C(j)
    
22.             Next j
    
23.         End If
    
24.     Next i
    
25.     [a2].Resize(s, UBound(B, 2)) = B
    
26. End Sub

复制代码

这样，你得确保你选择的是文本文件，
否则，可能读取错误