Excel VBA質問箱 IV

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

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


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

17156 / 76807

←次へ　｜　前へ→


	【65109】Re:ブック作成後、シートのコピー

かみちゃん

- 10/4/17(土) 10:58 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>Sub Sample()
>　Sheets("作業シート").Copy
>End Sub
>このコードだけで新規ブックにシートがコピーされるのはわかりますか？

全体のコードを見直すとすれば、以下だけでできるような感じがします。
保存ファイル名の正当性チェックはしていません。

Sub Sample()
　Dim strXlsPath As String
　
　With ActiveSheet
　　'デスクトップパスの取得
　　strXlsPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"
　　'保存ファイルフルパスの生成
　　strXlsPath = strXlsPath & Range("F14").Value & .Range("W14").Value & ".xls"
　End With
　
　'シートを新規ブックにコピー
　Sheets("作業シート").Copy
　
　'新規ブックを保存
　ActiveWorkbook.SaveAs Filename:=strXlsPath, _
　　　　　　　　　FileFormat:=xlNormal, _
　　　　　　　　　Password:="", _
　　　　　　　　　WriteResPassword:="", _
　　　　　　　　　CreateBackup:=False
　ActiveWorkbook.Close
　
　MsgBox "Excel を作成しました。", vbInformation, "Excel の作成"
End Sub

0 hits

▼

【65107】ブック作成後、シートのコピー おとと 10/4/17(土) 10:28