Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【65688】複数シート中１シートだけ別ファイルで保存したい すいか 10/6/22(火) 14:56 質問[未読]
【65692】Re:複数シート中１シートだけ別ファイルで... Jaka 10/6/22(火) 15:14 発言[未読]
【65696】Re:複数シート中１シートだけ別ファイルで... すいか 10/6/22(火) 16:37 発言[未読]
【65697】Re:複数シート中１シートだけ別ファイルで... Jaka 10/6/22(火) 17:02 発言[未読]
【65699】Re:複数シート中１シートだけ別ファイルで... すいか 10/6/22(火) 17:38 発言[未読]
【65705】Re:複数シート中１シートだけ別ファイルで... すいか 10/6/23(水) 11:00 お礼[未読]
【65706】Re:複数シート中１シートだけ別ファイルで... ponpon 10/6/23(水) 11:09 発言[未読]
【65707】Re:複数シート中１シートだけ別ファイルで... Jaka 10/6/23(水) 11:40 発言[未読]
【65715】Re:複数シート中１シートだけ別ファイルで... すいか 10/6/23(水) 14:48 お礼[未読]
【65717】Re:複数シート中１シートだけ別ファイルで... Jaka 10/6/23(水) 14:56 発言[未読]
【65718】Re:複数シート中１シートだけ別ファイルで... すいか 10/6/23(水) 15:16 お礼[未読]
【65688】複数シート中１シートだけ別ファイルで保...
質問  すいか  - 10/6/22(火) 14:56 -
引用なし
パスワード
   こんにちは。宜しくお願い致します。

やりたいこと
１０シートあるブックの中から、「申請書」シートだけを切り出して、
別名ファイルで保存したいです。

Private Sub CommandButton3_Click()
　　Dim FName As String
　　Dim MyFName As String
　　
　　MyFName = "申請_" + Left(Range("E12").Value, 3)
　　　　　　　 + "（" + Range("E15").Value + Range("H15").Value + "）"
　　FName = Application.GetSaveAsFilename(InitialFileName:=MyFName 　　　　　　　　　　 + ".xls" _
　　　　, filefilter:="Microsoft Office Excel ブック,*.xls,すべてのファイ　　　　　　　 ル,*.*")
　　If FName = "False" Then Exit Sub
　　
　　Sheets("申請書").SaveAs Filename:=FName
　　
End Sub

とやっていますが、全シートが別名保存されます。
SaveAsのヘルプを見ると、シートの指定もできるようですが、
たぶんシートの指定がよろしくなさそうな気がしますが、
どうすればいいかよくわかりません。

オブジェクトとかよくわかっていないので、バカみたいな質問を
しているかとは思いますが、どうぞ宜しくお願い致します。
【65692】Re:複数シート中１シートだけ別ファイル...
発言  Jaka  - 10/6/22(火) 15:14 -
引用なし
パスワード
   シート右クリック　→　移動またはコピー　でもできるので試してみては。
ただ、データ量が多すぎると、ディスクが足りないとかエラーでるかも。
【65696】Re:複数シート中１シートだけ別ファイル...
発言  すいか  - 10/6/22(火) 16:37 -
引用なし
パスワード
   ▼Jaka さん：
>シート右クリック　→　移動またはコピー　でもできるので試してみては。
>ただ、データ量が多すぎると、ディスクが足りないとかエラーでるかも。

ありがとうございます。
でも今回は手動でなく機械的に処理したいです！
【65697】Re:複数シート中１シートだけ別ファイル...
発言  Jaka  - 10/6/22(火) 17:02 -
引用なし
パスワード
   ▼すいか さん：
>でも今回は手動でなく機械的に処理したいです！
いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
それを利用したらを言うことです。

因みに、コピー複製したものが必ずアクティブワークブックになります。
【65699】Re:複数シート中１シートだけ別ファイル...
発言  すいか  - 10/6/22(火) 17:38 -
引用なし
パスワード
   ▼Jaka さん：
>▼すいか さん：
>>でも今回は手動でなく機械的に処理したいです！
>いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
>それを利用したらを言うことです。
>
>因みに、コピー複製したものが必ずアクティブワークブックになります。

そういうことでしたか！失礼しました。
やってみます。ありがとうございました。
【65705】Re:複数シート中１シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 11:00 -
引用なし
パスワード
   ▼Jaka さん：
>▼すいか さん：
>>でも今回は手動でなく機械的に処理したいです！
>いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
>それを利用したらを言うことです。
>
>因みに、コピー複製したものが必ずアクティブワークブックになります。

マクロ記録、やってみました。

Sheets("入場申請書").Copy
だそうです。
ちょっとイメージと違いました。

あと、保存した新ブックが自動的に開いてしまいますが、開いてほしくありません。
「開かない」という指定はできないのでしょうか。

度々申し訳ありませんが、宜しくお願いします。
【65706】Re:複数シート中１シートだけ別ファイル...
発言  ponpon  - 10/6/23(水) 11:09 -
引用なし
パスワード
   ▼すいか さん：
>
>マクロ記録、やってみました。
>
>Sheets("入場申請書").Copy
>だそうです。
>ちょっとイメージと違いました。
>
>あと、保存した新ブックが自動的に開いてしまいますが、開いてほしくありません。
>「開かない」という指定はできないのでしょうか。
>
>度々申し訳ありませんが、宜しくお願いします。

画面更新を禁止して、
activeなワークブックに名前をつけて保存すればどうでしょう。

　 Application.ScreenUpdating = False

　'これで、マクロを挟むと、画面更新が禁止されます。
　'ここに、コピーして新規ブックを作り、名前をつけて保存する
　'マクロを書く。
　'名前をつけて保存するマクロは、マクロの記録でできると思います。

　 Application.ScreenUpdating = True
【65707】Re:複数シート中１シートだけ別ファイル...
発言  Jaka  - 10/6/23(水) 11:40 -
引用なし
パスワード
   ▼すいか さん：
>あと、保存した新ブックが自動的に開いてしまいますが、開いてほしくありません。
>「開かない」という指定はできないのでしょうか。
新しく出来たブックは、複製したブックなだけで、
その状態では、シートを複製しただけで、まだ保存はしてません。
新しく出来たブックを自分で更に保存しないといけません。

で、新しく出来たブックとコピー元ブックの区別する方法が、
新しく作ったブックは、必ずアクティブブックになる。
と言うことを利用すれば良いという事です。
【65715】Re:複数シート中１シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 14:48 -
引用なし
パスワード
   ▼ponponさん　▼Jaka さん
やっとできました！！
ありがとうございました<m(__)m><m(__)m>
難しいですねー。。マクロって。。。
お世話になりました。
【65717】Re:複数シート中１シートだけ別ファイル...
発言  Jaka  - 10/6/23(水) 14:56 -
引用なし
パスワード
   ▼すいか さん：
>やっとできました！！
>ありがとうございました<m(__)m><m(__)m>
>難しいですねー。。マクロって。。。
>お世話になりました。
自分で書いたマクロだと、一入で喜びも倍増すると思います。
これからもがんばってください。
【65718】Re:複数シート中１シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 15:16 -
引用なし
パスワード
   ▼Jaka さん：
>自分で書いたマクロだと、一入で喜びも倍増すると思います。
>これからもがんばってください。

はい！ありがとうございます。
また何かの際には宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free