Generar archivos txt con otra extension y selección de ruta para guardar en celda activa con excel
Quisiera que me ayudes en este tema, pues tengo un archivo en excel, que al seleccionar la ruta con un botón en una celda de excel tome esa ruta y con otro botón me genere el archivo txt en otra extensión dentro de esa carpeta y si no existe la carpeta que lo crea. En el archivo tengo avanzado el código pero no me genera.
Te adjunto el archivo a tu correo.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código actualizado:
Sub DATOSPERSONALES_TRAB()
'Act.Por.Dante Amor
Dim i As Integer
Dim Ruta, Codigo, Archivo, Nombre, Origen, Linea, Extension As String
'
Ruta = Worksheets("E-4").Range("D6")
If Ruta = "" Then
MsgBox "No se ha seleccionado ningún directorio.", vbCritical, "Operacion cancelada!"
Exit Sub
End If
'
Codigo = Worksheets("E-4").Range("D4")
If Codigo = "" Then
MsgBox "No ha escrito el Codigo", vbCritical, "Operacion cancelada!"
Exit Sub
End If
'
If dir(Ruta, vbDirectory) = "" Then
If dir("Registro", vbDirectory) = "" Then
MkDir "C:\Registro"
Ruta = "C:\Registro"
End If
End If
'
Nombre = "RP_" & CStr(Codigo) & ".Ide"
Origen = FreeFile()
Open Ruta & "\" & Nombre For Output As #Origen
'
For i = 11 To Cells(Rows.Count, 2).End(xlUp).Row
Column01 = Format(Cells(i, 2), "00")
Column02 = Cells(i, 3)
Column03 = Cells(i, 4)
Column04 = Format(Cells(i, 5), "DD/MM/YYYY")
Column05 = Cells(i, 6)
Column06 = Cells(i, 7)
Column07 = Cells(i, 8)
Column08 = Cells(i, 9)
Column09 = Cells(i, 10)
Column10 = Cells(i, 11)
Column11 = Cells(i, 12)
Column12 = Cells(i, 13)
Column13 = Format(Cells(i, 14), "00")
Column14 = Cells(i, 15)
Column15 = Cells(i, 16)
Column16 = Cells(i, 17)
Column17 = Cells(i, 18)
Column18 = Cells(i, 19)
Column19 = Cells(i, 20)
Column20 = Cells(i, 21)
Column21 = Cells(i, 22)
Column22 = Cells(i, 23)
Column23 = Format(Cells(i, 24), "00")
Column24 = Cells(i, 25)
Column25 = Cells(i, 26)
Column26 = Format(Cells(i, 27), "000000")
Column27 = ""
Column28 = ""
Column29 = ""
Column30 = ""
Column31 = ""
Column32 = ""
Column33 = ""
Column34 = ""
Column35 = ""
Column36 = ""
Column37 = ""
Column38 = ""
Column39 = ""
Column40 = ""
Column41 = Cells(i, 28)
Linea = _
CStr(Column01) + "|" + CStr(Column02) + "|" + _
CStr(Column03) + "|" + CStr(Column04) + "|" + _
CStr(Column05) + "|" + CStr(Column06) + "|" + _
CStr(Column07) + "|" + CStr(Column08) + "|" + _
CStr(Column09) + "|" + CStr(Column10) + "|" + _
CStr(Column11) + "|" + CStr(Column12) + "|" + _
CStr(Column13) + "|" + CStr(Column14) + "|" + _
CStr(Column15) + "|" + CStr(Column16) + "|" + _
CStr(Column17) + "|" + CStr(Column18) + "|" + _
CStr(Column19) + "|" + CStr(Column20) + "|" + _
CStr(Column21) + "|" + CStr(Column22) + "|" + _
CStr(Column23) + "|" + CStr(Column24) + "|" + _
CStr(Column25) + "|" + CStr(Column26) + "|" + _
CStr(Column27) + "|" + CStr(Column28) + "|" + _
CStr(Column29) + "|" + CStr(Column30) + "|" + _
CStr(Column31) + "|" + CStr(Column32) + "|" + _
CStr(Column33) + "|" + CStr(Column34) + "|" + _
CStr(Column35) + "|" + CStr(Column36) + "|" + _
CStr(Column37) + "|" + CStr(Column38) + "|" + _
CStr(Column39) + "|" + CStr(Column40) + "|" + _
CStr(Column41) + "|"
Print #Origen, Linea
Next
Close #Origen
MsgBox "Archivo generado correctamente en: " & vbCrLf & Ruta, 64, "Registro..!!"
End Sub
