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
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
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
0