Excel - Guardar archivo .txt con nombre variable

   
Vista:

Guardar archivo .txt con nombre variable

Publicado por Richard (43 intervenciones) el 15/03/2008 06:29:45
Como puedo guardar datos de una hoja de excel en un archivo .txt en una ubicación determinada donde el nombre del archivo esté definido por una variable?
He intentado lo siguiente, pero no ha funcionado:

Sub guardatosTXT()
nfact = Worksheets("control").Cells(3, 2)
narch=Worksheets("control").Cells(3, 3)
Open "C:"&narch&".txt" For Output As #1
For i = 1 To nfact
For j = 1 To 70
dato = Cells(i, j).Value
Write #1, dato
Next j
Next i
Close #1

Agradezco cualquier 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

RE:Guardar archivo .txt con nombre variable

Publicado por JuanC (792 intervenciones) el 15/03/2008 11:50:40
hice esta prueba y funciona bien...

Sub guardatosTXT()
Dim hFile%, iFact&, sArch$, sDato$
Dim i&, j&
iFact = Worksheets("hoja1").Cells(3, 2)
sArch = Worksheets("hoja1").Cells(3, 3)
hFile = FreeFile
Open "C:windowsescritorio" & sArch & ".txt" For Output As hFile
For i = 1 To iFact
For j = 1 To 5
sDato = Cells(i, j).Value
Write #hFile, sDato
Next j
Next i
Close hFile
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Guardar archivo .txt con nombre variable

Publicado por Richard (43 intervenciones) el 16/03/2008 00:20:18
Gracias JuanC. Funciona bien en el sentido que guarda el archivo , pero no lo guarda en la direccion determinada "c:windowsescritorio", sino en "misdocumentos" con el nombre "windowsescritorio"&sArch. Para seguir con tu ejemplo:
Lo que necesito es que se guarde con el nombre sArch en ("c:windowswscritorio") eo sea en C y en la carpeta "windowsescritorio". Agradezco tu ayuda...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Guardar archivo .txt con nombre variable

Publicado por Richar (43 intervenciones) el 16/03/2008 00:34:37
Doy alcance a la anterior nota. La solución es adicionarle el slash asi:

Dim hFile%, iFact&, sArch$, sDato$
Dim i&, j&
iFact = Worksheets("Control").Cells(3, 2)
sArch = Worksheets("Control").Cells(3, 3)
hFile = FreeFile
Open "C:windowsescritorio" & sArch & ".txt" For Output As hFile
For i = 1 To iFact
For j = 1 To 5
sDato = Cells(i, j).Value
Write #hFile, sDato
Next j
Next i
Close hFile

Gracias Juanc por tu valiosa ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar