GBKEE

¦^´_ 1# wsx24680

¤U¸ü (71.5 KB)

2010-6-15 16:33

GBKEE

¦^´_ 3# wsx24680

1. Sub Ex()
   
2.     Dim MyString, C%, R%, Ar
   
3.     C = 2: R = 1
   
4.     Open "D:\TEST\¤å¦r¤å¥ó.TXT" For Input As #1    ' ¶}±Ò¿é¤JÀɮסC
   
5.   Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
6.         Input #1, MyString ',±N¸ê®ÆŪ¤JMyNumberÅܼƤ¤¡C
   
7.             If InStr(MyString, "=") Then
   
8.                 Ar = Split(MyString, Chr(9))
   
9.                 Cells(R, C) = Ar(0)
   
10.                 Cells(R, C + 1) = Split(Ar(1), "=")(0)
    
11.                 Cells(R, C + 2) = "="
    
12.                 Cells(R, C + 3) = Split(Ar(1), "=")(1)
    
13.                 R = R + 1
    
14.                 If R >= 20 Then R = 1: C = C + 6
    
15.             End If
    
16.     Loop
    
17.     Close #1    ' Ãö³¬ÀɮסC
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# q88007


    µ{¦¡½X¦³­×§ï¶Ü?  ¦p¦³½Ðªþ¤W

GBKEE

¦^´_ 8# Hsieh
Hsieh ªO¥D §A«Å§ifs$ ¬°¦r¦ê«¬ºA  
If fs = False Then MsgBox "½Ð¿ï¾Ü¤å¦rÀÉ": Exit  Sub  
·|²£¥Í [«¬ºA¤£²Å] ªº¿ù»~ ­×¥¿¦pµ{¦¡½X

1. Dim Ar(), Mystr$, a$, s&, k%, fs$
   
2. Cells = ""
   
3. fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
   
4. If fs = "False" Then MsgBox "½Ð¿ï¾Ü¤å¦rÀÉ": Exit Sub

½Æ»s¥N½X

¦^´_ 7# wsx24680
½Ð°Ñ¦Ò¥t¤@­Ó¶}±ÒÀɮתº¼gªk

1. Sub Ex()
   
2.     Dim Ar(), Mystr$, a$, s&, k%, fs$
   
3.     With Application.FileDialog(msoFileDialogOpen)
   
4.         .Title = "´M§ä¤å¦rÀÉ"
   
5.         .AllowMultiSelect = False   '¥u·Ç³\¿ï¨ú¤@­ÓÀÉ®×
   
6.         .ButtonName = "¶}±ÒTxtÀÉ"
   
7.         .InitialFileName = "d:\test\*.txt"  '³]©wÀɮשҦbªº¸ê®Æ§¨ ¤Î°ÆÀɦW
   
8.         If .Show = False Then
   
9.             MsgBox "½Ð¿ï¾Ü¤å¦rÀÉ": Exit Sub
   
10.         Else
    
11.             fs = .SelectedItems(1)
    
12.         End If
    
13. End With
    
14. k = 2
    
15. Open fs For Input As #1
    
16. Do While Not EOF(1)
    
17. '
    
18. '
    
19. Loop
    
20. If s > 0 Then Cells(1, k).Resize(s, 4).Value = Application.Transpose(Application.Transpose(Ar))
    
21. Close #1
    
22. End Sub

½Æ»s¥N½X