Excel VBA質問箱 IV

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

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


38012 / 76732 ←次へ | 前へ→

【43864】Re:文字列の置換
質問  miwa  - 06/10/27(金) 9:38 -

引用なし
パスワード
   ありがとうございます。
自動転記の部分入れてみましたが、
まったくどのファイルにも変化が見られないのは
なぜでしょうか?
一つ一つファイルは開いてシートを見に行っている
ようなんですが・・・。
replaceの部分がおかしいとしか思えません。

Sub 置換()
 Dim ws As Worksheet
 Dim wb As Workbook
 Dim strPath As String
 Dim strFileName As String

 Set ws = ActiveSheet
 'ブックが格納されているフォルダ(マクロブックと同じフォルダの場合)
 strPath = ThisWorkbook.Path
 strFileName = Dir(ThisWorkbook.Path & "\*.xls")
 Do Until strFileName = ""
  If strFileName <> ThisWorkbook.Name Then
   'ブックを開く
   Set wb = Workbooks.Open(strPath & "\" & 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 = Dir()
 Loop
 MsgBox "終了しました"
End Sub
1 hits

【43860】文字列の置換 miwa 06/10/27(金) 2:03 質問
【43861】Re:文字列の置換 かみちゃん 06/10/27(金) 7:09 発言
【43866】Re:文字列の置換 miwa 06/10/27(金) 9:48 お礼
【43864】Re:文字列の置換 miwa 06/10/27(金) 9:38 質問

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