Hsieh

1. Sub nn()
   
2. fs = Application.GetOpenFilename
   
3. If fs = False Then Exit Sub
   
4. yn = MsgBox("是否開啟" & 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

複製代碼