como hago lo siguiente ????

18/12/2003 - 09:58 por gema | Informe spam

Hola
tengo el siguiente problema ...

en la hoja1, en la columna A tengo una lista de nombres
por ejemplo : A1= AAA0120031217 ; en A2= AAA0220031218
A3=... necesito una macro que lea la columna A y
grabe archivos txt con los nombres que encuentre en la
columna A. Asi al final tendria los archivos
AAA0120031217.txt , AAA0220031218.txt .

Ahora el problema es que necesito que cuando ejecuto la
macro y cuando vaya a guardar el archivo AAA0120031217 :
si el archivo ya existe en mi directorio ...se salte es
paso , que no guarde nada y siga con la linea A2 y guarde
el siguiente archivo

Lo que tengo hasta ahora de codigo me graba el primer
archivo . comot endria que ahcer para obtener lo que
quiero??

Sub Macro1()

Var = Range("A2") & (".txt")
ActiveWorkbook.SaveAs Filename:= _
"\\Gema\SharedDocs\" & (Var), FileFormat:=xlNorma, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Iago

19/12/2003 - 02:44 | Informe spam

Pues no se como te ha funcionado ese metodo, porque en realidad intentas
guardar un archivo como xls, solo q con extension txt lo que da como
resultado un caos de archivo.
Bueno, a lo que ibamos...
He estado intenatando lo q dices, pero no me sale, soy aficionado, con
tendencia a olvidar..

Sub Macro1()
Dim nombre As String
For i = 1 To 10
nombre = Range("A" & i).Value & ".txt"
Workbooks.Add
ActiveWorkbook.SaveAs FileName:="C:\Mis documentos\Excel\Gema\" &
nombre, _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
Next i
End Sub

Con eso puedes crear archivos, solo que no mira a ver si existe.
Y hay otro problema, con una ventana que aparece al cerrar cada archivo,
preguntando a ver si quieres guardar los datos del txt o algo asin...
Bueno que alguien que sepa se moje y se lo diga q no es nada del otro
mundo...
Ciao...

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida