Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/11/2005, 18:29
cesar_nava
 
Fecha de Ingreso: enero-2004
Ubicación: Ciudad de México
Mensajes: 476
Antigüedad: 21 años, 3 meses
Puntos: 14
Es simple.

Cuando crees tu libro especificale que solamente lo quieres con 1 hoja (utiliza la propiedad SheetsInNewWorkbook):

Dim excelApp, worksheet, sheet, querytables, querytable
Set excelApp = createobject("excel.Application")
excelApp.Visible = True
excelApp.SheetsInNewWorkbook = 1