Excel VBA質問箱 IV

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

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


6134 / 76734 ←次へ | 前へ→

【76202】Re:シート名の先頭が変化するシートを特定したい
お礼  ペンネーム船長  - 14/10/13(月) 18:43 -

引用なし
パスワード
   γさん  kanabunさん 
アドバイス有難う御座いました。
みなさんのコードを使わせて頂いて下記のようなコードに変更したら、上手くゆきました。
ExecuteExcel4Macro は無闇に使わない方が良いという記事は参考になりました。
これからも宜しくお願いします。

Private Sub CommandButton1_Click()
On Error Resume Next 'エラーを無視する
  Dim buf As String
  Dim wb As Workbook
  Dim sh As Worksheet
  Dim sh2 As Worksheet
        
  Set sh2 = Worksheets("調査結果")
  Const path = "C:\Users\○●\Desktop\test\"
        
  buf = Dir(path & "*.xls")
        
  Do While buf <> ""
    Set wb = Workbooks.Open(path & buf)
    MsgBox "これからチェックするブックは『" & buf & "』です"
    For Each sh In Worksheets
      MsgBox "チェックするシートは『" & sh.Name & "』です"
      
      If sh.Name Like "*あいうえお*" Then
       Set obj = sh.Range("G:G").Find(what:="2-")
       MsgBox "objの内容は『" & obj & "』です"
 
         If obj Is Nothing Then
          MsgBox "『2-』が無いブック名は『" & buf & "』です"
          sh2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
         End If
       Else
         MsgBox "このシートは調査対象ではありません"
      End If
      
    Next sh
    wb.Close False
    buf = Dir()
  Loop
End Sub

2 hits

【76193】シート名の先頭が変化するシートを特定したい ペンネーム船長 14/10/12(日) 23:30 質問
【76194】Re:シート名の先頭が変化するシートを特定... γ 14/10/13(月) 6:02 発言
【76195】Re:シート名の先頭が変化するシートを特定... γ 14/10/13(月) 9:32 発言
【76202】Re:シート名の先頭が変化するシートを特定... ペンネーム船長 14/10/13(月) 18:43 お礼

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