
Cálculo de Dígito de Verificación
Access
Publicado el 29 de Septiembre del 2019 por Sebastian
2.341 visualizaciones desde el 29 de Septiembre del 2019
Tener activas las librerías ADO, DAO, OLE Automation en el vba for applications del access
'Pasar datos de excel a TXT
Sub Consulta01()
Dim NombreArchivo, rutaArchivo As String
NombreArchivo = Range("A1")
rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
Open (rutaArchivo) For Output As 1
Print #1, ActiveSheet.Range("A2").Value
Print #1, ActiveSheet.Range("A3").Value
Print #1, ActiveSheet.Range("A4").Value
Print #1, ActiveSheet.Range("A5").Value
Close #1
Range("A1").Select
MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito", , "ExcelConsultor"
End Sub