Excel:VBA:サンプル:CSVファイルを読み込みシートに展開 - mo.ro.雑記

教えてくれと言われ説明用に組んだ、CSVをファイルを読み込んでシートに展開するVBAサンプル。 何かに使えるかもしれないので残しておこうかと。 CSVの一つめの要素は8byteの日付とのことで、これを曜日付きの日付に変換、も合わせて。 Sub loadCsvFile() Dim fno As Integer Dim fileName As String Dim lineBuff As String Dim csvFields As Variant ' csvの全要素 Dim csvField As String ' csvの1データ Dim dateBuff As String ' 日付作成用 Dim dispBuff As String ' 表示用 Dim idxRow As Integer Dim idxCol As Integer