Víctor Arturo Mercado Fernández respondió:
Suponiendo que se tiene el cursor o la base de datos: Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets.Add For c = 1 To 5 'Número de campos For r = 1 To 5 'Número de...