xls2txt

[son_shinta]

holas

quisiera saber si alguien sabe como exportar el contenido de un excel, mas bien parte de un contenido de un excel a un txt via macros?????, es decir, que comando me sirve etc ...

la idea es no hacer copiar pegar a mano, porke tengo que hacerlo varias veces ...

salu2

[caesar.l]

puedes probar con

Sub guardar()

Dim Directorio As String
Dim Nombre_Archivo As String


Nombre_Archivo = "librotxt"

Application.DisplayAlerts = False
Directorio = "C:\"
ActiveWorkbook.SaveCopyAs Filename:=Directorio & Nombre_Archivo & ".txt", FileFormat :=xlText, CreateBackup:=False
Application.DisplayAlerts = True

End Sub

aunque guarda la primera hoja, no sé si tienes los datos en varias hojas

[son_shinta]

gracias, pero nu me sirve, porke necesito exportar solo una parte dela hoja a un txt. Si a alguien le interesa hice esto: (en realidad modifique algo que encontre y quedo asi:)

Sub ExportToTextFile(FName As String, Sep As String, StartRow As Long, _
EndRow As Long, StartCol As Integer, EndCol As Integer)
Dim WholeLine As String
Dim FNum As Integer
Dim RowNdx As Long
Dim ColNdx As Integer
Dim CellValue As String
Application.ScreenUpdating = False
On Error GoTo EndMacro:
FNum = FreeFile
Open FName For Output Access Write As #FNum
For RowNdx = StartRow To EndRow
WholeLine = ""
For ColNdx = StartCol To EndCol
If Cells(RowNdx, ColNdx).Value = "" Then
CellValue = "NaN"
Else
CellValue = Cells(RowNdx, ColNdx).Value
End If
WholeLine = WholeLine & CellValue & Sep
Next ColNdx
WholeLine = Left(WholeLine, Len(WholeLine) - Len(Sep))
Print #FNum, WholeLine
Next RowNdx
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #FNum
End Sub