GBKEE

¦^´_ 1# ui123
½Ð­×§ï¤@¤U

1. Option Explicit
   
2. Sub openworksheet()
   
3.     Dim AR(), E As Variant
   
4.     AR = Array("p1", "p2")
   
5.     For Each E In AR
   
6.         Workbooks.Open Filename:="D:\¦Û°Ê¤Æ°õ¦æ\" & E & ".xls"
   
7.         ActiveWorkbook.Close False
   
8.     Next
   
9.     MsgBox Join(AR, ",") & " ¶]§¹"
   
10. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. Sub P1()
   
3.     Dim i As Integer
   
4.     With ThisWorkbook.Sheets(1)
   
5.         For i = 1 To 5
   
6.             .Cells(i, 1).Value = Format(Now, "ss")
   
7.             Application.Wait (Now + TimeValue("00:00:01"))
   
8.         Next i
   
9.         Workbooks("Open.xls").Sheets(1).Range("A:A").Value = .Range("A:A").Value
   
10.     End With
    
11.     Application.Run "Open.xlsm!P1e" '°õ¦æ¨ä¥L¬¡­¶Ã¯ªºµ{§Ç
    
12.     '³oµ{§Ç¤¤°õ¦æ¨ä¥L¬¡­¶Ã¯ªºµ{§ÇP1e,µ{§ÇP1e¤¤µ{¦¡½XÃö³¬ "³o¬¡­¶Ã¯",µ¥©ó°±¤îVBAµ{¦¡ªº°õ¦æ,¤£·|¦AÄ~Äò¤U¥hP1eªºµ{¦¡½X
    
13.     '«Øij¤£­n°õ¦æ³o  Application.Run
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ui123
P1,P2ªºµ{¦¡½X ,¦³§ï¶Ü?

1. Option Explicit
   
2. Sub P1()  
   
3.     Dim i As Integer
   
4.     With ThisWorkbook.Sheets(1)
   
5.         For i = 1 To 5
   
6.             .Cells(i, 1).Value = Format(Now, "ss")
   
7.             Application.Wait (Now + TimeValue("00:00:01"))
   
8.         Next i
   
9.         Workbooks("Open.xls").Sheets(1).Range("A:A").Value = .Range("A:A").Value
   
10.     End WithEnd Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# ui123

1. Sub openworksheet()

½Æ»s¥N½X

¦³­×§ï¦¨2#ªºSub openworksheet()¶Ü?
P1(),P2()ªºµ{¦¡½X ,¦³­×§ï¦¨2#ªºP1,P2¶Ü?