|
csvファイルを読み込んでExcelのファイルに貼り付ける処理で、csvファイルに書かれているデータを正しくExcelに出力できません。
読み込むcsvファイルの例はこちら↓
(1) (2) (3) (4) (5)
4 データ 82 デガ出スキャンニング 1200
4 データ 754 10MB追加 120000
4 データ 853 20MB追加 110000
読み込みが(4)の"10MB追加"というところで、Excel出力時には"10"だけしか出力されません。
これを次の"20MB追加"みたいに数字を全角にしてやると出力されるのですが、"10MB追加"のように半角でも表示させたいのです。
Excelファイルのマクロはこちら↓
'CSVファイルの内容を貼り付ける
Const csv2 = "ボディ部.csv"
Sub Auto_Open()
Dim fname As String
Dim fno As Integer
Dim col(0 To 4) As Variant
Dim i As Integer
'ファイル名
fname2 = ActiveWorkbook.Path & "\" & csv2
'CSVファイルの内容を貼り付ける(ボディ部)
fno = FreeFile
On Error GoTo file_not_found
Open fname2 For Input As #fno
On Error GoTo 0
l = 4
Do Until EOF(fno) ’-----ココの処理がおかしいと思われる。
Input #fno, col(0), col(1), col(2), col(3), col(4)
MsgBox col(3)
l = l + 1
Range(Cells(l, 2), Cells(l, 6)).Value = col
Loop
Close #fno
'オートフォーマット
Cells(4, 2).CurrentRegion.AutoFormat _
Format:=xlRangeAutoFormatLocalFormat3, _
Number:=False, _
Font:=False, _
Alignment:=False
'CSVファイルを削除する
'Kill fname2
Exit Sub
file_not_found:
MsgBox "CSVファイルが見つかりません", vbCritical + vbOKOnly, "システムエラー"
End Sub
よろしくお願いします。
|
|