Crear Archivo Excel desde VB6
De momento la cosa funciona, pero tengo un problema al cerrar el excel. No puedo abrir el fichero hasta que no cierro la aplicación, aún estando el fichero generado correctamente hace 10 min. Y al intentar generar el segundo da un fallo(este segundo no tiene nada que ver con el primero, ni el directorio).
¿Alguien me puede decir que me esta fallando?
dim excel as excel.application
Dim ExcelWBk As Excel.Workbook
Dim ExcelWS As Excel.Worksheet
...
...
...
ExcelWBk. SaveAs Nombre_Salida ' Salvar
ExcelWBk. Close
Excel. Quit
Set ExcelWS = Nothing
Set ExcelWBk = Nothing
Set Excel = Nothing
Peter
¿Alguien me puede decir que me esta fallando?
dim excel as excel.application
Dim ExcelWBk As Excel.Workbook
Dim ExcelWS As Excel.Worksheet
...
...
...
ExcelWBk. SaveAs Nombre_Salida ' Salvar
ExcelWBk. Close
Excel. Quit
Set ExcelWS = Nothing
Set ExcelWBk = Nothing
Set Excel = Nothing
Peter
Respuesta de rogersr
1
Te envío el código que utilizo para trabajar con Excel desde VB. No varía mucho frente al tuyo pero me funciona perfecto.
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act
'Abrir Archivo
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= "nombre_archivo"
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
.
.
.
'Para guardar los cambios en el archivo
libro_act.Save
libro_act.Saved = True
'Para cerrar el Archivo
ApExcel.quit
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Suerte !
Rogers R.
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act
'Abrir Archivo
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= "nombre_archivo"
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
.
.
.
'Para guardar los cambios en el archivo
libro_act.Save
libro_act.Saved = True
'Para cerrar el Archivo
ApExcel.quit
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Suerte !
Rogers R.
