|
▼ウッシ さん:
>なんかうまく行かないですね。
>
>Private Sub Workbook_Open()
> Workbooks.Open Filename:="C:\B.xls"
> Windows.Arrange _
> ArrangeStyle:=xlArrangeStyleVertical, _
> ActiveWorkbook:=False, SyncVertical:=True
> Windows.CompareSideBySideWith ThisWorkbook.Name
>End Sub
>
>こうするとどうでしょうか?
いろいろありがとうございます。下記プログラムでうまくいきました。
Workbooks.Open Filename:="C:\B.xls"
Workbooks("B.xls").Activate
Application.Windows.CompareSideBySideWith "B.xls"
Application.Windows.Arrange ArrangeStyle:=xlVertical, SyncHorizontal:=False, SyncVertical:=False
Workbooks("B.xls").Activate
Windowsの前にApplicationを付ける
お手数をお掛けしました。
|
|