|
特定の文字を含むシートを別ブックに移動させて、
指定されたフォルダに作成したファイルを入れる…といった動作をさせたいと思っていますが、どうもうまくいかなくて困っています
分かる方、よろしくお願いします
例えばシート名には、下記のようなシートが6つ存在しているとします
その中で、[ABCDEF]を含むシートを新規ファイルを作成して、移動させたいのです。
ちなみに[ABCDRF]の部分は、変更します
(セルA5の値を参照するため)
設定,手順,転送,ABCDEF ,ABCDEF(1),ABCDEF(2)
現在のコードは下記の通りです
Sub ブック作成()
Dim BookName As String
Dim MasBook As String
Dim ShName As String
MasBook = ThisWorkbook.Name
BookName = Range("A5").Value
Set Newbook = Workbooks.Add
Newbook.SaveAs FileName:=BookName
シート名 = ActiveSheet.Name
Workbooks(MasBook).Activate
For Each 各シート In Workbooks(MasBook).Sheets
If 各シート.Name = BookName & "*" Then
’↑ここのワイルドカードの使い方がよくないんでしょうか?
Worksheets(各シート.Name).Copy after:=Workbooks(BookName).Sheets(シート名)
シート名 = 各シート.Name
Workbooks(MasBook).Activate
End If
Next
Workbooks(BookName).Activate
End Sub
|
|