[µo°Ý] ¦p¦ó¨ú±o¤v¶}±ÒEXCEL±±¨îÅv,°õ¦æ¥~³¡ÀÉ®×¥¨¶°

blue2263

½Ð±Ð¤j¤j
ªþÀÉ1 & 2¥Ñ¨â­ÓEXCEL¦U§O¥´¶}«á,
°õ¦æ1.xlsb OpenApp¥¨¶°,¦p¤Uµ{¦¡½X,
Àɮצb¤v¶}±Òªºª¬ºA¤U,¦p¦ó¨ú±o¤v¶}±ÒEXCEL±±¨îÅv?,°õ¦æ2.xlsb´ú¸Õ¥¨¶°

x.rar (21.65 KB)

¤U¸ü¦¸¼Æ: 2

2019-7-9 11:49

1. Private Sub OpenApp()
   
2. 
   
3.     On Error Resume Next
   
4.     Err.Clear
   
5.     Open ThisWorkbook.Path & "\" & 2 & ".xlsb" For Append As #1
   
6.     Close #1
   
7. 
   
8.     If Err.Number > 0 Then '¦¹¬¡­¶Ã¯¤v³Q¶}±Ò
   
9. 
   
10.         '¦¹¬¡­¶Ã¯¤v³Q¶}±Ò,¦¹³B­n¦p¦ó¨ú±o¤v¶}±ÒEXCEL±±¨îÅv?,°õ¦æ´ú¸Õ¥¨¶°
    
11.         app1.Run "´ú¸Õ"
    
12.     Else
    
13.         Set app1 = CreateObject("Excel.Application")
    
14.         Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\2.xlsb")
    
15.         app1.Visible = True
    
16. 
    
17.         app1.Run "´ú¸Õ"
    
18.     End If
    
19. 
    
20.     Set app1 = Nothing
    
21.     Set book1 = Nothing
    
22. End Sub

½Æ»s¥N½X

blue2263

§Ú¤v¦bºô¸ô¤W§ä¨ì¸Ñµª ,´£¨Ñµ¹»Ý­nªºªB¤Í
https://tw.answers.yahoo.com/question/index?qid=20090214000016KK01619

1. Private Sub OpenApp()
   
2.     Dim app1 As Object
   
3.     On Error Resume Next
   
4.     Err.Clear
   
5.     Open ThisWorkbook.Path & "\" & 2 & ".xlsb" For Append As #1
   
6.     Close #1
   
7. 
   
8.     If Err.Number > 0 Then '¦¹¬¡­¶Ã¯¤v³Q¶}±Ò
   
9.         Set app1 = CreateObject(ThisWorkbook.Path & "\" & 2 & ".xlsb")
   
10.         app1.Application.Run "´ú¸Õ"
    
11.   
    
12.     Else  '¦¹¬¡­¶Ã¯¥¼³Q¶}±Ò
    
13.         Set app1 = CreateObject("Excel.Application")
    
14.         Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\2.xlsb")
    
15.         app1.Visible = True
    
16.         app1.Run "´ú¸Õ"
    
17.     End If
    
18. 
    
19.     Set app1 = Nothing
    
20.     Set book1 = Nothing
    
21. End Sub

½Æ»s¥N½X