Excel macro guardar hoja datos
Tengo esta macro con el siguiente código:
Sub ExportarPDF()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = "Presupuesto" & " " & Worksheets("TRANSFERENCIAS").Range("D2").Value & " " & Worksheets("TRANSFERENCIAS").Range("G2").Value & " " & Worksheets("TRANSFERENCIAS").Range("I2").Value & ".xls"
.FilterIndex = 1 'como hoja excel
If .Show Then march = .SelectedItems(1) Else Exit Sub
End With
End Sub
Al ejecutarla me sale el cuadro de dialogo con el nombre que he definido pero al darle a guardar no hace nada, no se guarda el archivo, no se que ocurre...
1 Respuesta
Te falta la instrucción para guardar el archivo. Por la extensión que pusiste, supongo que tienes excel 2003
Sub Exportarxls()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = "Presupuesto" & " " & Worksheets("TRANSFERENCIAS").Range("D2").Value & " " & Worksheets("TRANSFERENCIAS").Range("G2").Value & " " & Worksheets("TRANSFERENCIAS").Range("I2").Value & ".xls"
.FilterIndex = 1 'como hoja excel
If .Show Then
march = .SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=march, FileFormat:=xlNormal
Else
Exit Sub
End If
End With
End SubSi tu versión es 2017 o superior y quieres guardarlo como libro sin macros, entonces en Fileformat:=xlOpenXMLWorkbook
Si lo quieres habilitado para macros, FileFormat:=xlOpenXMLWorkbookMacroEnabled
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
