| |
▼ハチ さん：
ご教示頂き、ありがとうございました。
全く問題なく、私のやりたいことができました。
（ついでに応用もきかせて、シートがあったら削除する、というものも作ってみました。）
本当にありがとうございました！
>▼成田 さん：
>>必ず存在する１つのシートを新しいブックにコピーし、その後はシートが存在すれば同じブックにコピーする方法について、ご教示いただけませんでしょうか。
>>また、できれば、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
|
|
成田
- 06/10/12(木) 11:57 -
