Excel VBA質問箱 IV

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

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


23429 / 76738 ←次へ | 前へ→

【58675】Re:CSV出力について
発言  kanabun  - 08/11/4(火) 15:20 -

引用なし
パスワード
   > Private Sub CommandButton1_Click()
>      ここにしたの構文を入れると思いますが
> End Sub
>  下の構文の何処を修正したらよいでしょうか?よろしくご指導お願いします。

あいや、、ぼくのアドバイスでは、そこにある方法は使わないです。

Private Sub CommandButton1_Click()
  '(1)新規Bookをシート枚数1枚で 追加する。

  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を
    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。

  '(3)新規BookをCSV形式で保存する

End Sub

これらはほとんどマクロ記録でコードが得られますから、
一度操作をマクロ記録されて得られたコードを理解されてはいかがでしょう

というのが、ぼくのアドバイスです。

なお、UserFormから処理をするなら、
指定範囲をクリップボードにCopyして、
UserFormについているDataObjectでクリップボードのTextを取得して、

Private Sub CommandButton1_Click()
 
  Worksheets("Sheet1").UsedRange.Resize(,8).Copy
  Open CSVファイルパス For Output As #1
  With New DataObject
   .GetFromClipboard
   .Print #1, Replace(.Text, vbTab, ",");
  End With
  Close #1

End Sub

とする方法もあります。
セルの値にカンマが含まれていないことが条件ですけど。

0 hits

【58669】CSV出力について お困りです 08/11/4(火) 14:05 質問
【58671】Re:CSV出力について kanabun 08/11/4(火) 14:29 発言
【58672】Re:CSV出力について お困りです 08/11/4(火) 15:02 質問
【58675】Re:CSV出力について kanabun 08/11/4(火) 15:20 発言
【58684】Re:CSV出力について お困りです 08/11/4(火) 16:57 質問
【58685】Re:CSV出力について アルファ 08/11/4(火) 17:12 発言
【58686】Re:CSV出力について kanabun 08/11/4(火) 17:37 発言
【58689】Re:CSV出力について お困りです 08/11/4(火) 19:40 質問
【58690】Re:CSV出力について kanabun 08/11/4(火) 20:37 発言
【58734】Re:CSV出力について お困りです 08/11/6(木) 10:35 お礼
【58747】Re:CSV出力について お困りです 08/11/6(木) 14:30 お礼

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