如何用VBA匯入CSV檔? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何用VBA匯入CSV檔?

返回列表下一主題上一主題發帖

如何用VBA匯入CSV檔?

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^# 跳轉到 »

發表於 2011-9-27 23:25 | 只看該作者

本帖最後由 luhpro 於 2011-9-27 23:27 編輯

有高手可以教我一下如何用VBA匯入CSV檔呢?還可以自選列和分隔的符號,謝謝~~!
am0251 發表於 2011-9-3 17:09

是底下這樣嗎?

Sub nn()
Call openCSV("123.txt", 3, 6, " ")
End Sub

複製代碼

Sub openCSV(ByVal sFileName$, lStartLine As Long, lLoadLine As Long, sChar$)
' sFileName : CSV檔案名稱, lStartLine : 開始列號, lLoadLine : 讀取列數, sChar : 分隔字元
Dim iI%
Dim sFullName$, sStr$
Dim lJ As Long, lPos As Long
Dim vData
sFullName = ThisWorkbook.Path & "\" & sFileName
If Dir(sFullName) <> "" Then
Open sFullName For Input Access Read Shared As #1
lJ = 1
Do While lJ < lStartLine
Line Input #1, sStr
lJ = lJ + 1
Loop
For lJ = 1 To lLoadLine
Line Input #1, sStr
ReDim vData(0)
vData = Split(sStr, sChar)
' 題外話 : Cells(lJ, 1).Resize(, UBound(vData) + 1) = Application.Transpose(vData) 此行結果不正確不知錯在哪裡, 只好改成以下這樣的迴圈...
For iI = 0 To UBound(vData)
Cells(lJ, iI + 1) = vData(iI)
Next iI
Next lJ
Close (1)
Else
MsgBox ("找不到 " & sFileName & " 檔案")
End If
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-9-27 17:45 | 只看該作者

回復 3# am0251
可是我只想匯入我想要的行數這樣的問法,很空洞的難怪沒人回答
要附上文字檔: 說明要搜尋的特定的字串? 如何匯入? 何時停止匯入?

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

3^#

發表於 2011-9-6 16:43 | 只看該作者

本帖最後由 am0251 於 2011-9-6 16:52 編輯

謝謝回復,開啟是沒問題,可是我只想匯入我想要的行數,又該怎麼寫呢?

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

2^#

發表於 2011-9-6 09:48 | 只看該作者

回復 1# am0251

是這個嗎?

sub openCSV()
dim mydir as string
mydir = thisworkbook.path & "\"
workbooks.opentext filename:=mydir & 123.txt, datatype:=xldelimited, comma:=true
end sub

複製代碼

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。

返回列表下一主題上一主題