|
▼Jaka さん:
>>下記のコードがvisualBasicのウィンドウ上に出てきてしまいます
>意味がよく解ってないけど、多分。
>
>> If Dir(strFileName) <> "" Then
> Application.EnableEvents = False
>> Set WB = Workbooks.Open(strFileName) '←ステップインしていくとここでウィンドウが切り替わってしまいます。
ありがとうございました。無事、回避できました。
立て続けの質問で申し訳ないのですが、教えて下さい。。
その後のWBの取得ができません。。
コードの書き方が違っているでしょうか?
"アプリケーション定義またはオブジェクト定義のエラーです"
となってしまいます。
Application.EnableEvents = False
Set WB = Workbooks.Open(strFileName)
r2 = Range("J65536").End(xlUp).Row
If AutoFilter = False Then
With WB.Worksheets("EX").Range("B:AC" & r2)"←この行でエラーになってしまいます。
.AutoFilter field:=1, Criteria1:="ユーザー"
End With
宜しくお願い致します。
|
|