|
書き忘れた事と、テストして気が就いた事が有るのでUpして置きます
私の環境はWin98無印、Excel97です
1、vntFieldInfoのArrayで設定できるフィールドの数
私の環境では、53個までしか設定出来ませんでした
しかし、OpenTextの時と違って50以上の位置でも設定は出来ると思います
と言うより、私の環境では出来ました
2、「セルの書式設定」のプロシージャ「Sub CellsFormat」において
書式は都合の言い様に修正して下さい
現状では、1がG/標準、2が文字列、5が"yyyy/mm/dd"形式の日付、其れ以外は設定されません
もし、"yyyy/m/d"形式にしたければ、5の"yyyy/mm/dd"を変更するか、違う番号に登録して下さい
また、私の環境では、CSVファイルの日付フィールドがyyyy/mm/dd形式で記録されていれば、
セルの設定をしていなくても、yyyy/m/d形式で読み込まれています
したがって、"064"の様な物を、"64"に成らない様に文字列に設定するぐらいだと思います
3、「Sub ReadCsv()」で、
Set wksWrite = Nothing
の前に
wksWrite.Cells.EntireColumn.AutoFit
を入れて置けば、読み込み後、自動的にセル幅が内容に合わされます
4、「Sub ReadCsv()」で、
'読み込むファイル名を取得
' vntFileName = "CSVFILE"
' strPath = "C:\work"
vntFileName = "CSVTest1"
strPath = ThisWorkbook.Path
と有りますが、下の2行は私のテスト用で、
削除して、上の2行のコメントアウトを外して下さい
又、直接、ファイル名を指定するなら、
If Not GetReadFile(vntFileName, strPath) Then
Exit Sub
End If
を削除して、
vntFileName = "C:\work\CSVFILE.txt"
として下さい
5、アクティブシートに読み込まれるので、もし、OpenTextの様に新規のBookとして
読み込む様にしたければ
' Application.ScreenUpdating = False
の後に
Workbooks.Add
とすれば新規Bookが作成され其処に読み込まれます
|
|