Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60258 / 76736

←次へ　｜　前へ→


	【21120】Excelにcsvファイル貼り付け時の処理

Aiz - 05/1/12(水) 15:16 -


	引用なし

	パスワード

csvファイルを読み込んでExcelのファイルに貼り付ける処理で、csvファイルに書かれているデータを正しくExcelに出力できません。
読み込むcsvファイルの例はこちら↓
(1)　　　 (2)　　　　　(3)　　　　　　(4)　　　　　　　　　　　　　 (5)
4　　　　データ　　　　82　　　　デガ出スキャンニング　　 1200
4　　　　データ　　　　754　　　　10MB追加　　　　　　　　 120000
4　　　　データ　　　　853　　　　２０MB追加　　　　　　　 110000

読み込みが(4)の"10MB追加"というところで、Excel出力時には"10"だけしか出力されません。
これを次の"２０MB追加"みたいに数字を全角にしてやると出力されるのですが、"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

よろしくお願いします。

0 hits

▼

【21120】Excelにcsvファイル貼り付け時の処理 Aiz 05/1/12(水) 15:16

≪