0

私は VBA コードを書いたことはありませんが、インターネットでいくつかの情報を調べました。

私の願いは次のとおりです。3枚のシートを含むExcelファイルがあります。そのうちの 1 つに、次のことができるボタンを 1 つ追加したいと思います。

  1. この命名規則に従って、Excel ファイル全体を保存します[name of a cells of a page]_AP_[date of today].xls。
  2. シートの 1 つを .pdf ファイルに保存します。
  3. 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

その後、別のオプションと詳細がありますが、これは本当に基本です。

4

2 に答える 2

0

ありがとう...私はこれを探していました。これは非常にうまくいきました。

Option Explicit Sub SvMe() 'A1 に現在の日付を加えた値としてファイル名を保存

Dim newFile As String, fName As String
 ' Don't use "/" in date, invalid syntax
fName = Range("A1").Value
newFile = fName & " " & Format$(Date, "mm-dd-yyyy")
 ' Change directory to suit
ChDir _
"C:\Users\user\Desktop" 'YOU MUST Change USER NAME to suit
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:=newFile

サブ終了

これは 1. ファイルを pdf 形式で保存し、 2. [名前を付けて保存] ダイアログ ボックスに参加するように求めません 3. A1 のセル値と日付スタンプを使用してファイルを保存します

于 2013-03-15T09:20:37.603 に答える