マクロを教えてください

同じフォルダ内にあるXlsブックのあるSheetのデータを他のBookにコピーして貼り付けて貼り付けた側のBookで加工したいのですがうまくマクロが組めません。
Bookを共有で使っているので困っています。

Sub ワードアート1_Click
'
ActiveWindow.ScrollWorkbookTabs sition:=xlLast
Workbooks.Open ("販売管理表み.xls")
Sheets("在庫一覧").Select
Cells.Select
Range("A1").Activate
Selection.Copy
Windows("完成在庫.xls").Activate
Sheets("完成在庫一覧").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
って書いてみましたが、Workbooks…のところでエラーになってしまいました。(TOT)初心者ですみません。教えてください。

No.1 回答者： iiikkk 回答日時： 2005/03/30 11:02

ActiveWindow.ScrollWorkbookTabs sition:=xlLast

sition　→　Position

ではどうですか？

No.2 ベストアンサー 回答者： TTak 回答日時： 2005/03/30 11:16

販売管理表み.xls のファイルがどこに有るかが判らないのでは？

たとえば、マイドキュメントにある場合は、私のパソコンであれば

Workbooks.Open ("C:\My Documents\販売管理表み.xls")

とする必要があります。
完成在庫.xlsにマクロが書かれていると思われますが、このファイルと販売管理表み.xlsが、常に同じフォルダにあるならば、

Workbooks.Open (ThisWorkbook.Path & "\販売管理表み.xls")

とします。

この回答へのお礼

ありがとうございました。同じフォルダなので後者にしました。

お礼日時：2005/03/31 11:09