Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23420 / 76738

←次へ　｜　前へ→


	【58684】Re:CSV出力について

お困りです - 08/11/4(火) 16:57 -


	引用なし

	パスワード

▼kanabun さん：
>> Private Sub CommandButton1_Click()
>> 　　　　　ここにしたの構文を入れると思いますが
>> End Sub
>> 　下の構文の何処を修正したらよいでしょうか？よろしくご指導お願いします。
>
>あいや、、ぼくのアドバイスでは、そこにある方法は使わないです。
>
>Private Sub CommandButton1_Click()
>　 '(1)新規Bookをシート枚数１枚で追加する。
>
>　 '(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