Excel VBA質問箱 IV

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

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


38517 / 76738 ←次へ | 前へ→

【43356】Re:シートがあればコピーする方法
回答  ハチ  - 06/10/11(水) 12:40 -

引用なし
パスワード
   ▼成田 さん:
>必ず存在する1つのシートを新しいブックにコピーし、その後はシートが存在すれば同じブックにコピーする方法について、ご教示いただけませんでしょうか。
>また、できれば、On Error Resume Next を使用しない方法をとりたいと考えています。(ファイルの保存に失敗した場合などに困るので・・)
>
>お手数をおかけいたしますが、よろしくお願いします。

新しいBookをオブジェクトとしてつかんでおいて、
元のBookのWorkSheetをループさせて名前を判定すれば、
On Error Resume Nextは使わなくて良いと思います。
テストしてませんので、間違っていたらすいません。

変数:myfileはどこから出てきたのでしょうか??

Sub Test()
  Dim Wb As Workbook
  Dim Ws As Worksheet

  Set Wb = Workbooks.Add
  For Each Ws In ThisWorkbook.Worksheets 'マクロをどこに置くかで変更必要。
    Select Case Ws.Name
      'ここにコピーしたいSheet名をCase xxで追加
      Case "A": Ws.Copy Before:=Wb.Worksheets(1)
      Case "B": Ws.Copy Before:=Wb.Worksheets(1)
    End Select
  Next Ws
  Wb.SaveAs '・・・保存するところ
  Set Wb = Nothing
  
End Sub

0 hits

【43355】シートがあればコピーする方法 成田 06/10/11(水) 12:11 質問
【43356】Re:シートがあればコピーする方法 ハチ 06/10/11(水) 12:40 回答
【43377】Re:シートがあればコピーする方法 成田 06/10/12(木) 11:57 お礼
【43378】Re:シートがあればコピーする方法 成田 06/10/12(木) 11:59 発言

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