Creado el reporte en .txt abrir excel vba
Para Dante
Buenas noches Dante necesito de tu ayuda
Tengo la siguiente macro que me funciona perfecto, pero necesito que se abra el txt terminado de ejecutar la macro.
'Por. Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("reporte")
'
If ComboBox1 = "" Or ListBox1.ListCount = 0 Then Call Mensaje("No hay datos filtrados"): Exit Sub
h1.Copy
Set l2 = ActiveWorkbook
'
ruta = l1.Path & "\"
carpeta = "Reportes"
If Dir(ruta & carpeta, vbDirectory) = "" Then
MkDir (ruta & carpeta)
End If
'
arch = "reporte"
n = 1
Do While True
If Dir(ruta & carpeta & "\" & arch & n & ".txt") = "" Then
Exit Do
End If
n = n + 1
Loop
l2.SaveAs ruta & carpeta & "\" & arch & n & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False 'FileFormat:=xlOpenXMLWorkbook
l2.Close savechanges:=False
'Set l2 = Nothing
MsgBox "Hoja reporte guardada como archivo : " & arch & n & ".txt"
'End If
1 Respuesta
Respuesta de Dante Amor
1
Para abrir en excel:
l2.SaveAs ruta & carpeta & "\" & arch & n & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False 'FileFormat:=xlOpenXMLWorkbook l2.Close savechanges:=False Workbooks.OpenText _ Filename:=ruta & carpeta & "\" & arch & n & ".txt", _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 1), _ TrailingMinusNumbers:=True
Para abrir en notepad
l2.SaveAs ruta & carpeta & "\" & arch & n & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False 'FileFormat:=xlOpenXMLWorkbook l2.Close savechanges:=False ActiveWorkbook.FollowHyperlink ruta & carpeta & "\" & arch & n & ".txt"
sal u dos
