Exportar de un Flexgrid o un dat a excel.

[XYON126]

Hola!

He estado probando un codigo de esta pag. :

http://www.recursosvisualbasic.com.a...-a-excel.htm#1

y si en la linea de codigo del boton como indican cambio el path no me funciona, en cambio tal como esta en el codigo si pero me lo guarda en el directorio de VB//VB98. ¿Podriais indicarme porque?

Muchas gracias.

codigo boton original.:

Código vb:

' -------------------------------------------------------------------------------------------
' \\ -- Botón para importar datos en un nuevo libro
' -------------------------------------------------------------------------------------------
Private Sub Command1_Click()
    If Exportar_Excel(App.Path & "\libro1.xls", MSHFlexGrid1) Then
        MsgBox " Datos exportados en " & App.Path, vbInformation
    End If
End Sub
'
 

codigo boton modificado.:

Código vb:

Private Sub cmd_excel_Click()
If Exportar_Excel(App.Path & "Y:\libro1.xls", MSFlexGrid1) Then
         MsgBox " Datos exportados en " & App.Path, vbInformation
End If
End Sub