Excel VBA質問箱 IV

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

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


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

16515 / 76738

←次へ　｜　前へ→


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

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

0 hits

▼

【65688】複数シート中１シートだけ別ファイルで保存したい すいか 10/6/22(火) 14:56

≪