quickfixer

¦^´_ 16# 502243

§A­nªº¤£¬O¦P¤@­Óexcel¶}2­ÓÀɤ¬¶Ç,¦Ó¬O2­Ó¤£¦Pexcel.exe¤¬¶Ç¸ê®Æ,¹ï¶Ü?

°Ñ¦Ò¸ê®Æ¨Ó·½
https://www.mobile01.com/topicdetail.php?f=511&t=4737630&p=1
(#244f)
§Ú¸Õ¹L¤u§@ºÞ²z­û¤£·|´Ý¦sexcel.exe
1.xlsm

1. Sub test()
   
2. 
   
3.     Dim app1 As Object, book1 As Excel.Workbook
   
4.     Set app1 = CreateObject("Excel.Application")
   
5.     Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsm")
   
6.     app1.Visible = True
   
7.    
   
8.     Dim sourcedata As Range, targetdata As Range, temp() As Variant
   
9.     Set sourcedata = Sheets("a").Range("a1:a5")
   
10.     Set targetdata = book1.Sheets("b").Range("a1:a5")
    
11.     temp = sourcedata
    
12.     targetdata.Value = temp
    
13.    
    
14.     app1.Run "test"
    
15.    
    
16.     Set sourcedata = book1.Sheets("b").Range("b1:b5")
    
17.     Set targetdata = Sheets("a").Range("c1:c5")
    
18.     temp = sourcedata
    
19.     targetdata.Value = temp
    
20.    
    
21.     book1.Close SaveChanges:=False
    
22.     app1.Quit
    
23.     Set app1 = Nothing
    
24.     Set book1 = Nothing
    
25.    
    
26. 
    
27. End Sub

½Æ»s¥N½X

2.xlsm

1. Sub test()
   
2.    
   
3.     For i = 1 To 5
   
4.         Sheets("b").Cells(i, 2) = Sheets("b").Cells(i, 1) + Rnd()
   
5.     Next i
   
6.    
   
7. End Sub

½Æ»s¥N½X

excel.zip (24.51 KB)

¤U¸ü¦¸¼Æ: 7

2019-3-15 04:09

quickfixer

¦^´_ 20# 502243


    dim §ï public,¹³ gbkee  #16 ¨º¹³¼g,´N¥i¥H§âÃö³¬©ñ¨ì¥t¤@­Ósub
Public app1 As Object, book1 As Excel.Workbook