Excel VBA質問箱 IV

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

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


16511 / 76734 ←次へ | 前へ→

【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のヘルプを見ると、シートの指定もできるようですが、
たぶんシートの指定がよろしくなさそうな気がしますが、
どうすればいいかよくわかりません。

オブジェクトとかよくわかっていないので、バカみたいな質問を
しているかとは思いますが、どうぞ宜しくお願い致します。

0 hits

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

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