Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս օգտագործել հրամանի կոճակը ՝ Excel- ում ակտիվ աշխատանքային թերթը որպես PDF ֆայլ պահելու համար:

Microsoft Excel- ում աշխատելիս կարող եք բախվել ակտիվ աշխատանքային թերթը որպես PDF ֆայլ պահպանելու խնդրի: Այս հոդվածում դուք կարող եք իմանալ, թե ինչպես պահպանել ակտիվ աշխատանքային թերթը որպես PDF ֆայլ VBA կոդով ՝ Հրամանի կոճակի միջոցով: Եվ եթե ցանկանում եք նաև որպես աշխատանքային PDF գրքում որպես անհատական ​​PDF ֆայլ պահպանել տիրույթ կամ յուրաքանչյուր աշխատանքային թերթ, ապա այս հոդվածը կարող է նաև օգնել ձեզ:

Օգտագործեք հրամանի կոճակը ՝ ակտիվ աշխատանքային թերթը որպես VBA կոդով PDF ֆայլ պահելու համար
Excel- ի համար Kutools- ի հետ հեշտությամբ պահեք ակտիվ կամ յուրաքանչյուր աշխատանքային թերթը որպես անհատական ​​PDF ֆայլ


Օգտագործեք հրամանի կոճակը ՝ ակտիվ աշխատանքային թերթը որպես VBA կոդով PDF ֆայլ պահելու համար

Դուք կարող եք գործարկել հետևյալ VBA կոդը ՝ ակտիվ աշխատանքային թերթը որպես PDF ֆայլ պահելու համար ՝ կտտացնելով Հրահանգի կոճակին: Խնդրում եմ, արեք հետևյալ կերպ.

1. Նախ, անհրաժեշտ է ստեղծել PDF անունով պանակ ՝ ձեր նոր փոխված PDF ֆայլը փրկելու համար: Այստեղ ես ստեղծում եմ այս թղթապանակը իմ տեղական սկավառակում (C :):

2. Խնդրում ենք տեղադրել հրամանի կոճակը ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,

2. Դրանից հետո նկարեք հրամանի կոճակը աշխատաթերթում, որը անհրաժեշտ է ավելացնել նոր տողեր, աջով կտտացրեք Կոճակի կոճակին և կտտացրեք Հատկություններ աջ կտտացնելու ցանկից:

3. Մեջ Հատկություններ երկխոսության տուփ, մուտքագրեք հրամանի կոճակի ցուցադրվող տեքստը մեջ Ձերբակալություն տուփ տակ Կատեգորիա էջանիշը, ապա փակել երկխոսության տուփը:

Դուք կարող եք տեսնել, որ հրամանի կոճակի ցուցադրվող տեքստը փոխված է, ինչպես ցույց է տրված ստորև նշված նկարը:

4. Կրկին աջ կտտացրեք հրամանի կոճակին և կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

5. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք փոխարինել սկզբնական կոդը Code պատուհանում հետևյալ VBA կոդով:

VBA կոդ. Հրամանի կոճակը ՝ ակտիվ աշխատանքային թերթը որպես PDF պահելու համար

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

ՆշումԿոդում CommandButton1- ը հրամանի կոճակի անունն է, որը դուք կօգտագործեք ՝ ակտիվ թերթը որպես PDF ֆայլ պահելու համար: «C: \ PDF \ Export.pdf» - ը ձեր խնայող PDF ֆայլի ուղին և անունն է:

6. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան Ապա անջատեք Դիզայնի ռեժիմ տակ Երեվակիչ էջանիշը.

Այժմ կտտացրեք Հրամանի կոճակին, ակտիվ աշխատանքային թերթը կպահպանվի որպես PDF ֆայլ ՝ Export անունով, և տեղադրված կլինի նշված վայրում:


Excel- ի համար Kutools- ի հետ պահեք յուրաքանչյուր աշխատանքային թերթը որպես ակտիվ աշխատանքային գրքի անհատական ​​PDF ֆայլ

Այստեղ խորհուրդ են տալիս Պառակտում աշխատանքային գրքույկ օգտակարությունը Excel- ի համար նախատեսված գործիքներ ակտիվ աշխատանքային թերթը որպես PDF ֆայլ հեշտությամբ պահելու համար: Բացի այդ, այս օգտակար ծառայության միջոցով կարող եք նաև պահպանել յուրաքանչյուր աշխատանքային թերթ ընթացիկ աշխատանքային գրքում որպես անհատական ​​PDF ֆայլ:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Աշխատանքային գրքում անհրաժեշտ է պահպանել յուրաքանչյուր աշխատանքային թերթը որպես անհատական ​​PDF ֆայլ, այնուհետև կտտացնել Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, Տեսեք,

2. Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

2.1) Ակտիվ թերթի անունը ստուգեք միայն Աշխատաթերթի անվանումը տուփ;
2.2) Ընտրեք PDF (* .pdf) տարբերակը Պահել որպես տիպ բացվող ցուցակ;
2.3) Կտտացրեք այն պառակտում կոճակը, ապա ա Ընտրեք թղթապանակը բացվում է երկխոսությունը, նշեք պանակ ՝ PDF ֆայլը պահպանելու համար;

Այնուհետեւ ընտրված աշխատանքային թերթը անմիջապես պահվում է որպես PDF ֆայլ:

Notes:

1. Դուք կարող եք աշխատաթերթի բազմաթիվ անվանումներ ստուգել Worksheet name վանդակում ՝ դրանք միանգամից որպես անհատական ​​PDF ֆայլ պահելու համար:
2. Բացառությամբ աշխատանքային թերթը որպես pdf ֆայլերի պահպանման, դուք կարող եք աշխատանքային թերթերը պահպանել որպես txt: կամ csv ֆայլ `ըստ անհրաժեշտության:

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Դեմո. Պահպանեք ընտրությունը կամ յուրաքանչյուր աշխատաթերթը որպես PDF Excel- ի համար Kutools- ի հետ


Առնչվող հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (33)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ինչպե՞ս կարելի է օգտվողին թույլ տալ մուտքագրել ֆայլի անունը՝ ի տարբերություն «Export.pdf»-ի: Շնորհակալություն, Յան
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub SaveAsPDF()
Application.Screen Updating = False
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն:=Application.InputBox («Մուտքագրեք ֆայլի անունը»)

strExcelPath = «H:\Իմ փաստաթղթերը»

Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ նմանատիպ խնդրանք, ես ուզում եմ, որ ֆայլը անվանվի նույնը, ինչ ներդիրի կոնկրետ բջիջը, IE: G19 (Սա ապրանքագրի համարն է և ես ուզում եմ, որ ֆայլը պահպանվի որպես PDF այդ անունով): . Ինձ հաջողվել է ապահովել, որ export.pdf-ն աշխատում է, բայց սա չի աշխատի բազմաթիվ պահումների վրա: Ցանկացած միտք, շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք ընտրել G19 բջիջը բացվող Kutoos for Excel երկխոսության վանդակում կոդը գործարկելուց հետո: Շնորհակալություն մեկնաբանության համար։

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xRg որպես տիրույթ
Dim xName As String
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xRg = Application.InputBox («Ընտրեք այն բջիջը, որը դուք կանվանեք PDF-ը բջջային արժեքով.», «Kutools for Excel», Selection.Address, , , , , 8)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
xName = xRg (1).Արժեք
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = Կեղծ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոխեցի D դրայվի ուղին, բայց այն չի պահպանվում D դրայվում: Ինչ անել?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ակշայ Մ.Ն.
Եթե ​​դուք փոփոխել եք վերը նշված ուղին դեպի D սկավառակ, համոզվեք, որ ձեր D դրայվում PDF անունով թղթապանակ կա:
Եթե ​​ցանկանում եք ֆայլը պահել միայն D սկավառակում առանց ենթաթղթապանակ ստեղծելու, խնդրում ենք օգտագործել այս պանակի ուղին. «C:\» & xName & «.pdf»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հիմա կարող եմ իմ ֆայլերը PDF-ի վերածել հրամանի կոճակի միջոցով, բայց կարո՞ղ եմ նույն գործառույթը ստանալ, որպեսզի յուրաքանչյուր ֆայլի համար թույլատրվի տարբեր անուն: գոյություն ունեցող թվային կառուցվածքի հիման վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Ռենդի,
Կներեք, որ չեմ կարող օգնել այս հարցում, ողջունում ենք ցանկացած հարց տեղադրել մեր ֆորումում. https://www.extendoffice.com/forum.html ստանալ ավելի շատ Excel աջակցություն մեր մասնագետից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՑՈՒՑԱԴՐՈՒՄ Է «1004» գործարկման ժամանակի սխալը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նզի,
Ես պետք է իմանամ ձեր Excel տարբերակը: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում ենք տեղադրել կոդավորում՝ Microsoft Excel-ում պահելու համար որպես pdf կոճակ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ դա անել MS Word-ի համար: Ես ունեմ մի փունջ հարցեր, որոնց պատասխանները ռադիո կոճակների ընտրանքներն են: Այսպիսով, ես ուզում եմ ստեղծել հրամանի կոճակ՝ ընտրված պատասխաններով հարցերը դուրս բերելու համար միայն մեկ այլ word փաստաթղթի վրա: Ինչպե՞ս կարող եմ դա անել: Կոդն իսկապես կօգնի: Ես ձեզ էլփոստով կուղարկեմ փաստաթուղթը, եթե այն ձեզ անհրաժեշտ լինի: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կներեք, դեռ չեմ կարող օգնել ձեզ այդ հարցում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Ցույց տալ sNazwaPliku, 57

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հետևել եմ կոդը, սա այն է, ինչ ունեմ.

Մասնավոր ենթահրամանի կոճակ2_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն: = Range ("P2"), _
OpenAfterPublish:=Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Ինձ անհրաժեշտ է, որ ֆայլը պահվի այն վայրում, որտեղ գտնվում է սկզբնական ֆայլը: պետք է նաև excel ֆայլի պատճենը նույն անունով պահպանելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մեթ Բենթլի,
Կոդը հիանալի աշխատում է։ Շնորհակալություն կիսվելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

kann jemand mir հելֆեն?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Կեղծ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Kann mir jemand ein Tipp geben?


Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Կեղծ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սաշա,
Հետևյալ կոդը կարող է օգնել. Նախքան կոդը կիրառելը, խնդրում ենք փոխել 'C:\Users\Win10x64Test\Documents\PDFՉորրորդ տողում դեպի ձեր սեփական նպատակակետ թղթապանակի ճանապարհը:
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Что это за кнопка - «другой» + Q клавиши одновременно» ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դիանա,
Դա ձեր ստեղնաշարի «Alt» ստեղնն է: Microsoft Excel-ը թույլ է տալիս օգտատերերին սեղմել «Alt» + «Q» ստեղները՝ փակելու Microsoft Visual Basic հավելվածների պատուհանը և վերադառնալու աշխատաթերթ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գոեդեդագ

է het mogelijk om een ​​filmpje of een voorbeeld excelblad te maken voor de Command-Knop Om Een Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit հանդիպել դե կոդերը.
ալվաստ բեդանկտ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մաքս,
Կներեք, ես չեմ հասկանում, թե ինչ նկատի ունեք: Ձեզ կարող է անհրաժեշտ լինել կցել սքրինշոթ, թե ինչ եք փորձում անել: Ներողություն անհանգստության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն թիմ,

Պարզապես հետաքրքրվում է, թե արդյոք որևէ մեկը կարող է օգնել ստեղծված ֆայլի նպատակակետը որևէ օգտագործողի աշխատասեղանին փոխելու հարցում: Իմ ընկերությունը թույլ չի տալիս մուտք գործել C: այնպես որ սկրիպտը չի աշխատում:

ՇԱՏ ՇԱՏ ՇԱՏ ՇԱՏ շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Բեն Ստոդարդ,
Դուք պարզապես պետք է բացեք ցանկացած թղթապանակ ձեր աշխատասեղանին և պատճենեք թղթապանակի ուղին հասցեի վանդակում, այնուհետև փոխարինեք VBA կոդի թղթապանակի ուղին ձեր պատճենած ճանապարհով:
Ահա Ֆայլի անվան նոր տողը (խնդրում ենք փոխարինել օգտվողի անունը ձեր սեփական օգտանունով), Export.pdf PDF ֆայլի անվանումն ու ֆայլի ընդլայնումն է.
Ֆայլի անուն:="C:\Users\Username\Desktop\PDF\Export.pdf", _
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ամեն անգամ, երբ ես գործարկում եմ սա, այն պահպանում է PDF-ը իմ տեղական սկավառակում, որտեղ պահվում են excel թերթերը, ինչպե՞ս կարող եմ դադարեցնել դրա ավտոմատ պահպանումը:

Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
OpenAfterPublish:=Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես գործարկում եմ ստորև, այն ավտոմատ կերպով ստեղծում է PDF-ի տեղական տարբերակը. ինչպե՞ս կարող եմ դադարեցնել դա ինքնաբերաբար պահպանելը:

Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
OpenAfterPublish:=Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi James,
Ցանկանու՞մ եք բացել պատուհան՝ PDF ֆայլը ձեռքով պահելու համար թղթապանակ ընտրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Կրիստալ, իդեալական տարբերակում այո, այնպես որ ես կարող եմ ընտրել, թե որտեղ պահեմ PDF-ը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հ Ջեյմս,

Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը:
ՆշումԴուք չեք կարող միաժամանակ մշակել և՛ նպատակակետը, և՛ ֆայլի անունը: Հետևյալ VBA կոդը ավելացնելուց հետո, երբ սեղմում եք կոճակը, երկխոսության տուփ կհայտնվի, որպեսզի ընտրեք նպատակակետ թղթապանակ: Նպատակային թղթապանակ ընտրելուց հետո պատուհան կհայտնվի, որտեղ դուք կարող եք անուն տալ PDF ֆայլին:

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?


Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
Ֆայլի անուն:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սաշա,
Հետևյալ VBA կոդը կարող է օգնել. Խնդրում եմ, փորձեք:

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից