Excel VBA質問箱 IV

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

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


23414 / 76732 ←次へ | 前へ→

【58684】Re:CSV出力について
質問  お困りです  - 08/11/4(火) 16:57 -

引用なし
パスワード
   ▼kanabun さん:
>> 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
>
>とする方法もあります。
>セルの値にカンマが含まれていないことが条件ですけど。

ありがとうございます。
→.Print #1, Replace(.Text, vbTab, ",");
の構文がコンパイル・構文エラーと出てしまいます。
どうすればよいでしょうか?
お願いします。

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 お礼

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