Note: The other languages of the website are Google-translated. Back to English
Logáil isteach Cláraigh

Conas an Cnaipe Ordú a úsáid chun an bhileog oibre ghníomhach a shábháil mar chomhad PDF in Excel?

Agus tú ag obair i Microsoft Excel, b’fhéidir go mbeidh ort an fhadhb a bhaineann le bileog oibre gníomhach a shábháil mar chomhad PDF. San Airteagal seo, is féidir leat foghlaim conas bileog oibre gníomhach a shábháil mar chomhad PDF le cód VBA trí Chnaipe Ordú. Agus más mian leat raon nó gach bileog oibre a shábháil i leabhar oibre gníomhach mar chomhad PDF aonair, is féidir leis an alt seo cabhrú leat freisin.

Úsáid Cnaipe Ordú chun an bhileog oibre ghníomhach a shábháil mar chomhad PDF le cód VBA
Sábháil bileog oibre gníomhach nó gach bileog oibre go héasca mar chomhad PDF aonair le Kutools for Excel

Úsáid Cnaipe Ordú chun an bhileog oibre ghníomhach a shábháil mar chomhad PDF le cód VBA

Féadfaidh tú an cód VBA seo a leanas a rith chun bileog oibre gníomhach a shábháil mar chomhad PDF trí chliceáil ar Chnaipe Ordú. Déan mar a leanas le do thoil.

1. Ar dtús, ní mór duit fillteán darb ainm PDF a chruthú chun do chomhad PDF nua tiontaithe a shábháil. Seo a chruthaím an fillteán seo i mo dhiosca áitiúil (C :).

2. Cuir isteach Cnaipe Ordú trí chliceáil Forbróir > Ionsáigh > Cnaipe Ordú (Rialú ActiveX). Féach an pictiúr:

2. Ansin tarraing Cnaipe Ordú isteach ar an mbileog oibre a theastaíonn uait sraitheanna nua a chur leis, cliceáil ar dheis ar an gCnaipe Ordú agus cliceáil Airíonna ón roghchlár cliceáil ar dheis.

3. Sa Airíonna bosca dialóige, cuir isteach an téacs a thaispeántar den Chnaipe Ordaithe isteach sa Fotheideal bosca faoin Catagóirithe cluaisín, agus ansin dún an bosca dialóige.

Feiceann tú go n-athraítear an téacs a thaispeántar den Chnaipe Ordaithe mar atá thíos an pictiúr a thaispeántar.

4. Cliceáil ar dheis ar an gCnaipe Ordú arís, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

5. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cuir an cód VBA seo a leanas in ionad an bhunchóid i bhfuinneog an Chóid.

Cód VBA: Cnaipe Ordú chun an bhileog oibre ghníomhach a shábháil mar PDF

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

nótaí: Sa chód, is é CommandButton1 ainm an Chnaipe Ordaithe a úsáidfidh tú chun an bhileog ghníomhach a shábháil mar chomhad PDF. Is é "C: \ PDF \ Export.pdf" cosán agus ainm do chomhaid PDF coigiltis.

6. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog. Ansin múch an Mód Dearaidh faoi ​​na Forbróir Tab.

Anois, cliceáil ar an gCnaipe Ordú, sábhálfar an bhileog oibre ghníomhach mar chomhad PDF darb ainm Easpórtáil agus suite san áit shonraithe.

Sábháil gach bileog oibre mar chomhad PDF aonair de leabhar oibre gníomhach le Kutools for Excel

Seo a mholadh an Leabhar Oibre Scoilt fóntais de Kutools le haghaidh Excel chun bileog oibre gníomhach a shábháil go héasca mar chomhad PDF. Thairis sin, is féidir leat gach bileog oibre sa leabhar oibre reatha a shábháil mar chomhad PDF aonair leis an bhfóntas seo.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Sa leabhar oibre ní mór duit gach bileog oibre a shábháil mar chomhad PDF aonair, ansin cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt. Féach an pictiúr:

2. Sa Leabhar Oibre Scoilt bosca dialóige, cumraigh mar seo a leanas:

2.1) Ná seiceáil ach ainm gníomhach na bileoige sa Ainm na bileoige oibre bosca;
2.2) Roghnaigh PDF (* .pdf) rogha ón Ach amháin mar chineál liosta anuas;
2.3) Cliceáil ar an Scoilt cnaipe, ansin a Roghnaigh Fillteán tagann dialóg suas, sonraigh fillteán chun an comhad PDF a shábháil;

Ansin sábhálfar an bhileog oibre roghnaithe mar chomhad PDF láithreach.

nótaí:

1. Is féidir leat ainmneacha iomadúla bileog oibre a sheiceáil i mbosca ainm an Bhileog Oibre chun iad a shábháil mar chomhad pdf aonair ag an am céanna;
2. Seachas an bhileog oibre a shábháil mar chomhaid pdf, is féidir leat bileoga oibre a shábháil mar txt. nó csv. comhad mar is gá duit.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.

Taispeántas: Sábháil roghnú nó gach bileog oibre mar PDF le Kutools for Excel

Earraí gaolmhara:

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Is sine An Chéad
Is Déanaí Chéad
Comments (33)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Ian
Ian
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Conas a cheadódh duine don úsáideoir ainm an chomhaid a chur isteach i gcomparáid le "Export.pdf"? Go raibh maith agat, Ian
Freagra
0
0
Mayur
Mayur     Ian
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-SábháilAsPDF()
Application.Screen Update = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:=Application.InputBox("Iontráil Ainm an Chomhaid")

strExcelPath = "H:\Mo Dhoiciméid"

Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
0
0
Jo Colenso
Jo Colenso
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá iarratas den chineál céanna agam Ba mhaith liom an comhad a bheith ainmnithe mar an gcéanna le cill ar leith sa chluaisín , IE: G19 ( Seo uimhir an tsonraisc agus ba mhaith liom an comhad a shábháil mar PDF leis an ainm sin) ? . D'éirigh liom an t-easpórtáil.pdf a oibriú ach níl sé seo chun oibriú ar sábhálann iolrach. Aon smaointe go raibh maith agat
Freagra
Tuarascáil
0
0
criostail
criostail     Jo Colenso
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Roghnaigh cill G19 le do thoil sa bhosca dialóg popping up Kutoos for Excel tar éis an cód a rith. Go raibh maith agat as do thuairim.

Fo-ordú PríobháideachButton1_Cliceáil()
Dim xRg Mar Raon
Dim xName As Teaghrán
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Socraigh xRg = Application.InputBox("Roghnaigh an chill a ainmneoidh tú an PDF leis an luach cille:"", "Kutools le haghaidh Excel", Selection.Address, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
xName = xRg(1).Luach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:="C:\PDF\" &xName & ".pdf", _
OpenAfterPublish: = Bréagach
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
Tuarascáil
0
0
Akshay MN
Akshay MN     criostail
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'athraigh mé an cosán go tiomáint D, ach níl sé ag sábháil sa tiomántán D. Cad atá le déanamh?
Freagra
0
0
criostail
criostail     Akshay MN
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Akshay MN,
Má d’athraigh tú an cosán thuas chuig tiomántán D, cinntigh go bhfuil fillteán darb ainm PDF i do thiomántán D.
Mura dteastaíonn uait ach an comhad a shábháil sa tiomántán D gan fofhillteán a chruthú, bain úsáid as cosán an fhillteáin seo le do thoil: msgstr "C:\" &xName & ".pdf"
Freagra
Tuarascáil
0
0
Randy
Randy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir liom mo chomhaid a thiontú go PDF anois le cnaipe ordaithe, ach an féidir liom an fheidhm chéanna a fháil freisin chun ainm difriúil a cheadú do gach comhad; bunaithe ar struchtúr uimhreacha a bhí ann?
Freagra
0
0
criostail
criostail     Randy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Randy,
Tá brón orm nach féidir liom cabhrú leis seo, fáilte romhat aon cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html chun tuilleadh tacaíochtaí Excel a fháil ónár ngairmí.
Freagra
Tuarascáil
0
0
Nzee
Nzee
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Taispeánann IT earráid '1004'
Freagra
0
0
criostail
criostail     Nzee
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Nzee,
Ní mór dom do leagan Excel a bheith ar eolas agam. Go raibh maith agat as do thuairim.
Freagra
Tuarascáil
0
0
atul oiriúint
atul oiriúint
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
plz greamaigh códú le haghaidh shábháil mar pdf cnaipe i microsoft excel
Freagra
0
0
Solamh
Solamh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom é seo a dhéanamh le haghaidh MS Word? Tá dornán ceisteanna agam le roghanna cnaipe raidió mar fhreagraí. Mar sin ba mhaith liom cnaipe ordaithe a chruthú chun na ceisteanna a bhfuil na freagraí roghnaithe acu a aschur ar dhoiciméad focal eile amháin. Conas is féidir liom é seo a dhéanamh? Chuideodh cód go mór! Seolfaidh mé an doiciméad chugat le ríomhphost má tá sé uait. Go raibh maith agat!
Freagra
0
0
criostail
criostail     Solamh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Ár leithscéal ní féidir leat cabhrú leis sin go fóill.
Freagra
Tuarascáil
0
0
Mícheal
Mícheal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo ZapiszPDF()
Dim sNazwaPliku Mar Teaghrán

sNazwaPliku=ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Taispeáin sNazwaPliku, 57

Fo Deireadh
Freagra
0
0
Matt Bentley
Matt Bentley
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Lean mé an cód, seo an méid atá agam:

Fo-ordú PríobháideachButton2_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:=Raon("P2"), _
OpenAfterPublish:=Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Teastaíonn an comhad uaim le sábháil go dtí an áit a bhfuil an comhad bunaidh suite. Teastaíonn cóip den chomhad Excel freisin lena shábháil leis an ainm céanna.
Freagra
0
0
criostail
criostail     Matt Bentley
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Matt Bentley,
Oibríonn an cód go foirfe. Go raibh maith agat as a roinnt.
Freagra
Tuarascáil
0
0
Sascha
Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

kann jemand mir helfen?

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

Fo-ordú PríobháideachButton1_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Bréagach
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Go raibh maith agat
Freagra
0
0
Sascha
Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Cad a dhéanann tú ár Tipp geben?


Fo-ordú PríobháideachButton1_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Bréagach
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
0
0
criostail
criostail     Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sascha,
Is féidir leis an gcód seo a leanas cabhrú leat. Sula gcuireann tú an cód i bhfeidhm, athraigh le do thoil 'C: \ Users \ Win10x64Test \ Documents \ PDF' sa cheathrú líne chugat féin conair fillteáin sprice.
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
Freagra
Tuarascáil
0
0
Diana
Diana
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Что это за кнопка - "другой" + Q клавиши одновременно" ?
Freagra
0
0
criostail
criostail     Diana
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Diana,
Is é an eochair "Alt" ar do mhéarchlár. Ligeann Microsoft Excel d'úsáideoirí na heochracha "Alt" + "Q" a bhrú chun an fhuinneog Microsoft Visual Basic for Applications a dhúnadh agus filleadh ar an mbileog oibre.
Freagra
Tuarascáil
0
0
max
max
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Goededag

is het mogelijk om een ​​filmpje de 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 met de codes.
alvast bedankt
Freagra
0
0
criostail
criostail     max
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit max,
Tá brón orm ní thuigim cad atá i gceist agat. Seans go mbeidh ort gabháil scáileáin den rud atá tú ag iarraidh a dhéanamh. Leithscéal as an míchaoithiúlacht.
Freagra
Tuarascáil
0
0
Ben Stoddart
Ben Stoddart
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Foireann Hi,

Just a bheith ag smaoineamh an bhféadfadh aon duine cabhrú le ceann scríbe an chomhaid chruthaithe a athrú go deasc aon úsáideora? Ní cheadaíonn mo chuideachta rochtain ar C: mar sin ní oibríonn an script.

MÓR go leor go raibh maith agat!
Freagra
0
0
criostail
criostail     Ben Stoddart
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Ben Stoddart,
Ní mór duit ach aon fhillteán ar do dheasc a oscailt agus cosán an fhillteáin a chóipeáil sa bhosca seoltaí, ansin cuir an cosán a chóipeáil tú in ionad an fhillteáin sa chód VBA.
Seo é an líne Ainm Comhaid nua (cuir d'ainm úsáideora féin in ionad an Ainm Úsáideora le do thoil), Easpórtáil.pdf is ainm agus iarmhír chomhaid an chomhaid PDF:
Ainm comhaid:="C:\Users\Ainm Úsáideora\Desktop\PDF\Export.pdf", _
Freagra
Tuarascáil
0
0
James
James
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aon uair a ritheann mé é seo sábhálann sé PDF ar mo thiomáint áitiúil áit a sábhálfar na bileoga excel, conas a stopaim é seo ó shábháil uathoibríoch?

Fo-ordú PríobháideachButton1_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
0
0
James
James
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a ritheann mé thíos cruthaíonn sé leagan áitiúil den PDF go huathoibríoch - conas a stopaim é seo ó shábháil go huathoibríoch?

Fo-ordú PríobháideachButton1_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
Tuarascáil
0
0
criostail
criostail     James
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi James,
Ar mhaith leat fuinneog a oscailt chun fillteán a roghnú chun an comhad PDF a shábháil de láimh?
Freagra
Tuarascáil
0
0
James
James     criostail
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Crystal, go hidéalach tá, mar sin is féidir liom a roghnú cén áit ar féidir an PDF a shábháil.
Freagra
Tuarascáil
0
0
criostail
criostail     James
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
H Séamas,

Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach.
nótaí: Ní féidir leat an ceann scríbe agus an t-ainm comhaid a láimhseáil ag an am céanna. Tar éis duit an cód VBA seo a leanas a chur leis, nuair a chliceálann tú an cnaipe, beidh bosca dialóige aníos chun fillteán ceann scríbe a roghnú. Tar éis duit fillteán ceann scríbe a roghnú, beidh bosca aníos chun ainm a thabhairt don chomhad 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
Freagra
Tuarascáil
0
0
Sascha
Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
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?
Freagra
0
0
Sascha
Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIR diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?


Fo-ordú PríobháideachButton1_Cliceáil()
Application.ScreenUpdating = Bréagach
Cineál ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ainm comhaid:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Freagra
0
0
criostail
criostail     Sascha
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sascha,
Is féidir leis an gcód VBA seo a leanas cabhrú leat. Bain triail as, le do thoil.

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
Freagra
Tuarascáil
0
0
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Aoi
Ag postáil mar Aoi
Login
×
Ráta an post seo:
athshocrú
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL