Como cambiar este código paraq ue me pregunte la ruta y no que yo la ponga directo en el código
Sub ExportarFileTxt()
Ruta = "C:\Users\jjimenez\Pictures\creacion_de_txt\prueba1.txt"
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Open Ruta For Output As #1
For i = 1 To LastRow
Print #1, Cells(i, 1).Value & "####" & Cells(i, 2).Value & "###"; Cells(i, 3).Value & "###" & Cells(i, 4).Value & "###" & Cells(i, 5).Value & "###" & Cells(i, 6).Value
Next i
Close #1
Por partes
1º No tengo ni idea de Excel
2º Lo puedes hacer de muchas formas. Por ejemplo, usando un inputbox
Cuando pulso el botón me pregunta por la ruta. La escribo
Y cuando acepto
3º Pero teniendo en cuenta que para eso, es mucho más cómodo usar la función
MsoFileDialog
Que lo que hace es abrirte un "explorador" para que localices el archivo, sea el que sea, que te interese.
en realidad lo que quiero es que realice un guardar como con la extensión .txt
Ya te dije que el Excel no es lo mío, es el Access. Pero si quiero guardar algo( en este caso, para el ejemplo voy a usar una tabla, que supongo que, más o menos, equivale a vuestra hoja). Y en un formulario cualquiera le pongo un botón
Cuando pulso el botón
Escribo la ruta y el nombre conque quiero que me guarde y
Aunque, personalmente, lo guardaría en formato de texto enriquecido(*.rtf), ya que esto te permitiría abrirlo tambien con Microsoft Word.
El código del botón es
He pulsado, sin querer, lo de Enviar, el código es
Dim s As String
s = InputBox("Escriba una ruta", "Muchas Graccccias")
DoCmd.OutputTo acOutputTable, "Socios", "MS-DOSText(*.txt)", "" & s & "", False, "",, acExportQualityPrint
