[µo°Ý] ¨D±Ï!!!¶×¤J¥~³¡¸ê®Æ°ÝÃD

Justin_wang

½Ð¦n¤ßªº¤j¤j±Ï±Ï§Ú¤Ú!!

1.§Æ±æ³]­p¤@­Ó«ü¥O«ö¶s¥i¥H°õ¦æ¥¨¶°.
2.¶×¤J¥~³¡¸ê®Æ«á¡Aµ¥«Ý¤H­û¿ï¾Ü­n¶×¤JªºÀɮסC(¤£­n«ü©w¯S©wÀɦW¡A»Ý­n¤H­û¿ï©wÀÉ®×)
3.·í¿ï©w¦nÀɮסA«ö¤U¶}±Ò«á¡A·|¸õ¥X¤@­Óµøµ¡´£¿ô°T®§¡A°T²ß¤º®e¬°: ½T»{§A­n¶×¤JÀɮ׬°xxxxx
  ¤§«á¦³YES/NOµ¹¤H­û¿ï¨ú¡A«ö¤UYES­È°õ¦æ¶×¤JªºÀÉ®×.
4.¶×¤J¤è¦¡¦p¤U
4-1.³æµ§¶×¤J.
4-2.¶×¤J¥þ³¡¤º®e
4-3.¶×¤J¦b"­ì¦³"ªº¬¡­¶Ã¯¤W¦WºÙ¬°"¥Í²£data".(¤£»Ý­n¦A·s«Ø¬¡­¶Ã¯)
4-4.¸ê®Æ½s±Æ¥H"³r¸¹"§@°Ï¹j

ªþ¥ó¬°°Ñ¦Ò¸ê®Æ

Hsieh

1. Sub nn()
   
2. fs = Application.GetOpenFilename
   
3. If fs = False Then Exit Sub
   
4. yn = MsgBox("¬O§_¶}±Ò" & fs, vbYesNo)
   
5. If yn = 6 Then
   
6. r = 1
   
7. Open fs For Input As #1
   
8. Sheets("¥Í²£data").Cells.ClearContents
   
9. Do Until EOF(1)
   
10. Line Input #1, mystr
    
11. ar = Split(mystr, ",")
    
12. Sheets("¥Í²£data").Cells(r, 1).Resize(, UBound(ar) + 1) = ar
    
13. r = r + 1
    
14. Loop
    
15. Close #1
    
16. End If
    
17. End Sub

½Æ»s¥N½X

Justin_wang

¤j¤j!!!!
·PÁ§A!!!!