123
返回列表 上一主題 發帖

[發問] 兩個獨立EXCEL 如何將運算完的資料回傳到主Excel?

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
11# 跳轉到 »
發表於 2019-3-13 21:00 | 只看該作者
回復 8# Scott090
    感謝前輩的回應
類似那樣呼叫但又不大一樣.....差在跨層呼叫
第一條參考我試過.可行
第二條我會在試看看

目前朝Application物件那方面嘗試..也就是.GBKEE大大給的參考下去研究

TOP

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
2  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-10-5 
12#
發表於 2019-3-13 22:58 | 只看該作者
回復 3# 502243


   所以我的檔案有回答到你的問題?

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
13#
發表於 2019-3-14 08:28 | 只看該作者
回復 12# zheng211016
差在多一個excel.exe的物件控制..就麻煩了點...網路上探討的好像並不多
也或者是我的查詢時關鍵字沒查到..
不過還是感謝各位前輩的指點協助

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
14#
發表於 2019-3-14 08:34 | 只看該作者
假若拿Sub Ex_newexce1()出來修改一下..
只是單純的複製貼上

Sub Ex_newexce2()
     Dim AR As Variant, Rng(1 To 2) As Range, E As Range

      With Workbooks("a").Sheets(1)
          Set Rng(1) = .Range(“A1”, .Range(“A1”).End(xlDown))   ‘同excel.exe 可以成功
          Set Rng(2) = Workbooks(“a”).Sheets(1).Range(“c1”)       ‘A檔A欄copy A檔C欄      
           Rng(1).Copy Rng(2)
      End With
   
End Sub


Sub Ex_newexce3()
     Dim AR As Variant, Rng(1 To 2) As Range, E As Range

      With Workbooks("a").Sheets(1)
          Set Rng(1) = .Range(“A1”, .Range(“A1”).End(xlDown)) ‘不同excel.exe  會失敗
          Set Rng(2) = Ap.Workbooks(“c”).Sheets(1).Range(“c1”) ‘‘A檔A欄copy C檔C欄
           Rng(1).Copy Rng(2)
      End With
   
End Sub

小弟還在思索著錯誤的原因....

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2019-3-14 09:13 | 只看該作者
本帖最後由 GBKEE 於 2019-3-14 10:20 編輯

回復 10# 502243
你只用圖片說明,但如再能加上範例檔祥加說明一切狀況,
回覆者會貼切的回答  


你疑惑<===E.Range("d1")  為何是用E?而不是用Ap.Workbooks("c").Sheets(1)
A的資料 不是要貼上C 的A欄 嗎?
Set Rng = Ap.Workbooks(1).Sheets(1).Range("A1") '指名C檔下
篩選[A欄]>5 取的 C 的D欄 的資料  >>不就  E.Range("d1")

你疑惑  If AR <> "" Then '有資料    <====AR最上面不是已經清空為0了??
這裡啊******
For Each E In Rng
        '大於5 寫上D欄的值  **有
        If E > 5 Then AR = AR & "," & E.Range("d1")
    Next
***********
xApp.App.Quit   或   Ap.Quit      都可


回復 14# 502243
不同excel.exe  間 的物件 無法用Copy
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
16#
發表於 2019-3-14 16:23 | 只看該作者
回復 15# GBKEE

感謝GBKEE版主大大的幫助..
    目前按照版大的樣本大略修改了一下..如下附檔 Excel VBA.zip (51.75 KB)
    另外會朝 不同excel.exe  間 的物件 控制關鍵字在下去搜尋相關語句
      Ap.Quit    <==這指令用在excel.exe物件裡面 可以讓表面程式看起來不見  卻會殘存excel.exe
    導致如果強制從  工作管理員關閉的話  再次啟動  Sub Ex_開始( )會產生"462"錯誤   <==錯誤發生的原因很多
   
001.png
   不過給的方向還是幫助很大....很感謝.....(畢竟小弟研究了一個禮拜都找不到方向..心理滴咕著)

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
28  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-10-22 
17#
發表於 2019-3-15 04:15 | 只看該作者
本帖最後由 quickfixer 於 2019-3-15 04:18 編輯

回復 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()

  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.    

  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)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2019-3-15 07:45 | 只看該作者
回復 16# 502243
    '一般 Module 的程式碼
  1.     Option Explicit
  2.     Public Ap As Object, Aa As Object
  3.    Sub Ex_開始()
  4.          '新開2個Excel 程式
  5.          Set Ap = New Application
  6.         Set Aa = New Application
  7.          Stop '開啟工作管理員看看
  8.         Ap.Visible = True
  9.        Stop '開啟工作管理員看看
  10.         Aa.Visible = True
  11.         Stop '開啟工作管理員看看
  12.          
  13.     End Sub
  14.      Sub Ex_結束()
  15.           Stop '開啟工作管理員看看
  16.           Ap.Quit
  17.           Stop '開啟工作管理員看看
  18.           Aa.Quit
  19.           Stop '開啟工作管理員看看
  20.     End Sub
  21.    
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
19#
發表於 2019-3-15 08:17 | 只看該作者
回復 17# quickfixer


    感謝quickfixer大大的資料參考
   的確是兩個不同的excel.exe資料互傳....
    原來是要利用set 加上緩衝區...
   屆時我會參考前輩們的模型基板下去做修改調整.....
   萬分感謝~

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
20#
發表於 2019-3-15 08:41 | 只看該作者
本帖最後由 502243 於 2019-3-15 08:43 編輯

回復 18# GBKEE
  1.   '一般 Module 的程式碼
  2. Option Explicit
  3.     Public Ap As Object, Aa As Object
  4.    Sub Ex_開始( )
  5.          '新開2個Excel 程式
  6.          Set Ap = New Application
  7.           Set Aa = New Application
  8.             Stop '開啟工作管理員看看
  9.              Ap.Visible = True
  10.             Stop '開啟工作管理員看看
  11.              Aa.Visible = True
  12.       '  Stop '開啟工作管理員看看         
  13.     End Sub

  15.      Sub Ex_結束( )
  16.           Stop '開啟工作管理員看看
  17.           Ap.Quit
  18.           Stop '開啟工作管理員看看
  19.           Aa.Qui
  20.           Stop '開啟工作管理員看看
  21.     End Sub

  23.     Sub test( )
  24.         Dim app1 As Object, book1 As Excel.Workbook
  25.         Set app1 = CreateObject("Excel.Application")
  26.         app1.Visible = True                 
  27.         app1.Quit
  28.         Set app1 = Nothing
  29.     End Sub
複製代碼
剛試了一下 test可以完全關閉新建立excel.exe  與上面的差異 多了一個set app1=Nothing
所以新建excel物件   建立與關閉不能拆分成兩個副程式?
恩...我在多試幾個看看

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
123
返回列表 上一主題