c_c_lai

¦^´_ 2# joey0415
´£¨Ñ§A°Ñ¦Ò¡G

1. Sub CSV_Import()
   
2.     Dim ws As Worksheet, strFile As String
   
3. 
   
4.     Sheets("ÀɮצWºÙ").Select
   
5.     Cells.Clear
   
6.    
   
7.     Set ws = ActiveSheet 'set to current worksheet name
   
8.     '  strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
   
9.     '  §A¤]¥i¥Hª½±µ«ü©wÀɮצWºÙ
   
10.     strFile = ThisWorkbook.Path & "\9962.csv"
    
11. 
    
12.     With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
    
13.          .TextFileParseType = xlDelimited
    
14.          .TextFileCommaDelimiter = True
    
15.          .Refresh
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 1# joey0415

1. Sub CSV_Import()
   
2.     Dim ws As Worksheet, strFile As String, i As Long
   
3.     Dim arr
   
4.    
   
5.     Sheets("ÀɮצWºÙ").Select
   
6.     Cells.Clear
   
7.    
   
8.     Set ws = ActiveSheet 'set to current worksheet name
   
9.     '  strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
   
10.     '  §A¤]¥i¥Hª½±µ«ü©wÀɮצWºÙ
    
11.     strFile = ThisWorkbook.Path & "\9962.csv"
    
12. 
    
13.     With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
    
14.          .TextFileParseType = xlDelimited
    
15.          .TextFileCommaDelimiter = True
    
16.          .Refresh
    
17.     End With
    
18.    
    
19.     arr = Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row)
    
20.     For i = LBound(arr, 2) To UBound(arr, 1)
    
21.         Debug.Print arr(i, 1) & ","; arr(i, 2) & ", " & arr(i, 3) & ", " & arr(i, 4) & ", " & arr(i, 5) & ";"
    
22.     Next i
    
23. End Sub

½Æ»s¥N½X