|
▼ハチ さん:
ご教示頂き、ありがとうございました。
全く問題なく、私のやりたいことができました。
(ついでに応用もきかせて、シートがあったら削除する、というものも作ってみました。)
本当にありがとうございました!
>▼成田 さん:
>>必ず存在する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
|
|