Excel VBA質問箱 IV

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

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


37754 / 76732 ←次へ | 前へ→

【44140】置換のエラー回避ができません
質問  miwa  - 06/11/6(月) 9:57 -

引用なし
パスワード
   複数のフォルダにある、全ブックの全シートを見て
置換したいのですが、どうしてもエラーで止まります。
色々書き直しては見たのですがやはり
上手くいきません。
エラーの内容としては
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
1 hits

【44140】置換のエラー回避ができません miwa 06/11/6(月) 9:57 質問
【44142】Re:置換のエラー回避ができません ひげくま 06/11/6(月) 10:15 発言

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