Excel VBA質問箱 IV

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

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


20943 / 76732 ←次へ | 前へ→

【61197】Re:CVS出力
発言  n  - 09/4/15(水) 20:56 -

引用なし
パスワード
   普通にCSVで保存した後のCSVファイルの1行目を消したらいいんじゃないかと思いましたけど、
どうもC列が空白の場合は15行くらいしか『,』がつきませんね。
#CSVファイル保存の仕様でしたっけ?

とりあえずオーソドックスに
Sub test()
  Dim r As Range
  Dim n As Long
  
  n = FreeFile
  Open "d:\test.csv" For Output As #n
  For Each r In Range("A2", Range("A2").End(xlDown))
    Print #n, r.Value & "," & r.Offset(0, 1).Value & ","
  Next
  Close #n
End Sub
0 hits

【61191】CVS出力 MAKINA 09/4/15(水) 15:20 質問
【61197】Re:CVS出力 n 09/4/15(水) 20:56 発言
【61207】Re:CVS出力 MAKINA 09/4/16(木) 12:35 質問
【61209】Re:CVS出力 n 09/4/16(木) 13:17 発言
【61215】Re:CVS出力 MAKINA 09/4/16(木) 14:25 お礼
【61212】Re:CVS出力 Jaka 09/4/16(木) 13:59 発言
【61214】Re:CVS出力 MAKINA 09/4/16(木) 14:24 お礼

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