Excel VBA質問箱 IV

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

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


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

20013 / 76790

←次へ　｜　前へ→


	【62202】Re:エクセル出力

kanabun - 09/6/30(火) 15:58 -


	引用なし

	パスワード

> 何処を変更すればよろしいでしょうか？
ざっと見て
(1)
>　　If MsgBox("DBをCSV保存しますか？", vbOKCancel) _
"この範囲を新規Bookに保存しますか" に変更
(2)SaveFileの拡張子を「.xls」に変更
(3)↓ ここは
> 新規Bookをシート枚数１枚で追加する。
　　 Set NewBook = Workbooks.Add(6)
　の一行でOK
　（現在のコードでも問題はないと思いますが）

以下の部分はそのまま
>'(2) 元のBookの指定シートのUsedRange.Resize(,52) の範囲を _
>　　　 Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
で、
最後に
(4) Microsoft ExcelBook形式（標準のxls形式）で保存する
ように、改めればいいかと思います。

1 hits

▼

【62201】エクセル出力 VBA勉強中 09/6/30(火) 14:10