Mostrar cuadro de diálogo \'Guardar como\' en Excel desde VB
daniel316
24 de Febrero del 2006
Hola a todos
Tengo una duda que no he podido resolver hasta ahora, tengo una aplicación en Visual Basic 6 que exporta datos a un libro Excel, lo hago a partir de una plantilla (o sea un libro existente que ya tengo formateado) pero quiero que cuando habra el libro me muestre el cuadro de diálogo "Guardar como ..." de Excel
Espero que alguien me pueda ayudar con el código necesario, de antemano muchas gracias.
Tengo una duda que no he podido resolver hasta ahora, tengo una aplicación en Visual Basic 6 que exporta datos a un libro Excel, lo hago a partir de una plantilla (o sea un libro existente que ya tengo formateado) pero quiero que cuando habra el libro me muestre el cuadro de diálogo "Guardar como ..." de Excel
Espero que alguien me pueda ayudar con el código necesario, de antemano muchas gracias.
csdk
24 de Febrero del 2006
NESECITA UN COMOMDIALOG EN TU FORM DE VB Y DESPUES EL CODIGO SIG
DIM ARCH AS STRING
Mdi_Frm_Incentivos.CommonDialog1.Filter = "Libro de Microsoft Excel|*.xls"
Mdi_Frm_Incentivos.CommonDialog1.ShowSave
arch = Mdi_Frm_Incentivos.CommonDialog1.FileName
If arch = "" Then 'errorororo
MsgBox "No se genero el Reporte", vbCritical
Exit Sub
Else
ARXH.Worksheets(1).SaveAs arch
ApExcel.Workbooks.Close
ApExcel.Quit
ENDIF
DIM ARCH AS STRING
Mdi_Frm_Incentivos.CommonDialog1.Filter = "Libro de Microsoft Excel|*.xls"
Mdi_Frm_Incentivos.CommonDialog1.ShowSave
arch = Mdi_Frm_Incentivos.CommonDialog1.FileName
If arch = "" Then 'errorororo
MsgBox "No se genero el Reporte", vbCritical
Exit Sub
Else
ARXH.Worksheets(1).SaveAs arch
ApExcel.Workbooks.Close
ApExcel.Quit
ENDIF