|
>標準モジュールにマクロを記述することにより、問題は解消されましたが、
>原因はなにになるのでしょうか?
当然、標準モジュールに記述している物と思っていましたが?
どこに記述していたのでしょうか?
> '書き込み位置にデータを書き込み
> With Cells(lngWriteRow, 1)
前にも書いた通り、With Cells(lngWriteRow, 1)の
Cells(lngWriteRow, 1)の前にピリオドが有りません
With .Cells(lngWriteRow, 1)
に、しないと前のWithに続きません
因って、標準モジュールならActiveになっているシートに書き込まれますし
シートモジュールに書いているなら、書いているシートが対象となると思います
With .Cells(lngWriteRow, 1)の意味は、
With Workbooks("Book2").Worksheets("Sheet1").Cells(lngWriteRow, 1)
と同じ意味になるのですが、ピリオドが無いので、上記の様に成って仕舞います
ですので、
'↓ここはひつようないかも・・・??
Workbooks("Book2.xls").Activate
Worksheets("Sheet1").Activate
を書かなければ成らなくなっていると思います
ピリオドが有れば、多分必要がないと思います
|
|