[已解决]文本中含有要求中汉字的，就提取这一行到EXCEL表中

爱疯

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 Or Right(Op, 3) <> "txt" 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

复制代码

这样可以吗

wuliao_tao

爱疯 发表于 2012-2-11 10:51
这样可以吗

谢谢，正是我需要的。