Access - Codigo para pregutar la ubicación de destino de una exportación

   
Vista:

Codigo para pregutar la ubicación de destino de una exportación

Publicado por LUIS H (7 intervenciones) el 20/09/2017 00:02:41
Buen dia
Tengo una BD con una tabla llamada COMPRA DE CARTERA, mediante el siguiente codigo la exporto a una ubicaación especifica, simultaneamente se abre un InputBox en donde coloco el nombre del archivo ya que este cambia a diario

1
2
3
4
5
6
7
8
9
Private Sub Comando0_Click()
Dim NombreArchivo As String
NombreArchivo = InputBox("Digite el Nombre del archivo", "Proceso Alertas", "NombreArchivo")
    If StrPtr(NombreArchivo) = 0 Then 'Se pulsó Cancelar
    Call MsgBox("Proceso cancelado por el usuario", vbCritical, "Proceso Alertas")
    Exit Sub
    End If
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "COMPRA DE CARTERA", "C:\Users\LRiano\Desktop\PROCESO DIARIO\" & NombreArchivo, True, ""
End Sub

Lo que quiero es, que en vez de que me salga el InputBox, salga una ventana con el explorador de windows en donde yo busque la ubicación y hay mismo coloque el nombre del archivo que estoy exportando.

El codigo anterior anda bien y exporta en formato .xlxs

Muchas Gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad