0

マクロ初心者です。
あるセルに「mm/dd＊＊＊＊＊＊＊＊」（＊は言葉が入力されている）と記載されているファイルが
複数あります。このmm/ddを任意の月日に変更をするマクロを組みたいのですがうまくいきません。 Sub Sample()
Const 検索 As String = "mm/dd" '<--検索する文字列 ※要変更
Const 置換 As String = "1/22" '<--置換する文字列 ※要変更

Dim myBook As String
Dim myPath(1 To 3) As String’配列変数に設定
Dim i As Long, j As Long

myPath(1) = "C:Users＊＊＊Desktop新しいフォルダー (4)" '<--フォルダ名 ※要変更
myPath(2) = "C:Users＊＊＊Desktop新しいフォルダー (5)" '<--フォルダ名 ※要変更
myPath(3) = "C:Users＊＊＊Desktop新しいフォルダー (6)" '<--フォルダ名 ※要変更

Application.ScreenUpdating = False
For j = 1 To 3
myBook = Dir(myPath(j), 0)
Do While Len(myBook) > 0
Workbooks.Open myPath(j) & myBook
For i = 1 To 1
With Worksheets(i).Range("O1") '<--対象のセル番地 'ここではO1を変更
.Value = Replace(.Value, 検索, 置換)
End With
Next i
ActiveWorkbook.Save
ActiveWorkbook.Close
myBook = Dir()
Loop
Next j
Application.ScreenUpdating = True
End Sub

これだと、任意の日付ではなく決められた日付にしか変更できないので
苦慮しています。

どうか知恵をお貸しください。

質問者が選んだベストソリューション

Yahoo!知恵袋 3782日前