| |
▼すず さん：
こんにちは
修正版をよく見ずに書いてしまったので１回削除してしまいました。^ ^;
で、２回目のコメントです。
キツイ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プロシージャも直しましたか？
#全体像がよく見えません。
|
|
neptune
- 07/9/28(金) 15:58 -
