|
▼ウッシ さん:
>>いろいろありがとうございます。下記プログラムでうまくいきました。
>> 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を付ける
>
>それでは、
>「エクセルファイルが何個か開いている状態でAというブックを開いた時」
>にうまく行かないのでは?
上のプログラムの前に下記を挿入しています。
For i = 1 To Workbooks.Count
If StrComp("発注書", Left(Workbooks(i).Name, 3), 1) <> 0 Then
Workbooks(i).Windows(1).WindowState = xlMinimized
End If
Next
|
|