| |
複数のフォルダにある、全ブックの全シートを見て
置換したいのですが、どうしてもエラーで止まります。
色々書き直しては見たのですがやはり
上手くいきません。
エラーの内容としては
SubまたはFunctionが定義されていません。
というものです。
Sub 置換()
Dim ws As Worksheet
Dim wb As Workbook
Dim strFileName As String
Dim nm As Variant
'ブックが格納されているフォルダ（マクロブックと同じフォルダの場合）
If fold_open("D:\miwa\当年", "*.xls", False) = 0 Then
strFileName = fold_get
Do Until strFileName = ""
nm = Split(strFileName, "\")
If nm(UBound(nm)) < ThisWorkbook.Name Then
'ブックを開く
Set wb = Workbooks.Open(strFileName)
'開いたブックをのすべてのシートをひとつずつアクティブにする
For Each ws In Worksheets
ws.Activate
Cells.Replace What:="2007年", Replacement:="翌年", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="2006年", Replacement:="当年", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
'開いたブックを上書き保存する
wb.Save
'開いたブックを上書き保存しない
'wb.Saved = True
'開いたブックを閉じる
wb.Close
End If
strFileName = fold_get
Loop
End If
Call fold_close
End Sub
|
|
miwa
- 06/11/6(月) 9:57 -
