GBKEE

¦^´_ 1# bqwangs
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.    Dim H As Integer, W As Integer
   
4.     With Application
   
5.         .WindowState = xlMaximized
   
6.         H = .Height
   
7.         W = .Width
   
8.         .WindowState = xlNormal
   
9.         .Top = 1
   
10.         .Left = 1
    
11.         .Width = W
    
12.         .Height = H / 2
    
13.         With New Application
    
14.             .Visible = True
    
15.             .WindowState = xlNormal
    
16.             .Top = Int(H / 2)
    
17.             .Left = 1
    
18.             .Width = W
    
19.             .Height = H / 2
    
20.             .Workbooks.Open ThisWorkbook.Path & "\book2.xls" '²Ä¤G­ÓÀÉ®×
    
21.         End With
    
22.         .ActiveWindow.Activate
    
23.     End With
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# bqwangs
Book2¤£¬O¦³ Private Sub Workbook_Open() [³oµ{¦¡½X¦b ThisWorkbook¼Ò²Õ¸Ì]
¥i¦b Book1 ±N  Sub Ex() §ï¬° Sub Workbook_Open()  ,
Book1¶}±Ò®É¦Û°Ê°õ¦æ, ©Î¬O.

1. Private Sub Workbook_Open()
   
2.         Ex
   
3. End Sub

½Æ»s¥N½X