Excel VBA質問箱 IV

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

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


6143 / 76734 ←次へ | 前へ→

【76193】シート名の先頭が変化するシートを特定したい
質問  ペンネーム船長  - 14/10/12(日) 23:30 -

引用なし
パスワード
   【質問】
『test』フォルダーの中に複数のエクセルがあります。
それぞれのエクセルのシート名が『01あいうえお』だったり『05あいうえお』だったり『89あいうえお』だったりします。
下記のコードは、シート名が『01あいうえお』の場合だけ機能します。
これを、上記のシート名でも動くコードにしたいのです。
御教授お願いします。
なお、シート名『あいうえお』は不変で、必ずその頭に2桁の数字が来ます。
一桁の数字の表現は『1』ではなく、『01』となります

Private Sub CommandButton1_Click()
  Worksheets("調査結果").Range("B8:B1000").Value = "" 'クリア
  Dim buf As String, Target As String, i As Integer, n As Integer, nn As Integer
  Const Path = "C:\Users\○●\Desktop\test\"
  buf = Dir(Path & "*.xls")

  Do While buf <> ""
    For i = 1 To 1000
    n = 0
    nn = 0
    Target = "'" & Path & "[" & buf & "]01あいうえお!R" & i & "C7"
     If ExecuteExcel4Macro(Target) = "2-" Then
       nn = n + 1 'セルに『2-』があったときに1を加える
       Exit For
     End If
    Next i
     If nn = 0 Then '合計が0のとき、そのエクセルの名前を書き出す
        Worksheets("調査結果").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
     End If
    buf = Dir()
  Loop
End Sub
1 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 お礼

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