Excel VBA質問箱 IV

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

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


60254 / 76732 ←次へ | 前へ→

【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    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

よろしくお願いします。
1 hits

【21120】Excelにcsvファイル貼り付け時の処理 Aiz 05/1/12(水) 15:16 質問
【21121】Re:Excelにcsvファイル貼り付け時の処理 IROC 05/1/12(水) 15:23 回答
【21126】Re:Excelにcsvファイル貼り付け時の処理 Aiz 05/1/12(水) 16:42 質問
【21133】Re:Excelにcsvファイル貼り付け時の処理 IROC 05/1/12(水) 18:26 回答
【21148】Re:Excelにcsvファイル貼り付け時の処理 Jaka 05/1/13(木) 11:51 回答
【21165】Re:Excelにcsvファイル貼り付け時の処理 Aiz 05/1/13(木) 17:11 お礼

60254 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free