Ik heb een schript gemaakt (deels gekopieerd van dit forum) voor iemand die een Mac heeft.
Op mijn windows PC werkt het prima, maar op de Mac geeft hij een fout bij de applicatie "GetSaveAsFilename"
Ook het opslaan van de PDF werkt niet
Doel is het openen van een Excel bestand dat beschermd is tegen overschrijven
na het invullen wordt het document opgeslagen als PDF en .xlsx bestand met een bestandsnaam die wordt opgehaald uit gegevens in de sheet.
Na het opslaan sluit hij alles af. Een soort sloop-proef document en een zekerheid dat de bestanden worden opgeslagen op de juiste manier!
Heeft iemand een idee wat ik voor een mac anders moet doen?
het script:
Op mijn windows PC werkt het prima, maar op de Mac geeft hij een fout bij de applicatie "GetSaveAsFilename"
Ook het opslaan van de PDF werkt niet
Doel is het openen van een Excel bestand dat beschermd is tegen overschrijven
na het invullen wordt het document opgeslagen als PDF en .xlsx bestand met een bestandsnaam die wordt opgehaald uit gegevens in de sheet.
Na het opslaan sluit hij alles af. Een soort sloop-proef document en een zekerheid dat de bestanden worden opgeslagen op de juiste manier!
Heeft iemand een idee wat ik voor een mac anders moet doen?
het script:
Code:
Sub Opslaan()
Dim strFileName As Variant
Dim strPath As String
strFileName = Range("I2").Value
Pad = ActiveWorkbook.Path + "\"
strFileName = Application.GetSaveAsFilename(InitialFileName:=Pad & strPath & strFileName, _
FileFilter:="Excel Files (*.xls), *.xls, Excel 2007 Files (*.xlsx), *.xslx", _
FilterIndex:=2, _
Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
If strFileName = False Then
MsgBox "Oh oh... je hebt niet opgeslagen! "
Else
Application.DisplayAlerts = False
Application.Run "PDF"
ActiveSheet.Copy
Columns("F:J").Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:=strFileName
ActiveWorkbook.Close SaveChanges = False
Windows("Basisfactuur.xlsm").Activate
MsgBox "Gelukt! Opgeslagen als: " & strFileName
Application.Quit
End If
End Sub
Sub PDF()
'
' PDF Macro
'
Dim strFileName As Variant
Dim strPath As String
Dim Pad As String
strFileName = Range("I2").Value
Pad = ActiveWorkbook.Path + "\"
Naam = Pad & strFileName + ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & strFileName + ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Laatst bewerkt: