Excel VBA 質問スレ Part63

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ d3d0-EPXH) 2019/09/16(月) 19:34:59.04 ID:emfTAhXr0]

!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part62
https://mevius.5ch.net/test/read.cgi/tech/1561303297/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-hFMq) 2019/09/16(月) 19:37:44.33 ID:oeAiWNxe0]

ぽこちん

[3 デフォルトの名無しさん (ﾜｯﾁｮｲ 7f01-bRiQ) 2019/09/16(月) 20:59:24.42 ID:dQXELjkB0]

ちんぽこ

[4 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-uS//) 2019/09/16(月) 21:35:06.62 ID:umLXld9Q0]

おつちん

[5 デフォルトの名無しさん (ﾜｯﾁｮｲ 7f79-j7/x) 2019/09/16(月) 21:37:35.26 ID:+LXKkUCe0]

糞レスで埋めるなら前スレのCSVファイルをQueryTablesで読むサンプル残しとく超参考になった
967 デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-Nl8y) sage ▼ New! 2019/09/13(金) 00:48:49.27 ID:VS8vqVEc0 [1回目]
文字列として読み込めば0は消えない
あとLineInputよりクエリのがずっと速い

サンプル

Sub CSVread()
　　With Worksheets("Sheet1")　'読み込むシート
　　With .QueryTables.Add(Connection:="TEXT;C:\tmp\test.csv", Destination:=.Range("A1"))　'ファイル名とセル位置
　　　　.TextFilePlatform = 932　'文字コード指定
　　　　.TextFileCommaDelimiter = True　'カンマ区切り指定
　　　　.RefreshStyle = xlOverwriteCells　'セルに上書き
　　　　.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat)　'各列を文字列に指定
　　　　.Refresh　'シートに読み込んで表示
　　　　.Delete　'クエリを切断
　　End With
　　End With
End Sub