Hsieh

¦^´_ 1# a703130

§Aªº¥D­n¥\¯à¬O­nŪ¨úTest.iniÀɮפº®e¨ìTest¤u§@ªíªºA:CÄæ¶Ü?
ÁÙ¬O­n¼g¤J¤u§@ªíDATAªºEÄ檺­È?
¥H¼g¤JData¤u§@ªíEÄ欰¨Ò

1. Sub ghost()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. fs = ThisWorkbook.Path & "\Test.ini"
   
4. r = 1
   
5. Open fs For Input As #1
   
6. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
7.     Line Input #1, TextLine    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
   
8.     ar = Split(TextLine, Chr(9)) ' ¼g¤J°}¦C¡C
   
9.     If ar(1) = "" Then
   
10.        mystr = ar(0)
    
11.        Else
    
12.        d(mystr & ar(0)) = ar(2)
    
13.     End If
    
14. Loop
    
15. Close #1    ' Ãö³¬ÀɮסC
    
16. With Sheets("Data")
    
17.    For Each a In .Range(.[D2], .[D2].End(xlDown))
    
18.        mystr = "[" & Application.Lookup("ùÕ", .Range(.[B2], a.Offset(, -2))) & "]"
    
19.        a.Offset(, 1) = d(mystr & a)
    
20.     Next
    
21. End With
    
22. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# a703130

1. Sub SaveToINI()                             '¥t¦s¬° ini ÀÉ
   
2. Open ThisWorkbook.Path & "\Test.ini" For Output As #1
   
3. With Sheet2
   
4. For Each a In .Range(.[A1], .[A65536].End(xlUp))
   
5.       mystr = Join(Application.Transpose(Application.Transpose(a.Resize(, 3).Value)), Chr(9))
   
6. Print #1, mystr
   
7. Next
   
8. End With
   
9. Close #1
   
10.     Sheets("Data").Select
    
11. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# a703130

    ¤£À´©Ò¿×®æ¦¡·|¶]±¼¬O¬Æ»ò·N«ä
§Ú¸Õ¤F¨S³o±¡§Î

¤U¸ü (331.21 KB)

2012-3-23 14:11