返回列表 上一主題 發帖

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

回復 17# quickfixer


    謝謝點明了 application.run  --> app1.Run "test"

TOP

回復 20# 502243


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

TOP

Sub readData()

'数据读取
'----------------------------------------------
    Dim dataExcel, Workbook, sheet
    Dim totalRow  As Integer
    Set dataExcel = CreateObject("Excel.Application")
    Set Workbook = dataExcel.Workbooks.Open("E:\要读取数据的源文件.xlsx")
    Set sheet = Workbook.Worksheets(1)     '读取第一个sheet页的数据
    totalRow = sheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    For i = 2 To totalRow
         
         Sheets("sheet1").Cells(i, 3) = sheet.Cells(i, 4)
        
    Next i
    Workbook.Close
    MsgBox "读取成功!", vbSystemModal '读取完后弹框提醒
'----------------------------------------------
End Sub

TOP

回復 22# quickfixer

感謝quickfixer大..一語驚醒夢中人..
還在想說怎麼拆分...
現在已經順利將建成物件..和A檔copy到C檔..C檔copy回A檔 ..分成3個副程式框架
剩下再把其餘的副程式加入其中...
調整一些流程步驟..

感謝回應這篇主題的各位前輩點醒...

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題