quickfixer

回復 16# 502243

你要的不是同一個excel開2個檔互傳,而是2個不同excel.exe互傳資料,對嗎?

參考資料來源
https://www.mobile01.com/topicdetail.php?f=511&t=4737630&p=1
(#244f)
我試過工作管理員不會殘存excel.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

複製代碼

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

複製代碼

excel.zip (24.51 KB)

下載次數: 7

2019-3-15 04:09

quickfixer

回復 20# 502243


    dim 改 public,像 gbkee  #16 那像寫,就可以把關閉放到另一個sub
Public app1 As Object, book1 As Excel.Workbook