投稿日 | : 2002/09/29(Sun) 20:16 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re^3: EXCEL操作中に「他のアプリケーションが・・・」が |
> With WS_ABC.UsedRange
> Set c = .Find(List_DEF.Text, LookIn:=-4163)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> (省略)
> Set c = .FindNext(c) ***
> Loop While Not c Is Nothing And c.Address <> firstAddress
> End If
> End With
> もともとのEXCELVBAのほとんどそのままで、これが
> 「暗黙的なオブジェクトの操作を繰り返して」いるところなのでしょうか。
> いろいろと書き直しているのですが、まだうまくいきません。
はじめのWithで宣言している部分はもしや
Set WS_ABC=Application.Sheets("xx")
と、VBAの引用ではありませんか?
こちらの管理人、花ちゃんさんのホームページの「Excel・Word関連」から
「VBからExcel及びWordを操作する時の注意事項」を読んでみて下さい。
ためになりますよ。(^^)