Excel VBA質問箱 IV

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

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


49202 / 76732 ←次へ | 前へ→

【32449】Re:Array関数の要素追加法
回答  m2m10  - 05/12/15(木) 13:43 -

引用なし
パスワード
   こんちは
 
 これ↓でしたらセルの形式の変更で可能です。


Sub シートにCSV()
 '最終行の一つ下を確保
 行 = Range("A65536").End(xlUp).Offset(1).Row

FName ="d:\1121.csv"

 Open FName For Input As #1

 Do Until EOF(1)
 
  Line Input #1, dt01
  dt02 = Split(dt01, ",")
  For i = 0 To UBound(dt02)
   If Len(dt02(i)) <> 0 Then
    Cells(行, i + 1) = dt02(i)
   End If
  Next i
  行 = 行 + 1
 Loop
 
Close #1

End Sub
3 hits

【32443】Array関数の要素追加法 老初心者 05/12/15(木) 12:57 質問
【32449】Re:Array関数の要素追加法 m2m10 05/12/15(木) 13:43 回答

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