| 
    
     |  | おはようございます。 
 このマクロのある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をよく使います。試してみてください。
 
 |  |