­ã´£³¡ªL

¥i¥H¥Îexcelª½±µ¶}±Ò¤å¦rÀÉ¡G

1. Sub TEST()
   
2. Dim MySht As Worksheet
   
3. Set MySht = ActiveSheet
   
4. MySht.UsedRange.Clear
   
5. Application.ScreenUpdating = False
   
6. With Workbooks.Open(ThisWorkbook.Path & "\­ìªo.txt")
   
7.      MySht.[A:G] = .Sheets(1).[A:G].Value
   
8.      .Close 0
   
9.      MySht.[A1:G1] = Split("¤é´Á ¦¬½L»ù ¶}½L»ù ³Ì°ª»ù ³Ì§C»ù ¥æ©ö¶q ¦Ê¤À¤ñ", " ")
   
10. End With
    
11. End Sub

½Æ»s¥N½X