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

Sut i ddefnyddio Botwm Gorchymyn i gadw taflen waith weithredol fel ffeil PDF yn Excel?

Wrth weithio yn Microsoft Excel, efallai y byddwch yn wynebu'r broblem o arbed taflen waith weithredol fel ffeil PDF. Yn yr erthygl hon, gallwch ddysgu sut i arbed taflen waith weithredol fel ffeil PDF gyda chod VBA trwy Botwm Gorchymyn. Ac os ydych chi hefyd am arbed ystod neu bob taflen waith mewn llyfr gwaith gweithredol fel ffeil PDF unigol, gall yr erthygl hon hefyd eich helpu chi.

Defnyddiwch Botwm Gorchymyn i gadw taflen waith weithredol fel ffeil PDF gyda chod VBA
Yn hawdd arbed taflen waith weithredol neu bob taflen waith fel ffeil PDF unigol gyda Kutools ar gyfer Excel


Defnyddiwch Botwm Gorchymyn i gadw taflen waith weithredol fel ffeil PDF gyda chod VBA

Gallwch redeg y cod VBA canlynol i gadw taflen waith weithredol fel ffeil PDF trwy glicio ar Botwm Gorchymyn. Gwnewch fel a ganlyn.

1. Yn gyntaf, mae angen i chi greu ffolder o'r enw PDF ar gyfer cadw'ch ffeil PDF newydd wedi'i throsi. Dyma fi'n creu'r ffolder hon yn fy disg lleol (C :).

2. Mewnosodwch Botwm Gorchymyn trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:

2. Yna tynnwch Botwm Gorchymyn i mewn i'r daflen waith y mae angen i chi ychwanegu rhesi newydd, cliciwch ar y dde ar y Botwm Gorchymyn a chlicio Eiddo o'r ddewislen clicio ar y dde.

3. Yn y Eiddo blwch deialog, nodwch destun arddangos y Botwm Gorchymyn yn y Geiriad blwch o dan y Categoreiddio tab, ac yna cau'r blwch deialog.

Gallwch weld bod testun arddangosedig y Botwm Gorchymyn yn cael ei newid fel y dangosir isod.

4. De-gliciwch y Botwm Gorchymyn eto, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

5. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol yn ffenestr y Cod gyda'r cod VBA canlynol.

Cod VBA: Botwm Gorchymyn i gadw taflen waith weithredol fel PDF

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

Nodyn: Yn y cod, CommandButton1 yw'r enw Botwm Gorchymyn y byddwch chi'n ei ddefnyddio i gadw dalen weithredol fel ffeil PDF. "C: \ PDF \ Export.pdf" yw llwybr ac enw eich ffeil PDF sy'n arbed.

6. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Yna diffoddwch y Modd Dylunio O dan y Datblygwr tab.

Nawr, cliciwch ar y Botwm Gorchymyn, bydd y daflen waith weithredol yn cael ei chadw fel ffeil PDF o'r enw Allforio ac wedi'i lleoli yn y lleoliad penodedig.


Cadwch bob taflen waith fel ffeil PDF unigol o lyfr gwaith gweithredol gyda Kutools ar gyfer Excel

Yma yn argymell y Llyfr Gwaith Hollti cyfleustodau Kutools ar gyfer Excel i arbed taflen waith weithredol yn hawdd fel ffeil PDF. Ar ben hynny, gallwch hefyd arbed pob taflen waith yn y llyfr gwaith cyfredol fel ffeil PDF unigol gyda'r cyfleustodau hwn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Yn y llyfr gwaith mae angen i chi arbed pob taflen waith fel ffeil PDF unigol, yna cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti. Gweler y screenshot:

2. Yn y Llyfr Gwaith Hollti blwch deialog, ffurfweddwch fel a ganlyn:

2.1) Gwiriwch enw'r ddalen weithredol yn y Enw'r daflen waith blwch;
2.2) Dewis PDF (* .pdf) opsiwn gan y Cadw fel math rhestr ostwng;
2.3) Cliciwch y Hollti botwm, yna a Dewis Ffolder deialog yn ymddangos, nodwch ffolder i achub y ffeil PDF;

Yna mae'r daflen waith a ddewiswyd yn cael ei chadw fel ffeil PDF ar unwaith.

Nodiadau:

1. Gallwch wirio enwau nifer o daflenni gwaith ym mlwch enw'r Daflen Waith i'w cadw fel ffeil pdf unigol ar unwaith;
2. Ac eithrio arbed taflen waith fel ffeiliau pdf, gallwch arbed taflenni gwaith fel txt. neu csv. ffeilio yn ôl yr angen.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Demo: Cadwch y dewis neu bob taflen waith fel PDF gyda Kutools ar gyfer Excel


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (18)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sut byddai rhywun yn caniatáu i'r defnyddiwr nodi enw'r ffeil yn hytrach na "Export.pdf"? Diolch, Ian
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-gadwAsPDF()
Application.Screen Update = Gau
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
Filename:=Application.InputBox("Rhowch Enw Ffeil")

strExcelPath = "H:\Fy Nogfennau"

Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i gais tebyg Rwyf am i'r ffeil gael ei enwi yr un fath a cell arbennig yn y tab , IE: G19 ( Dyma rif yr anfoneb ac rwyf am i'r ffeil gadw fel PDF gyda'r enw hwnnw) ? . Rwyf wedi llwyddo i gael y export.pdf i weithio ond nid yw hyn yn mynd i weithio ar arbed lluosog. Unrhyw feddyliau diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem. Dewiswch gell G19 yn y popping up Kutoos ar gyfer Excel blwch deialog ar ôl rhedeg y cod. Diolch i chi am eich sylw.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xRg Fel Ystod
Dim xName Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xRg = Application.InputBox ("Dewiswch y gell y byddwch yn enwi'r PDF gyda'r gwerth cell:"", "Kutools ar gyfer Excel", Selection.Address, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
xName = xRg(1).Gwerth
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
Enw ffeil:="C:\PDF\" &xName & ".pdf", _
OpenAfterPublish: = Anghywir
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newidiais y llwybr i yriant D, ond nid yw'n arbed yn y gyriant D. Beth i'w wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Akshay MN,
Os ydych chi wedi addasu'r llwybr uchod i yriant D, gwnewch yn siŵr bod ffolder o'r enw PDF yn eich gyriant D.
Os mai dim ond yn y gyriant D yr ydych am gadw'r ffeil heb greu is-ffolder, defnyddiwch y llwybr ffolder hwn: msgstr "C:\" &xName & ".pdf"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallaf drosi fy ffeiliau i PDF nawr gyda botwm gorchymyn, ond a allaf hefyd gael yr un swyddogaeth i ganiatáu enw gwahanol i bob ffeil; yn seiliedig ar strwythur rhif presennol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Randy,
Mae'n ddrwg gennyf ni allaf helpu gyda hyn, croeso i chi bostio unrhyw gwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html i gael mwy o gefnogaeth Excel gan ein gweithiwr proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
MAE'N DANGOS gwall Amser Rhedeg '1004'
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nzee,
Mae angen i mi wybod eich fersiwn Excel. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
plz past codio ar gyfer arbed fel botwm pdf yn microsoft excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae gwneud hyn ar gyfer MS Word? Mae gen i griw o gwestiynau gydag opsiynau botwm radio fel atebion. Felly rwyf am greu botwm gorchymyn i allbynnu'r cwestiynau gyda'r atebion dethol yn unig ar ddogfen Word arall. Sut mae gwneud hyn? Byddai cod yn help mawr! Byddaf yn e-bostio'r ddogfen atoch os bydd ei hangen arnoch. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'n ddrwg gennym ni all eich helpu gyda hynny eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is ZapiszPDF()
Dim sNazwaPliku Fel Llinynnol

sNazwaPliku=ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Dangos sNazwaPliku, 57

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dilynais y cod, dyma beth sydd gen i:

Is-orchymyn PreifatButton2_Cliciwch()
Application.ScreenUpdating = Anghywir
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
Enw ffeil: = Ystod ("P2"), _
OpenAfterPublish:=Gwir
Application.ScreenUpdating = Gwir
Is-End

Mae angen y ffeil arnaf i'w chadw i'r lleoliad y mae'r ffeil wreiddiol wedi'i lleoli. hefyd angen copi o'r ffeil excel i gadw yn ogystal â'r un enw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Matt Bentley,
Mae'r cod yn gweithio'n berffaith. Diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

kann jemand mir helfen?

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

Is-orchymyn PreifatButton1_Cliciwch()
Application.ScreenUpdating = Anghywir
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
Filename:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Anghywir
Application.ScreenUpdating = Gwir
Is-End

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

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


Is-orchymyn PreifatButton1_Cliciwch()
Application.ScreenUpdating = Anghywir
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
Filename:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Anghywir
Application.ScreenUpdating = Gwir
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir