Corregir macro guardar archivo en .Txt
Tengo una macro que habría que corregir. El tema es que al guardar a un archivo en excel .txt, al intentar abrir el archivo me salta un error :"Otro programa está usando este archivo."
Al cerrar Exel, el archivo se puede abrir con normalidad.
Esta es la macro:
Sub Macro4()
'
' Macro4 Macro
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Ramon\Desktop\exel a word\Versión Beta Hoja 2" & ".bat", FileFormat:= _
xlTextPrinter, CreateBackup:=False
Application.WindowState = xlNormal
End Sub
P.D. Me gustaría que me dejara guardar en un sitio distinto cada vez (¿con cuadro de dialogo? ¿)
1 Respuesta
Visita:
Cursos de Excel y Macros - YouTube
Ejecuta la siguiente macro sobre la hoja que quieres guardar como "txt".
NOTA: Cambié la extensión ".bat" a ".txt"
Sub Macro4() Dim sPath As String ' Application.DisplayAlerts = False Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecciona Carpeta" If .Show <> -1 Then Exit Sub sPath = .SelectedItems(1) End With ' ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=sPath & "\Versión Beta Hoja 2" & ".txt", _ FileFormat:=xlTextPrinter, CreateBackup:=False ActiveWorkbook.Close False ' Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Recomendaciones:
Declarar variables en vba excel. Curso de macros. - YouTube
Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Consejos para desarrollar macros . curso de excel, curso de macros, excel, macros - YouTube
Sal u dos. Dante Amor
