|
>neptune さん
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
しかし、やはりその下のコードが起動しません。
さっぱり分かりません。
With Activesheetがws1に効いているから、
ws2やws3を見に行かないのでしょうか?
>▼すず さん:
>こんにちは
>
>>コード自体が間違っているのでしょうか?
>恐らくそう思います。
>もう一度自分が何をしているかを考えてみたほうが良いです。
>コードの一行一行を理解することをお勧めします。
|
|