Excel VBA質問箱 IV

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

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


17081 / 76732 ←次へ | 前へ→

【65109】Re:ブック作成後、シートのコピー
発言  かみちゃん E-MAIL  - 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 質問
【65108】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 10:44 発言
【65109】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 10:58 発言
【65110】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 11:37 お礼
【65111】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 11:59 お礼
【65112】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 15:30 質問
【65113】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 16:47 発言
【65114】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 17:04 質問
【65115】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 17:13 発言
【65117】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 18:10 質問
【65120】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 18:57 発言
【65151】Re:ブック作成後、シートのコピー おとと 10/4/20(火) 8:41 質問
【65159】Re:ブック作成後、シートのコピー かみちゃん 10/4/20(火) 20:39 発言

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