Visual Basic - De excel a txt

Life is soft - evento anual de software empresarial
   
Vista:

De excel a txt

Publicado por rodrigo (1 intervención) el 14/04/2008 19:20:22
Hola quisiera hacer una consulta. Mi problema consta en que quiero copiar numeros de dos columnas en excel en un archivo txt manteniendo la estructura de la columna, es decir:

1 2
5 7
2 9
2 10

He logrado solo copiar la primera columnacorrectamente con la siguiente rutina:

Private Sub CommandButton1_Click()
Dim Ruta As String, Archivo As String
Ruta = "C:Documents and SettingsRodrigo RocabadoEscritorioPLANILLAS"
Archivo = "Espectro"
With Workbooks.Add
ThisWorkbook.Worksheets("Etabs - Metodo 1").Range("b7:b47").Copy
With .Worksheets(1)
.Range("b5").PasteSpecial xlPasteValues
.Rows("1:2").EntireRow.Delete
End With
.SaveAs Filename:=Ruta & Archivo, FileFormat:=xlTextWindows
.Close False
End With
End Sub

Saludos.
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