Excel VBA質問箱 IV

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

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


2831 / 13645 ツリー ←次へ | 前へ→

【65688】複数シート中1シートだけ別ファイルで保存したい すいか 10/6/22(火) 14:56 質問[未読]
【65692】Re:複数シート中1シートだけ別ファイルで... Jaka 10/6/22(火) 15:14 発言[未読]
【65696】Re:複数シート中1シートだけ別ファイルで... すいか 10/6/22(火) 16:37 発言[未読]
【65697】Re:複数シート中1シートだけ別ファイルで... Jaka 10/6/22(火) 17:02 発言[未読]
【65699】Re:複数シート中1シートだけ別ファイルで... すいか 10/6/22(火) 17:38 発言[未読]
【65705】Re:複数シート中1シートだけ別ファイルで... すいか 10/6/23(水) 11:00 お礼[未読]
【65706】Re:複数シート中1シートだけ別ファイルで... ponpon 10/6/23(水) 11:09 発言[未読]
【65707】Re:複数シート中1シートだけ別ファイルで... Jaka 10/6/23(水) 11:40 発言[未読]
【65715】Re:複数シート中1シートだけ別ファイルで... すいか 10/6/23(水) 14:48 お礼[未読]
【65717】Re:複数シート中1シートだけ別ファイルで... Jaka 10/6/23(水) 14:56 発言[未読]
【65718】Re:複数シート中1シートだけ別ファイルで... すいか 10/6/23(水) 15:16 お礼[未読]

【65688】複数シート中1シートだけ別ファイルで保...
質問  すいか  - 10/6/22(火) 14:56 -

引用なし
パスワード
   こんにちは。宜しくお願い致します。

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

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:複数シート中1シートだけ別ファイル...
発言  Jaka  - 10/6/22(火) 15:14 -

引用なし
パスワード
   シート右クリック → 移動またはコピー でもできるので試してみては。
ただ、データ量が多すぎると、ディスクが足りないとかエラーでるかも。

【65696】Re:複数シート中1シートだけ別ファイル...
発言  すいか  - 10/6/22(火) 16:37 -

引用なし
パスワード
   ▼Jaka さん:
>シート右クリック → 移動またはコピー でもできるので試してみては。
>ただ、データ量が多すぎると、ディスクが足りないとかエラーでるかも。

ありがとうございます。
でも今回は手動でなく機械的に処理したいです!

【65697】Re:複数シート中1シートだけ別ファイル...
発言  Jaka  - 10/6/22(火) 17:02 -

引用なし
パスワード
   ▼すいか さん:
>でも今回は手動でなく機械的に処理したいです!
いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
それを利用したらを言うことです。

因みに、コピー複製したものが必ずアクティブワークブックになります。

【65699】Re:複数シート中1シートだけ別ファイル...
発言  すいか  - 10/6/22(火) 17:38 -

引用なし
パスワード
   ▼Jaka さん:
>▼すいか さん:
>>でも今回は手動でなく機械的に処理したいです!
>いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
>それを利用したらを言うことです。
>
>因みに、コピー複製したものが必ずアクティブワークブックになります。

そういうことでしたか!失礼しました。
やってみます。ありがとうございました。

【65705】Re:複数シート中1シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 11:00 -

引用なし
パスワード
   ▼Jaka さん:
>▼すいか さん:
>>でも今回は手動でなく機械的に処理したいです!
>いや、だからそれをマクロ記録したら、原型となるコードが作れるでしょ、
>それを利用したらを言うことです。
>
>因みに、コピー複製したものが必ずアクティブワークブックになります。

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

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

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

度々申し訳ありませんが、宜しくお願いします。

【65706】Re:複数シート中1シートだけ別ファイル...
発言  ponpon  - 10/6/23(水) 11:09 -

引用なし
パスワード
   ▼すいか さん:
>
>マクロ記録、やってみました。
>
>Sheets("入場申請書").Copy
>だそうです。
>ちょっとイメージと違いました。
>
>あと、保存した新ブックが自動的に開いてしまいますが、開いてほしくありません。
>「開かない」という指定はできないのでしょうか。
>
>度々申し訳ありませんが、宜しくお願いします。

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

  Application.ScreenUpdating = False

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

  Application.ScreenUpdating = True

【65707】Re:複数シート中1シートだけ別ファイル...
発言  Jaka  - 10/6/23(水) 11:40 -

引用なし
パスワード
   ▼すいか さん:
>あと、保存した新ブックが自動的に開いてしまいますが、開いてほしくありません。
>「開かない」という指定はできないのでしょうか。
新しく出来たブックは、複製したブックなだけで、
その状態では、シートを複製しただけで、まだ保存はしてません。
新しく出来たブックを自分で更に保存しないといけません。

で、新しく出来たブックとコピー元ブックの区別する方法が、
新しく作ったブックは、必ずアクティブブックになる。
と言うことを利用すれば良いという事です。

【65715】Re:複数シート中1シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 14:48 -

引用なし
パスワード
   ▼ponponさん ▼Jaka さん
やっとできました!!
ありがとうございました<m(__)m><m(__)m>
難しいですねー。。マクロって。。。
お世話になりました。

【65717】Re:複数シート中1シートだけ別ファイル...
発言  Jaka  - 10/6/23(水) 14:56 -

引用なし
パスワード
   ▼すいか さん:
>やっとできました!!
>ありがとうございました<m(__)m><m(__)m>
>難しいですねー。。マクロって。。。
>お世話になりました。
自分で書いたマクロだと、一入で喜びも倍増すると思います。
これからもがんばってください。

【65718】Re:複数シート中1シートだけ別ファイル...
お礼  すいか  - 10/6/23(水) 15:16 -

引用なし
パスワード
   ▼Jaka さん:
>自分で書いたマクロだと、一入で喜びも倍増すると思います。
>これからもがんばってください。

はい!ありがとうございます。
また何かの際には宜しくお願い致します。

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