|
▼すず さん:
こんにちは
修正版をよく見ずに書いてしまったので1回削除してしまいました。^ ^;
で、2回目のコメントです。
キツイResを付けたので改造以来なら放置かなと思っていたのですが、
がんばりましたね。^ ^
>neptuneさんの言うとおり、見直してみました。
>そして最初のopenの箇所は修正致しました。
> Dim i As Integer, k As Integer
> Dim ws3 As Object
>
> ChDir "C:\Documents and Settings\デスクトップ"
> Workbooks.Open Filename:= _
> "C:\Documents and Settings\デスクトップ\hoge.xls", UpdateLinks:=0
>
> ChDir "C:\Documents and Settings\デスクトップ"
> Workbooks.Open Filename:= _
> "C:\Documents and Settings\デスクトップ\hogehoge.xls", UpdateLinks:=0
>しかし、やはりその下のコードが起動しません。
その下のコードってtest1の事ですか?それならtest1をCallしてやってますか?
>With Activesheetがws1に効いているから、
>ws2やws3を見に行かないのでしょうか?
ここまでの疑問ですが、wApp1 はどこに行ったのでしょう?
test1プロシージャも直しましたか?
#全体像がよく見えません。
|
|