- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 255
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-25
|
¦^´_ 7# hsiaohsien - Sub ex()
- Dim ar()
- fs = ThisWorkbook.Path & "\FWlog.txt"
- Open fs For Input As #1
- Do While Not EOF(1)
- Line Input #1, TextLine
- For Each a In Sheet2.[A1:A4]
- If InStr(TextLine, a) > 0 Then
- ReDim Preserve ar(s)
- ar(s) = TextLine
- s = s + 1
- End If
- Next
- Loop
- Close #1
- For i = 0 To UBound(ar)
- Sheet1.Cells(i + 1, 1) = ar(i)
- Next
- End Sub
½Æ»s¥N½X |
|