|
▼kazu さん:
ありがとうございます。
Sfoについては全く知識がないので恐縮ですが
下記のようにコードに追加してみたけれど
うまく動作しません。。。。 ファイルがみつかりませんとなってしまいます。。
(今まではサブフォルダ以外は処理できていたのですが)
どこか不足があるのでしょうか。。
恐縮ですがご教授お願いいたします。
Sub test()
Dim Mydir As String
Dim Filename As String
Dim mySh As String
Dim a As String
Dim myRng As Range
Dim i As Long
Dim n, ShtName, Flg
Set Myfso = CreateObject("Scripting.FileSystemObject")
Set Sub_Fld = Myfso.GetFolder("C:\test\").SubFolders
'ファイル名を指定
Filename = Dir("C:\test" & "\" & "*表.xls", VBnomal)
Do While Filename <> ""
'ファイルを開く
Workbooks.Open "C:\test\" & "\" & "*表.xls"
'シートの有無を確認
ShtName = "Ver5.0"
ShtName = "ver5.0"
Flg = True
For n = 1 To Worksheets.Count
If Worksheets(n).Name = ShtName Then
Flg = False
Exit For
End If
Next n
'シートVer5.0がある場合
If Flg = False Then
'MsgBox ShtName & "は存在します。"
'シートを選択
With Sheets("Ver5.0")
For i = 5 To .Range("j65536").End(xlUp).Row
If .Cells(i, "j").Value <> "" Then
.Cells(i, "j").Offset(, 1).Value = "OK"
End If
Next
End With
Workbooks(Filename).Save
Workbooks(Filename).Close
'シートVer5.0がない場合
Else
' MsgBox ShtName & "は存在しません。"
Workbooks(Filename).Close
End If
'End If
Filename = Dir()
Loop
End Sub
|
|