Excel VBA質問箱 IV

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

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


38490 / 76732 ←次へ | 前へ→

【43377】Re:シートがあればコピーする方法
お礼  成田  - 06/10/12(木) 11:57 -

引用なし
パスワード
   ▼ハチ さん:

ご教示頂き、ありがとうございました。
全く問題なく、私のやりたいことができました。
(ついでに応用もきかせて、シートがあったら削除する、というものも作ってみました。)

本当にありがとうございました!

>▼成田 さん:
>>必ず存在する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

1 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 発言

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