|
おはようございます。
このマクロのあるbookとbook1.xlsとbook12.xls を同じフォルダに入れて、
下記のように変更して、このマクロを実行すると、サーバー上でも、うまく
動きました。
> book1.xlsとbook2.xlsを開く
> Workbooks.Open Filename:="C:\Documents and Settings\All Users\デスクトップ\book1.xls"
> Workbooks.Open Filename:="C:\Documents and Settings\All Users\デスクトップ\book2.xls"
> '並べて比較
> Windows.CompareSideBySideWith "book2"
を
'book1.xlsとbook2.xlsを開く
Workbooks.Open Filename:=ThisWorkbook.Path & "\book1.xls"
Workbooks.Open Filename:=ThisWorkbook.Path & "\book2.xls"
'
'並べて比較
Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical
のように変更。
私は、このように3つのBookがセットで関係している場合は、よく同じフォルダに入れて
ThisWorkbook.Pathをよく使います。試してみてください。
|
|