Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #41761 Delila_1 veterán Attas #41760
    Új Válasz #41761
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Attas #41760 üzenetére

    A lenti makrót másold be modulba. A Case utasításoknál írd be a rendes útvonalakat, ügyelve, hogy a végükön \ legyen. A csillagos sorba írd be a mentendő fájl nevét a "Fájlneve.pdf" helyére. A javítások után makróbarátként mentsd el a füzetet.

    Sub Mentes()
    Dim utvonal As String, x As Integer, FN As String

    Application.DisplayAlerts = False
    FN = "Fájlneve.pdf" '************
    For x = 1 To 6
    Select Case x
    Case 1: utvonal = "F:\Eadat\Excel fórumok\"
    Case 2: utvonal = "F:\Eadat\"
    Case 3: utvonal = "..."
    Case 4: utvonal = "..."
    Case 5: utvonal = "..."
    Case 6: utvonal = "..."
    End Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    Application.DisplayAlerts = True
    End Sub

Új hozzászólás Aktív témák