我从未编写过 VBA 代码,但我在互联网上查看了一些信息。
我的愿望如下:我有一个包含 3 张纸的 Excel 文件。在其中一个上,我想添加一个按钮,它可以:
- 按照以下命名约定保存我的 Excel 文件的全部内容:
[name of a cells of a page]_AP_[date of today].xls
. - 将其中一张工作表保存为 .pdf 文件。
- 在调整内容的同时打印 3 张中的 2 张。
我已经开始做一些事情了,但我真的不擅长编程:
Public Sub Savefile_Click() 'copie sauvegarde classeur
' save my file following a name
Dim nom As String
Dim chemin As String
Dim wSheet As Worksheet
chemin = "C:\Users\aaa\Desktop"
nom = [Q13].Value & "_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) _
& ".xlsm"
With ActiveWorkbook
.SaveAs Filename:=chemin & nom
.Close
rep = MsgBox("Fichier excell sauvegardé")
End With
' ... and print my active sheet (where the button will stay)
For Each wSheet In ActiveWorkbook.Worksheets
If wSheet.Visible Then wSheet.PrintOut
Next
'Save my page 'offre' in pdf on my desktop and print it
Worksheets("OFFRE A ENVOYER").Range("A1:i47").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=[Q13].Value & "_Offre de prix", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
之后会有另一个选项和细节,但这确实是基础。