如何用VBA匯入CSV檔?

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

2^#

發表於 2011-9-6 16:43 | 顯示全部帖子

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

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

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

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

3^#

發表於 2011-9-28 15:01 | 顯示全部帖子

270710.rar (18.22 KB)
謝謝兩位的回覆,只是luhpro大大的寫法有點難,小的沒看懂多少,其實我只是想"匯入"CSV"檔,而不是"開啟"因為我要選擇"分隔符號",如"TAB鍵" "分號" "逗點" "空格" 等方法,還有就是匯入的行數,如這個檔案,我的分隔符號是 "逗點" 和 "空格",匯入的行數只是第2行和第5行,該怎麼寫呢?

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

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

4^#

發表於 2011-9-29 13:19 | 顯示全部帖子

本帖最後由 am0251 於 2011-9-29 13:25 編輯

謝謝回覆,可能是我表達的不是很好,這個檔案是我用"資料 - 從文字檔"的方法匯入的,"SHEET1"分隔符號是用了,"逗點" 和 "空格","SHEET2"就是我要的目的了,只有第2和第5行匯入了,我只是沒辦法寫出來........

Inport CSV.rar (122.98 KB)

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

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

5^#

發表於 2011-9-30 12:51 | 顯示全部帖子

謝謝回覆,可是我用"錄製"的方法得到了下面的巨集,有沒有辦法簡單的方法寫出來呢?

Sub csv()
'
' csv Macro
'
'
With ActiveSheet.QueryTables.ADD(Connection:= _
"TEXT;E:\Excel\270710.csv", Destination:=Range("$A$1"))
.Name = "270710"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 9, 9, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

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