Excel VBA質問箱 IV

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

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


19054 / 76733 ←次へ | 前へ→

【63116】Re:特定の文字を含むシートだけを移動させる方法
発言  Yuki  - 09/10/9(金) 11:20 -

引用なし
パスワード
   ▼けい さん:

こんにちは。
ThisworkbookのあるシートのA5の値と同じシート名を
新規ブックにコピーしたいという事でしょうか?

変数名は変えてありますので
A5の値でNewBookをSaveしていますがそれでいいのですか?
Sub Test()
  Dim strBook As String
  Dim NewBook As Workbook
  Dim sht   As Worksheet
  Dim strSht As String
  Dim vSht  As Variant
  Dim i    As Long
  
  With ThisWorkbook   '________ <=シート名は?
    strBook = .Sheets("Sheet1").Range("A5").Value 'FullPathが入っているか?
    'FullPathが入っている時検索シート用のData
    If InStr(strBook, "\") > 0 Then
      vSht = Split(strBook, "\")
      strSht = Left(vSht(UBound(vSht)), InStrRev(vSht(UBound(vSht)), ".") - 1)
    Else
      If InStr(strBook, ".") > 0 Then
        strSht = Left(strBook, InStrRev(strBook, ".") - 1)
      Else
        strSht = strBook
        strBook = strBook & ".xls"
      End If
    End If
    For Each sht In .Worksheets
      If sht.Name Like strSht & "*" Then
        i = i + 1
        If i = 1 Then
          sht.Copy
          Set NewBook = ActiveWorkbook
        Else
          sht.Copy After:=NewBook.Worksheets(NewBook.Worksheets.Count)
        End If
      End If
    Next
  End With
  NewBook.SaveAs strBook
End Sub
2 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 お礼

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