Guardar archivo word creado desde Excel
Tengo una macro que crea un archivo de word a partir de un archivo de Excel, pero necesito que el archivo de word que se crea, sea guardado en el escritorio, ¿qué debo poner?
2 respuestas
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada.
Cambia en la macro el nombre carpeta de tu escritorio en la siguiente línea:
ruta = "C:\trabajo\varios"
También cambia en la macro la celda de la cual quieres tomar el nombre del archivo en la siguiente línea:
nomb = [E17]
Sub PasarAWord()
'Por.Dante Amor
Sheets("Autorización manejo info").Select
u = Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveSheet.UsedRange.Copy
Set appWord = CreateObject("word.application")
appWord.Visible = True
appWord.Documents.Add
appWord.Selection.PasteSpecial DataType:=1
'
ruta = "C:\trabajo\varios"
nomb = [E17]
appWord.ActiveDocument.SaveAs ruta & "\" & nomb
Set appWord = Nothing
Application.CutCopyMode = False
MsgBox "Archivo guardado"
End Sub
Respuesta de Vitor Oliveira
objWord.ActiveDocument.SaveAs "C:\Users\??\??\??.doc"