Excel VBA質問箱 IV

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

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


57351 / 76732 ←次へ | 前へ→

【24118】Re:ブック名をアクティブシート名の1つと同じにするには?
発言  kazu  - 05/4/12(火) 15:14 -

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

こんな感じなのかな・・・。

Sub Smpl()
  Set Buf = ThisWorkbook.Sheets
  Cnt = Buf.Count
  ReDim CpFlg(1 To Cnt)
  For I = 1 To Cnt
    CpFlg(I) = False
  Next
  For I = 1 To Buf.Count
    Set ActBook = Nothing
    Tmp = Buf(I).Name
    For J = 1 To Buf.Count
      If Buf(J).Name Like "*" & Tmp & "*" And Not CpFlg(J) Then
        If ActBook Is Nothing Then
          Buf(J).Copy
          Set ActBook = ActiveWorkbook
          CpFlg(J) = True
        Else
          Buf(J).Copy , Sheets(ActBook.Sheets.Count)
          CpFlg(J) = True
        End If
      End If
    Next
    If Not ActBook Is Nothing Then
      Pth = ThisWorkbook.Path & "\" & Buf(I).Name & ".XLS"
      If Dir(Pth) <> "" Then
        If MsgBox("指定された場所にすでに同一ファイル名が存在します。【" & Buf(I).Name & ".XLS】" & vbCrLf & _
            "上書きしますか") = vbYes Then
          Kill Pth
          ActBook.SaveAs Pth
          ActBook.Close
        End If
      Else
        ActBook.SaveAs Pth
        ActBook.Close
      End If
    End If
  Next
  
End Sub
2 hits

【24048】ブック名をアクティブシート名の1つと同じにするには? tarny 05/4/11(月) 1:16 質問
【24049】Re:ブック名をアクティブシート名の1つと... ちゃっぴ 05/4/11(月) 1:32 回答
【24051】Re:ブック名をアクティブシート名の1つと... tarny 05/4/11(月) 3:04 質問
【24098】Re:ブック名をアクティブシート名の1つと... Jaka 05/4/12(火) 13:02 発言
【24118】Re:ブック名をアクティブシート名の1つと... kazu 05/4/12(火) 15:14 発言
【24192】Re:ブック名をアクティブシート名の1つと... tarny 05/4/15(金) 0:36 お礼

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