Difference between CreateObject(“Excel.Application”) .Workbooks.Open and just Workbooks.Open

前端 未结 2 1571
北恋
北恋 2021-02-12 22:49

I am currently using Workbooks.Open to process a large number of files contained in a directory. But opening and closing these files make the files appear in the ta

相关标签:
2条回答
  • 2021-02-12 23:34

    Workbooks.Open uses the current MS Excel instance and CreateObject(“Excel.Application”) creates a new MS Excel instance. You can read up on CreateObject here.

    Simply issuing a Workbooks.Open after creating a new instance will not ensure that the workbooks open in the new instance. You will have to bind with it. For example

    Dim oXLApp As Object, wb As Object
    
    Set oXLApp = CreateObject("Excel.Application")
    
    '~~> Hide Excel
    oXLApp.Visible = False
    
    '~~> Open files
    Set wb = oXLApp.Workbooks.Open("C:\Sample.xls")
    

    Regarding your other question

    Also, should I just use one instance of Excel created using CreateObject to open all Workbooks or do I need to create one instance for each workbook I have to process

    You don't need several instances. You can work with one instance. For example

    Dim oXLApp As Object, wb As Object
    
    Set oXLApp = CreateObject("Excel.Application")
    
    '~~> Hide Excel
    oXLApp.Visible = False
    
    '~~> Open files
    Set wb = oXLApp.Workbooks.Open("C:\Sample1.xls")
    
    '
    '~~> Do some Stuff
    '
    
    wb.Close (False)
    
    '~~> Open files
    Set wb = oXLApp.Workbooks.Open("C:\Sample2.xls")
    '
    '~~> Do some Stuff
    '
    
    wb.Close (False)
    
    '
    '~~> And So on
    '
    
    0 讨论(0)
  • 2021-02-12 23:39

    Late binding is slightly slower than early binding, but you may not even notice the difference. Yes, you can use just use one instance for all the workbooks. Note that this:

    Dim xl As New Excel.Application
    
    xl.Workbooks.Open "z:\docs\test.xlsm"
    

    Will not be visible unless you say:

    xl.Visible = True
    

    Be sure to close any instances in your error trap.

    0 讨论(0)
提交回复
热议问题