Using Access 2010 VBA list all open Excel Workbooks -

OK, I should be missing something subtle here.

This VBA works in Excel 2010:

  Private Everything Extett () debug for each wb in workbooks as a WWB workbook. Print wb.Name Next wb end sub  

I'm trying to replicate this entry in VBA and I have not had any success of the following methods in Access 2010.

  Private AccessEstTeT1 () 'http://stackoverflow.com/questions/15958061/controlling-schel-' Workbook-to-Access-2010-VBA Driven xlApp Excel.Application Dim xlWB Excel.orkbook set for each xlwb as xlApp = New Excel.Application form Excel.Workbooks Debug.Print xlWB.Name Next nothing happens in xlWB. Stepping through 'and moving:' XLAPP = "MicroSoft Excel" 'XLWB =' Nothing 'XLVB is not set with name = object variable or block block. 'But do not put an error End Sub access to private sub AccessTest2 () objects- VBA dim xlApp Excel.Application as Dim West Bengal Excel' http://stackoverflow.com/questions/5729195/how-to Derived from -refer-to-excel-. 'Workbook set xlApp = New Excel.Application for Excel.Workbooks for each West Bengal' & lt; --- This is not something Debug.Print wb.Name move and hover through 'like' next West Bengal: 'xlApp = "Microsoft Excel"' West Bengal = nothing 'wb.Name = Object variable or block variable Not set up with. But there is no error in the xlApp.Workbooks for every West Bengal '& lt; --- It throws a "variable or object" not set with block variable "error Debug.Print wb.Name Next West Bengal End Sub Personal sub AccessTest3 () 'derived from http: // stackoverflow.com/questions/5729195/ ObjExcelApp = SetObject ("Excel.Application") set in the form of West Bengal = objExcelApp as set-up object in terms of how-to-refer-to-excel- 'VBA dim objExcelApp object dim West Bengal. Workbook '& lt; --- throws "Object does not support this property" 'Hover after error': 'or method error' objExcelApp = "Microsoft Excel" West Bengal = nothing objExcelApp.Workbooks Debug.Print wb.Name every West Bengal Next to wb closing sub  

I'm definitely checked in the "Microsoft Excel 14.0 Object Library" reference access. I am just trying to list any open Excel workbook so that I can take action against that information. Thanks for your help in advance.

set the new Excel. The app creates a new example of Excel - and of course you do not have a workbook there.

The one you want to achieve is to go through the pre-opened Excel example. That's why you have to use getObject ()

Another error is for your statement ... you're Xlap instead of Excel Workbooks have to be used. Workbook

The following code should provide the expunged result:

  Set the Excel.Application as a slow extension xlApp = GetObject (, "Excel.Application") Dim xlWB Excel for each XLWB in Excel form. In the workbook debug Print xlWb.Name set the next xlWB xlApp = none set xlWB = nothing  

Please set to set object objects to make sure nothing is done.