Excel VBA質問箱 IV

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

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


24678 / 76732 ←次へ | 前へ→

【57402】Re:現在Activeとなっているシートを別ブックにコピーしたい
発言  ponpon  - 08/8/18(月) 19:18 -

引用なし
パスワード
   >ActiveSheet.Cells.Select
>Selection.Copy
これでは、要求4は無理だと思います。
シートそのものをコピーして貼り付けないといけないと思います。

詳しい仕様がよくわからないので
何ともいえませんが、
アクティブなシートを新規ブックにコピーして
名前をつけて保存するだけなら
こんな感じでできると思います。
後は、エラー対策(すでにブックがあるかとか?)をしたら
いかがでしょう?
意味が違っていたらごめんなさい。

Sub Test1()
  Dim SaveSheetName As String
  Dim Filename As String
  
  SaveSheetName = "保存するするシート"
  Filename = "保存するファイル名(デフォルト)"

  Application.ScreenUpdating = False
  ThisWorkbook.ActiveSheet.Copy
  With ActiveWorkbook
    .Sheets(1).Name = SaveSheetName
    .SaveAs Filename:=ThisWorkbook.Path & "\" & Filename
    .Close True
  End With
  Application.ScreenUpdating = True

End Sub

1 hits

【57399】現在Activeとなっているシートを別ブックにコピーしたい 左之 08/8/18(月) 14:28 質問
【57402】Re:現在Activeとなっているシートを別ブッ... ponpon 08/8/18(月) 19:18 発言
【57408】Re:現在Activeとなっているシートを別ブッ... 左之 08/8/19(火) 13:45 お礼

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