Dim P As String
Dim III As Integer, JJJ As Integer
Dim JetTemp$
Dim AA$()
With CommonDialog1
.CancelError = True
.Flags = cdlOFNOverwritePrompt
.DialogTitle = "選擇儲存路徑及檔名"
.Filter = "Excel CSV File (*.csv)|*.csv"
.InitDir = "c:\"
.FileName = "Out" & ".CSV"
.ShowOpen
P = .FileName
End With
If Dir(P) = "" Then Exit Sub
III = FreeFile
Open P For Input As #III
Do While Not EOF(III)
Line Input #III, JetTemp$
AA() = Split(JetTemp, ",")
For JJJ = LBound(AA) To UBound(AA)
Debug.Print JJJ & "=" & AA(JJJ)
Next JJJ
Loop
Close #III
在迴圈中的 AA(JJJ) 即是 每一個櫚位值
試看看吧,再改成泥要的結果
|