Excel VBA質問箱 IV

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

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


19079 / 76733 ←次へ | 前へ→

【63091】特定の文字を含むシートだけを移動させる方法
質問  けい  - 09/10/7(水) 15:16 -

引用なし
パスワード
   特定の文字を含むシートを別ブックに移動させて、
指定されたフォルダに作成したファイルを入れる…といった動作をさせたいと思っていますが、どうもうまくいかなくて困っています

分かる方、よろしくお願いします

例えばシート名には、下記のようなシートが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
0 hits

【63091】特定の文字を含むシートだけを移動させる方法 けい 09/10/7(水) 15:16 質問
【63092】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/7(水) 15:41 発言
【63113】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:20 お礼
【63093】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/7(水) 15:48 発言
【63114】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:25 質問
【63115】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 10:23 質問
【63116】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 11:20 発言
【63117】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 12:02 質問
【63118】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/9(金) 13:34 発言
【63174】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:03 質問
【63119】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 15:27 発言
【63175】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:05 質問
【63176】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 8:58 発言
【63177】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 10:00 発言
【63178】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 12:58 発言
【63179】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 15:13 発言
【63180】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 15:42 発言
【63181】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 15:48 発言
【63182】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 16:35 発言
【63184】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 17:27 発言
【63187】Re:特定の文字を含むシートだけを移動させ... けい 09/10/14(水) 8:26 お礼
【63188】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/14(水) 8:35 発言
【63193】Re:特定の文字を含むシートだけを移動させ... けい 09/10/15(木) 9:16 お礼

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