如何用VB寫讀CSV檔?

劍痞憶秋年 · 2005-08-18, 11:22 PM

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) 即是每一個櫚位值
試看看吧,再改成泥要的結果

2005-08-18, 11:22 PM	#2 (permalink)
劍痞憶秋年長老會員榮譽勳章勳章總數4 UID - 15 在線等級: 註冊日期: 2002-12-06 住址: 步雲崖文章: 280 精華: 0 現金: 15847 金幣資產: 20867 金幣	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) 即是每一個櫚位值試看看吧,再改成泥要的結果
	__________________ 一切有為法如夢幻泡影如露亦如電應作如是觀
	送花文章: 150, 收花文章: 33 篇, 收花: 130 次

Google 提供的廣告