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