|
実際のコードの中ではFileNameの代わりにCopyFromFileNameを使っていたのですが、投稿する際に省略してしまいました。
Jakaさん、ご心配頂きありがとうございました。
ところで自分が「うまくいきません。」と思った理由がわかりました。
そのときアクティブになっているシートに対してのみ
Cells.Replace What:="[" & CopyFromFileName & "]", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
が実行されるのですね。
違うシートを見て、「あれ、うまくいかないなぁ。」と思っていたのです。
上のコードは「検索場所」として「ブック」を指定した状態で行った検索を「新しいマクロの記録」で記録し、それを利用して作ったのものなので、ブック全体のシートに対して実行されると思ったのです。
ブック全体のシートに対して実行させるには
Dim Fund(10) As String
Fund(0) = "A"
Fund(1) =...とかって、配列を宣言してから
Dim i As Integer
For i = 0 To 10
Sheets(Fund(i)).Select
Cells.Replace What:="[" & CopyFromFileName & "]", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Next i
というふうにするしかないのでしょうか?
|
|