|
こんにちは
こんな感じでしょうか?
Private Sub Workbook_Open()
Dim a As Workbook
Set a = ThisWorkbook
Workbooks.Open Filename:="C:\B.xls"
Windows.CompareSideBySideWith a.Name
Windows.Arrange ArrangeStyle:=xlVertical
a.Activate
End Sub
▼亜矢 さん:
>よろしくお願いします。
> エクセルファイルが何個か開いている状態で
>Aというブックを開いた時
>
>Aというファイルに下記のプログラム(途中略)
> Workbooks.Open Filename:="C:\B.xlsb"
> Windows.CompareSideBySideWith "B.xlsb"
> Windows.Arrange ArrangeStyle:=xlVertical
> この時’インデックスが有効範囲にありません'とのエラーメッセージが
> でます。
> どのようにしたらよいか教えて頂きたいと思います。
> AのブックとBのブックを並べて表示したいと思います。
|
|