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

Conas bileog oibre a shábháil mar chomhad PDF agus í a sheoladh ar ríomhphost mar cheangaltán trí Outlook?

I roinnt cásanna, b’fhéidir go mbeidh ort bileog oibre a sheoladh mar chomhad PDF trí Outlook. De ghnáth, caithfidh tú an bhileog oibre a shábháil de láimh mar chomhad PDF, ansin r-phost nua a chruthú leis an gcomhad PDF seo mar cheangaltán i do Outlook agus é a sheoladh ar deireadh. Tógann sé am chun é a bhaint amach de láimh céim ar chéim. San Airteagal seo, taispeánfaimid duit conas bileog oibre a shábháil go tapa mar chomhad PDF agus é a sheoladh go huathoibríoch mar cheangaltán trí Outlook in Excel.

Sábháil bileog oibre mar chomhad PDF agus seol ríomhphost é mar cheangaltán le cód VBA


Sábháil bileog oibre mar chomhad PDF agus seol ríomhphost é mar cheangaltán le cód VBA

Féadfaidh tú an cód VBA thíos a rith chun an bhileog oibre ghníomhach a shábháil go huathoibríoch mar chomhad PDF, agus ansin é a sheoladh ar ríomhphost mar cheangaltán trí Outlook. Déan mar a leanas le do thoil.

1. Oscail an bhileog oibre a shábhálfaidh tú mar PDF agus seol, ansin brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos sa cód fuinneog. Féach an pictiúr:

Cód VBA: Sábháil bileog oibre mar chomhad PDF agus seol ríomhphost mar cheangaltán

Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range

Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

If xFileDlg.Show = True Then
   xFolder = xFileDlg.SelectedItems(1)
Else
   MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
   Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"

'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
    xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
                      vbYesNo + vbQuestion, "File Exists")
    On Error Resume Next
    If xYesorNo = vbYes Then
        Kill xFolder
    Else
        MsgBox "if you don't overwrite the existing PDF, I can't continue." _
                    & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
        Exit Sub
    End If
    If Err.Number <> 0 Then
        MsgBox "Unable to delete existing file.  Please make sure the file is not open or write protected." _
                    & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
        Exit Sub
    End If
End If

Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
    'Save as PDF file 
    xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
    
    'Create Outlook email 
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmailObj = xOutlookObj.CreateItem(0)
    With xEmailObj
        .Display
        .To = ""
        .CC = ""
        .Subject = xSht.Name + ".pdf"
        .Attachments.Add xFolder
        If DisplayEmail = False Then
            '.Send
        End If
    End With
Else
  MsgBox "The active worksheet cannot be blank"
  Exit Sub
End If
End Sub

3. Brúigh an F5 eochair chun an cód a rith. Sa Brabhsáil bosca dialóige, roghnaigh fillteán le do thoil chun an comhad PDF seo a shábháil, agus ansin cliceáil ar an OK cnaipe.

nótaí:

1. Anois sábhálfar an bhileog oibre ghníomhach mar chomhad PDF. Agus ainmnítear an comhad PDF le hainm na bileoige oibre.
2. Má tá an bhileog oibre gníomhach bán, gheobhaidh tú bosca dialóige mar atá thíos ar an scáileán a thaispeántar tar éis duit an OK cnaipe.

4. Anois cruthaítear r-phost nua Outlook agus is féidir leat a fheiceáil go bhfuil an comhad PDF liostaithe mar cheangaltán sa chomhad Ceangailte. Féach an pictiúr:

5. Cum an ríomhphost seo le do thoil agus ansin é a sheoladh.
6. Níl an cód seo ar fáil ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.

Sábháil bileog oibre nó bileoga oibre iolracha go héasca mar chomhaid PDF ar leithligh ag an am céanna:

An Leabhar Oibre Scoilt fóntais de Kutools le haghaidh Excel is féidir leis cabhrú leat bileog oibre nó bileoga oibre iolracha a shábháil go héasca mar chomhaid PDF ar leithligh ag an am céanna mar a thaispeántar an taispeántas thíos. Íoslódáil agus bain triail as anois! (30- rian lá saor in aisce,)


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
Comments (63)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo ag obair go hiontach domsa ach an bhfuil bealach ann suíomh fillteán a roghnú go huathoibríoch seachas a roghnú de láimh? Tá mé ag súil é seo a dhéanamh ar feadh 40 bileog ag an am céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chomh maith leis sin ag súil a fheiceáil freagra ar an gceist seo! Go raibh maith agat as an gcabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne mé iarracht é seo a ghreamú isteach i modúl nua agus faighim earráid Tiomsaithe: Níl an Fo nó Feidhm sainithe. Cabhrú le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Darren a chara,
Cén leagan Office a úsáideann tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oifig 360
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An tsaincheist chéanna
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a chuirfinn an script VBA thuas in eagar ionas go gcuirfidh sé stampa dáta agus ama leis an ainm comhaid ar an mbealach sin nach gcoinníonn sé ag scríobh an méid atá sábháilte cheana féin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Mhichíl a chara,
Rith an cód VBA thíos chun an fhadhb a réiteach.

Fo-shábháilpdfagusseol()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xStr Mar Teaghrán

Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xStr = Formáid(Anois(), "bbbb-mm-dd-hh-mm-ss")
xFolder = xFolder + "\" +xSht.Name+" -" + xStr + ".pdf"

'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject=xSht.Name+"-"+xStr+".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Tá sé thar a bheith iontach agus ag obair go foirfe dom. Teastaíonn tuilleadh cabhrach le cur leis:

1. in "Chuig" teastaíonn uaim nasc a thabhairt do chill áirithe den bhileog Ghníomhach mar atá ciallmhar in CC agus in BCC ba mhaith liom nasc leathanach gníomhach a chur leis
2. i gcorp r-phoist is gá dom téacs caighdeánach éigin a shonrú.

Beidh mé iontach iomlán duit as do chabhair.

Go raibh maith agat
parag
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Parag Somani,
Is féidir leis an gcód VBA thíos cabhrú leat. Athraigh na réimsí .To, .CC, .BCC agus .Body bunaithe ar do chuid riachtanas.

Fo-shábháilpdfagusseol()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xStr Mar Teaghrán

Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xStr = Formáid(Anois(), "bbbb-mm-dd-hh-mm-ss")
xFolder = xFolder + "\" +xSht.Name+" -" + xStr + ".pdf"

'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.To = Raon ("A8")
.CC = Raon ("A9")
.BCC = Raon ("A10")
.Subject=xSht.Name+"-"+xStr+".pdf"
.Body = "A chara" _
& vbNewLine & vbNewLine&_
"Seo ríomhphost tástála" &_
"Excel a sheoladh"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé ag iarraidh an Raon "Chuig", "CC" a úsáid, ní thógann sé na luachanna ón gcill ainmnithe. An féidir leat cabhrú leis seo le do thoil?
Go raibh maith agat,
Mehul
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Tá sé thar a bheith iontach agus ag obair go foirfe dom. Teastaíonn tuilleadh cabhrach le cur leis:

1. in "Chuig" teastaíonn uaim nasc a thabhairt do chill áirithe den bhileog Ghníomhach mar atá ciallmhar in CC agus in BCC ba mhaith liom nasc leathanach gníomhach a chur leis
2. i gcorp r-phoist is gá dom téacs caighdeánach éigin a shonrú.

Beidh mé iontach iomlán duit as do chabhair.

Go raibh maith agat
parag
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Tá sé thar a bheith iontach agus ag obair go foirfe dom. Teastaíonn tuilleadh cabhrach le cur leis:

1. in "Chuig" teastaíonn uaim nasc a thabhairt do chill áirithe den bhileog Ghníomhach mar atá ciallmhar in CC agus in BCC ba mhaith liom nasc leathanach gníomhach a chur leis
2. i gcorp r-phoist is gá dom téacs caighdeánach éigin a shonrú.

Beidh mé iontach iomlán duit as do chabhair.

Go raibh maith agat
parag
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom bileog shampla 2 ón leabhar oibre a chur leis mar pdf?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Armin,
Ní mór duit Bileog 2 a oscailt i do leabhar oibre ar dtús agus ansin an cód VBA leis na céimeanna thuas a rith chun é a fháil anuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a chuirfinn an script VBA thuas in eagar ionas go sábhálfar an t-ainm comhaid mar chill ar leith a roghnaíodh laistigh den bhileog reatha, mar shampla cill A1?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tom.
Ní féidir leis an leithscéal cabhrú leis seo.
Fáilte chuig aon cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html
Gheobhaidh tú níos mó tacaíochta Excel ó lucht leanúna Excel gairmiúla nó eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, conas is féidir liom an pdf a shábháil agus a sheoladh le hainm an leabhair oibre leis an gcód VBA reatha? cad a úsáidim in ionad xSht.Name
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi James,
Ar mhaith leat an bhileog oibre gníomhach a sheoladh mar pdf agus é a ainmniú mar ainm an leabhair oibre?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat oibríonn sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an pdf a shábháil a scriosadh tar éis dó ríomhphost a sheoladh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Jason,
Ár leithscéal ní féidir leat cabhrú leis sin go fóill. Ní mór duit é a scriosadh de láimh tar éis ríomhphost a chur air.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

An féidir ainm pdf a fháil ó chill? ex. Cill H4


Agus i gCill H4 ba mhaith liom é a bhailiú ó thrí chealla éagsúla. An bhfuil sé seo indéanta?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo indéanta. Déan athróga ar leith chun an luach a shealbhú ó na cealla agus ansin bain úsáid as na hathróga sin agus xFolder á shocrú.
D'úsáid mé an luach ó chill i mo bhileog móide dáta an lae inniu. D'fhéadfá luachanna cille iolracha a dhéanamh go héasca áfach.

Seo a chuir mé leis:
Dim xMemberName Mar Teaghrán
Dim xFileDate Mar Theaghrán

xMemberName = Raon ("H3").Luach
xFileDate = Formáid(Anois, "mm-dd")

xFolder = xFolder + "\" xMemberName + xFileDate + ".pdf"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá earráid á fháil agam nuair a bhainim triail as seo, cén áit sa chód ar cheart dom é seo a chur?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,



Tá sé thar a bheith iontach agus ag obair go foirfe dom. Teastaíonn tuilleadh cabhrach le cur leis:

1. i "Comhlacht" Ba mhaith liom nasc a thabhairt do chill ar leith den bhileog Ghníomhach. Tuilleadh Ar mhaith leat a Trom an téacs.

Go raibh maith agat

Maidir is

Kishore kumar
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

An bhfuil sé i gceist agat luach na cille a chur leis an gcorp poist go huathoibríoch agus cló trom a chur air? Má chuirtear tú luach C4 leis an gcorp poist. Cuir an cód thíos i bhfeidhm le do thoil.

Fo-shábháilpdfagusseol()

Dim xSht Mar Bhileog Oibre

Dim xFileDlg Mar FileDialog

Dim xFillteán Mar Teaghrán

Dim xYesorNo Mar Slánuimhir

Dim xOutlookObj Mar Réad

Dim xEmailObj Mar Réad

Dim xUsedRng Mar Raon



Socraigh xSht = ActiveSheet

Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)



Má tá xFileDlg.Show = Fíor Ansin

xFolder = xFileDlg.SelectedItems(1)

Eile

msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"

Fo-Scoir

Deireadh Má

xFolder = xFolder + "\" +xSht.Name+".pdf"



'Seiceáil an bhfuil an comhad ann cheana

Má tá Len(Dir(xFolder)) > 0 Ansin

xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _

vbYesNo + vbQuestion, "Comhad Ann")

Ar Lean Earráid Aghaidh

Má tá xYesorNo = vbYes Ansin

Maraigh xFillteán

Eile

msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _

& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"

Fo-Scoir

Deireadh Má

Má Err.Number <> 0 Ansin

msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _

& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"

Fo-Scoir

Deireadh Má

Deireadh Má



Socraigh xUsedRng = xSht.UsedRange

If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin

'Sábháil mar chomhad pdf

xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard



'Cruthaigh ríomhphost Outlook

Socraigh xOutlookObj = CreateObject("Outlook.Application")

Socraigh xEmailObj = xOutlookObj.CreateItem(0)

Le xEmailObj

.Dráma

.Chun=""

.CC = ""

.Subject = xSht.Name + ".pdf"

.Ceangail.Cuir xFillteán leis

.HTMLBody = "
" & Raon ("C4") & .HTMLBody

Má tá DisplayEmail = Bréagach Ansin

'.Seol

Deireadh Má

Deireadh Le

Eile

msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"

Fo-Scoir

Deireadh Má

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dá mbeinn ag iarraidh é a shábháil go huathoibríoch i bhfillteán ar leith gach uile uair (ag deireadh an ghá atá leis an úsáideoir an fillteán a roghnú), conas a dhéanfainn é sin?
ex. C: Sonraisc/Meiriceá Thuaidh/Cliant
Táthar an-bhuíoch as an gcabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Geoff,
An bhfuil i gceist agat an bhileog oibre a shábháil mar chomhad pdf agus a shábháil i bhfillteán ar leith gan é a sheoladh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sílim go gciallaíonn Geoff a bheith in ann fillteán ar leith a shainiú sa chód a shábhálfar an pdf dó gach uair seachas a bheith ag iarraidh an suíomh a roghnú de láimh. Seoltar an pdf ón bhfillteán sonrach sin le ríomhphost ansin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat Jeremy.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Geoff, Más mian leat an comhad pdf a shábháil go huathoibríoch i bhfillteán ar leith seachas an suíomh a roghnú de láimh, bain triail as an gcód thíos. Ná déan dearmad cosán an fhillteáin sa chód a athrú.
Fo-SábháilAsPDFandSend()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xPath Mar Teaghrán
Socraigh xSht = ActiveSheet
xPath = "C: \ Users \ Win10x64Test \ Deisce \ bileog oibre go pdfIs é " 'anseo "bileog oibre go pdf" an fillteán sprice chun na comhaid pdf a shábháil
xFolder = xPath + "\" +xSht.Name+".pdf"
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód seo go hiontach ach amháin ba mhaith liom an bhileog oibre a shábháil mar ainm bileog + dáta (ie. Bileog 1 Deireadh Fómhair 1 2020); ar dheasc an úsáideora (úsáidfidh iliomad daoine é seo agus d’fhéadfadh go n-athróidh a gcuid cosáin beagán). Más féidir, ba mhaith liom .jpg a leabú isteach sa chorp freisin.. tá an JPG suite laistigh den bhileog oibre (lasmuigh den limistéar priontála) agus stóráiltear an íomhá ar fhreastalaí comhroinnte... cé go n-athraíonn an cosán chuig an bhfreastalaí de réir a chéile úsáideoir (don chuid is mó is tiomántán "T" é do roinnt tiomántán "U")
an féidir é seo a dhéanamh? le do thoil agus go raibh maith agat milliún uair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, tá sé ag obair go hiontach go raibh maith agat as a roinnt, Níl uait ach cabhair amháin.
Más mian liom comhad PDF a shábháil le hainm saincheaptha (rogha chun ainm an chomhaid a chlóscríobh sa bhosca dialóige SaveAs), de réir mar a úsáideann an t-úsáideoir an rogha seo i teimpléad foirm ina sábhálfar foirmeacha mar PDF le hainm uathúil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Bain triail as an gcód VBA thíos. Tar éis duit an cód a rith, roghnaigh fillteán chun an comhad PDF a shábháil, ansin beidh bosca dialóige aníos chun ainm an chomhaid a chur isteach. Fo-shábháilpdfagusseol()
' arna nuashonrú ag Extendoffice 20210209
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xStrName Mar Theaghrán
Dim xV Mar Athrú

Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xStrName=""
xV = Application.InputBox("Cuir isteach ainm an chomhaid:"", "Kutools for Excel", , , , , , 2)
Má tá xV = Bréagach Ansin
Fo-Scoir
Deireadh Má
xStrName = xV
Má tá xStrName="" Ansin
MsgBox ("Níor cuireadh ainm comhaid isteach, ag éirí as an bpróiseas!")
Fo-Scoir
Deireadh Má

xFolder = xFolder + "\" + xStrName + ".pdf"
'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Má tá dhá bhileog i gcomhad agam, agus ba mhaith liom an macra seo a rith ar bhileog amháin (trí chnaipe a bhrú) ach ceann eile a sheoladh, conas is féidir liom é a fháil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom é seo a shábháil i suíomh comhaid áirithe, leis an ainm atá bunaithe ar an luach i gcill C30.Tá iarracht déanta agam ar roinnt roghanna, ach coinnigh ort ag fáil lochtanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, b'fhéidir gur féidir leis an gcód thíos cabhrú leat. Tar éis duit an cód a rith, roghnaigh fillteán áirithe chun an comhad PDF a shábháil, ansin beidh bosca dialóige aníos chun ainm an chomhaid a chur isteach. Fo-shábháilpdfagusseol()
' arna nuashonrú ag Extendoffice 20210209
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xStrName Mar Theaghrán
Dim xV Mar Athrú

Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xStrName=""
xV = Application.InputBox("Cuir isteach ainm an chomhaid:"", "Kutools for Excel", , , , , , 2)
Má tá xV = Bréagach Ansin
Fo-Scoir
Deireadh Má
xStrName = xV
Má tá xStrName="" Ansin
MsgBox ("Níor cuireadh ainm comhaid isteach, ag éirí as an bpróiseas!")
Fo-Scoir
Deireadh Má

xFolder = xFolder + "\" + xStrName + ".pdf"
'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as sin, tá sé sin go hiontach, ach ba mhaith liom go n-ainmneofar an bhileog de réir cille A1 ar bhileog 1. an áit le sábháil de réir A1 ar bhileog 2 mar shampla C:\Users\peete\Dropbox\Scáileáin, agus ríomhphost a sheoladh chuig seoladh ríomhphoist ar bhileog A3 2 cad a d'oibrigh mé amach cheana féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as sin, tá sé sin iontach, ach ba mhaith liom go n-ainmneofar an leathán de réir cille A1 ar bhileog 1. an áit le sábháil de réir A1 ar bhileog 2 mar shampla C:\Users\peete\Dropbox\Scáileáin, ach is féidir é a athrú nuair a ag baint úsáide as an gcomhad, agus seol ríomhphost chuig an seoladh ríomhphoist ar bhileog A3 2 cad a d'oibrigh mé amach cheana féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi criostail , go raibh maith agat cód den scoth le haghaidh sharing.An bhfuil bealach ann chun bileoga iolracha a roghnú (ón leabhar oibre céanna) chun gach ceann a shábháil mar PDF neamhspleách agus ansin iad go léir a sheoladh ceangailte i ríomhphost amháin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Is féidir leis an gcód VBA thíos bhfabhar a dhéanamh duit, bíodh triail agat. Sa dara líne déag den chód, cuir na hainmneacha bileoga iarbhír i do chás in ionad ainmneacha na mbileog.
Fo-shábháilpdfagusseol1()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo, I, xNum As Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xArrShetts Mar Leagan
Dim xPDFNameSeoladh Mar Theaghrán
Dim xStr Mar Teaghrán
xArrShetts = Eagar("scrúdú", "Bileog1", "Bileog2") ‘Cuir isteach na hainmneacha bileog a sheolfaidh tú mar chomhaid pdf iniata le comharthaí athfhriotail agus scar le camóg iad. Cinntigh nach bhfuil aon charachtair speisialta ar nós \/:"*<>| in ainm an chomhaid.

Chun I = 0 Go UBound(xArrShetts)
Ar Lean Earráid Aghaidh
Socraigh xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))
Má tá xSht.Name <> xArrShetts(I) Ansin
MsgBox "Níor aimsíodh an bhileog oibre, scoir an oibríocht:" & vbCrLf & vbCrLf & xArrShetts(I), vbInformation, "Kutools for Excel"
Fo-Scoir
Deireadh Má
Ar Aghaidh


Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
'Seiceáil an bhfuil an comhad ann cheana
xYesorNo = MsgBox("Má tá comhaid den ainm céanna san fhillteán sprice, cuirfear iarmhír uimhreach leis an ainm comhaid go huathoibríoch chun na dúblaigh a idirdhealú" & vbCrLf & vbCrLf & "Cliceáil Tá chun leanúint ar aghaidh, cliceáil Níl le cealú", _
vbYesNo + vbQuestion, "Comhad Ann")
Má tá xYesorNo <> vbYes Ansin Scoir Fo
Chun I = 0 Go UBound(xArrShetts)
Socraigh xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))

xStr = xFolder & "\" &xSht.Name &" .pdf"
xNum = 1
Cé nach bhfuil (Dir(xStr, vbDirectory) = vbNullString)
xStr = xFolder & "\" &xSht.Name &"_" &xNum & ".pdf"
xNum = xNum+1
Wend
Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xStr, Cáilíocht:=xlQualityStandard
Eile

Deireadh Má
xArrShetts(I) = xStr
Ar Aghaidh

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = "????"
Chun I = 0 Go UBound(xArrShetts)
.Ceangail.Cuir xArrShetts(I) leis
Ar Aghaidh
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Is é an t-athrú amháin a bhfuil mé ag streachailt leis ná ríomhphost ar leith a chruthú do gach doiciméad pdf a chruthaítear.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Chun ríomhphost ar leith a chruthú do gach doiciméad pdf, is féidir leat an VBA a chuirtear ar fáil sa phost a rith de láimh i mbileoga oibre éagsúla chun é a dhéanamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá níos mó ná 100 bileog oibre agam sa leabhar oibre, rud a chiallóidh go gcaithfidh mé an VBA a rith níos mó ná 100 uair, rud a thógann am.  
D’éirigh liom mo leabhar oibre a roinnt ina leathán iolrach agus ansin táim in ann gach bileog oibre a thiontú go doiciméad PDF aonair.
Is é an réiteach atá á lorg agam ná ríomhphost a chur chuig gach doiciméad PDF ar leithligh agus an próiseas thuas ar siúl.
Leis seo an VBA atá á rith agam faoi láthair:
Fo-shábháilpdfagusseol1()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo, I, xNum As Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xArrShetts Mar Leagan
Dim xPDFNameSeoladh Mar Theaghrán
Dim xStr Mar Teaghrán
xArrShetts = Eagar("02302257", "02400438", "02401829", "02403995", "02408001", "02409208", _
"02409980", "02411881", "02424178", "02430454", "02444046", "02448950", "02450600", _
"02459861", "02461750", "02467535", "02480484", "02484749", "02502041", "02504807", _
"02511843", "02515193", "02523098", "02523244", "02524036", "02524548", "02525516", "02525703", "02525898", "02528908", "02528950",
"02530381", "02531018", "02531252", "02531277", "02532571", "02533053", "02533474", _
"02534176", "02534592", "02534626", "02535343", "02536386", "02536921", "02537544", _
"02537607", "02538015", "02538755", "02538836", "02538910", "02539685", "02540063", "02540139", "02540158", "02541607", "02542344",
"02543763", "02543985", "02544116", "02544748", "02544762", "02545026", "02545048", _
"02545080", "02545447", "02545730", "02545814", "02546477", "02547458", "02547673", _
"02547833", "02547912", "02547950", "02547991", "02548848", "02549103", "02549116", "02549125", "02549132", "02549140", "02549182",
"02549462", "02549499", "02549565", "02549687", "02550049", "02550437", "02550812", _
"02550982", "02551004", "02551005", "02551045", "02552099", "02552222", "02552561", _
"02552684", "02552815", "02552892", "02553031", "02553186", "02553628", "02553721", "02555186", "02556934", "02557137", "02557393",
"02559121", "02559392", "02559419", "02559512", "02559802", "02559868", "02560052", _
"02560612", "02560684", "02560920", "02561018", "02561061", "02561092", "02561227", _
"02561349", "02561592", "02561630", "02561673", "02561880", "02562359", "02562920", "02562934", "02563013", "02563119", "02563133",
"02563445", "02563737", "02563828", "02563852", "02563861", "02563971", "02564042", _
"02564315", "02564366", "02564832", "02564909", "02565059", "02565205") 'Cuir isteach na hainmneacha bileog a sheolfaidh tú mar chomhaid pdf faoi iamh agus comharthaí athfhriotail orthu agus scar le camóg iad. Cinntigh nach bhfuil aon charachtair speisialta ar nós \/:"*<>| in ainm an chomhaid.

Chun I = 0 Go UBound(xArrShetts)
Ar Lean Earráid Aghaidh
Socraigh xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))
Má tá xSht.Name <> xArrShetts(I) Ansin
MsgBox "Níor aimsíodh an bhileog oibre, scoir an oibríocht:" & vbCrLf & vbCrLf & xArrShetts(I), vbInformation, "Kutools for Excel"
Fo-Scoir
Deireadh Má
Ar Aghaidh


Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
'Seiceáil an bhfuil an comhad ann cheana
xYesorNo = MsgBox("Má tá comhaid den ainm céanna san fhillteán sprice, cuirfear iarmhír uimhreach leis an ainm comhaid go huathoibríoch chun na dúblaigh a idirdhealú" & vbCrLf & vbCrLf & "Cliceáil Tá chun leanúint ar aghaidh, cliceáil Níl le cealú", _
vbYesNo + vbQuestion, "Comhad Ann")
Má tá xYesorNo <> vbYes Ansin Scoir Fo
Chun I = 0 Go UBound(xArrShetts)
Socraigh xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))

xStr = xFolder & "\" &xSht.Name &" .pdf"
xNum = 1
Cé nach bhfuil (Dir(xStr, vbDirectory) = vbNullString)
xStr = xFolder & "\" &xSht.Name &"_" &xNum & ".pdf"
xNum = xNum+1
Wend
Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xStr, Cáilíocht:=xlQualityStandard
Eile

Deireadh Má
xArrShetts(I) = xStr
Ar Aghaidh

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.To = "Ctracklegal@ctrack.com"
.CC = ""
.Subject = "????"
Chun I = 0 Go UBound(xArrShetts)
Ar Lean Earráid Aghaidh
.Ceangail.Cuir xArrShetts(I) leis
Ar Aghaidh
Má tá DisplayEmail = Bréagach Ansin
.Seol
Fo-Scoir
Deireadh Má
Deireadh Le


Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit @criostail
Tá sé seo go hiontach - is é an rud is tábhachtaí a bhfuilim ag streachailt leis ná ainm an chomhaid - ba mhaith liom an t-ainm comhaid a tharraingt ó chill sa bhileog oibre seachas an t-ainm cluaisín a úsáid. Tá an cód curtha in eagar agam cheana féin lena shábháil go huathoibríoch i bhfillteán sonraithe ach tá mé ag streachailt le hainm an chomhaid.
Aon chabhair is féidir leat a thairiscint le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tori,Más mian leat an comhad PDF a ainmniú le luach cille ar leith, bain triail as an gcód seo a leanas. Tar éis duit an cód a rith agus fillteán a roghnú chun an comhad a shábháil, tagann bosca dialóige eile suas, roghnaigh an chill a úsáidfidh tú an luach mar ainm an chomhaid PDF, agus ansin cliceáil OK a chríochnú.
Fo-shábháilpdfagusseol2()
' arna nuashonrú ag Extendoffice 20210521
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng, xRgInser Mar Raon
Dim xB Mar Boole
Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xB = Fíor
Ar Lean Earráid Aghaidh
Cé go xB
Socraigh xRgInser = faic
Socraigh xRgInser = Application.InputBox("Roghnaigh cill a úsáidfidh tú an luach chun an comhad PDF a ainmniú:"", "Kutools for Excel", , , , , , 8)
Mura bhfuil aon rud ag xRgInser Ansin
MsgBox " Níl aon chill roghnaithe, scoir den oibríocht!" , vbInformation, "Kutools le haghaidh Excel"
Fo-Scoir
Deireadh Má
Má xRgInser.Text="" Ansin
MsgBox " Tá an chill roghnaithe bán, athroghnaigh le do thoil!" , vbInformation, "Kutools le haghaidh Excel"
Eile
xB = Bréagach
Deireadh Má
Wend

xFolder = xFolder + "\" + xRgInser.Text + ".pdf"

'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhí rud éigin cosúil leis ag teastáil uaim mar sin seo an méid a fuair mé. Tógann sé an dáta reatha agus cruthaíonn sé fillteán nua leis an ainm dáta i suíomh ar leith.Cuireann sé an pdf taobh istigh den suíomh nua sin, cuireann sé an pdf isteach i ríomhphost nua ansin. Oibríonn sé mar chóireáil. Níl ionam ach tosaitheoir mar sin gabh mo leithscéal má tá cuma praiseach air. :D
Fo PDFTOEMAIL()
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xPath Mar Teaghrán
Dim xOutMsg Mar Teaghrán
Dim sFolderName Mar Theaghrán, sFillteán Mar Theaghrán
Dim sFolderPath As Teaghrán

Socraigh xSht = ActiveSheet
xFileDate = Formáid(Anois, "dd-mm-bbbb")
sFolder = "C:" 'seo an áit a bhfuil príomhfhillteán agat
sFolderName = "Fillteán dar críoch na seachtaine " + Formáid(Anois, "dd-mm- bbbb")' fillteán le cruthú sa phríomhfhillteán ar a bhfuil ainm na seachtaine dar críoch agus dáta reatha
sFolderPath = "C:" &sFolderName' príomhfhillteán arís chun an chonair nua a chruthú san áireamh an fillteán nua
Socraigh oFSO = CreateObject("Scripting.FileSystemObject")
Má tá deFSO.FolderExists(sFolderPath) Ansin
msgstr "Tá an fillteán ann cheana!" & vbCrLf & vbCrLf & sFolderPath, vbInformation, "INFO"
Eile
MkDir sFolderPath
msgstr "Tá fillteán nua cruthaithe!" & vbCrLf & vbCrLf & sFolderPath, vbInformation, "INFO"
Deireadh Má
xPath = sFolderPath
xFolder=xPath+"\" +xSht.Name+"_"+xFileDate+".pdf"
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
xOutMsg = " Aimsiú ceangailte, le do thoil Gineadh an ríomhphost agus an ceangaltán seo go huathoibríoch "
Cuireann 'le nóta gur gineadh an ríomhphost go huathoibríoch

Le xEmailObj
.Dráma
.To=""' cuir do ríomhphoist féin leis
.CC = ""
.Subject = xSht.Name + " PDF don tseachtain dar críoch " + xFileDate + " - Suíomh " ' áirítear leis an ábhar ainm an leatháin, pdf, dáta agus suíomh, is féidir é seo a chur in eagar de réir mar is gá
.Ceangail.Cuir xFillteán leis
.HTMLBody = xOutMsg & .HTMLBody
Má tá DisplayEmail = Bréagach Ansin
'.Seol <--- Anseo má scriosann tú an t-earrthóg seolfar an ríomhphost go huathoibríoch, mar sin bí cúramach
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an cód seo a chur in eagar chun cealla ("a1:r99") a shábháil amháin chun iad a shábháil mar PDF. Tá rudaí breise agam ar na taobhanna nach dteastaíonn uaim i mo dhoiciméad PDF.
Fo-shábháilpdfagusseol()
' arna nuashonrú ag Extendoffice 20210209
Dim xSht Mar Bhileog Oibre
Dim xFileDlg Mar FileDialog
Dim xFillteán Mar Teaghrán
Dim xYesorNo Mar Slánuimhir
Dim xOutlookObj Mar Réad
Dim xEmailObj Mar Réad
Dim xUsedRng Mar Raon
Dim xStrName Mar Theaghrán
Dim xV Mar Athrú

Socraigh xSht = ActiveSheet
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

Má tá xFileDlg.Show = Fíor Ansin
xFolder = xFileDlg.SelectedItems(1)
Eile
msgstr "Caithfidh tú fillteán a shonrú chun an PDF a shábháil isteach." & vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní mór Fillteán Ceann Scríbe a Shonraigh"
Fo-Scoir
Deireadh Má
xStrName=""
xV = Application.InputBox("Cuir isteach ainm an chomhaid:"", "Kutools for Excel", , , , , , 2)
Má tá xV = Bréagach Ansin
Fo-Scoir
Deireadh Má
xStrName = xV
Má tá xStrName="" Ansin
MsgBox ("Níor cuireadh ainm comhaid isteach, ag éirí as an bpróiseas!")
Fo-Scoir
Deireadh Má

xFolder = xFolder + "\" + xStrName + ".pdf"
'Seiceáil an bhfuil an comhad ann cheana
Má tá Len(Dir(xFolder)) > 0 Ansin
xYesorNo = Tá MsgBox(xFolder &" ann cheana." & vbCrLf & vbCrLf & "Ar mhaith leat é a fhorscríobh?", _
vbYesNo + vbQuestion, "Comhad Ann")
Ar Lean Earráid Aghaidh
Má tá xYesorNo = vbYes Ansin
Maraigh xFillteán
Eile
msgstr "mura scríobhann tú an PDF reatha, ní féidir liom leanúint ar aghaidh." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ag éirí as an Macra"
Fo-Scoir
Deireadh Má
Má Err.Number <> 0 Ansin
msgstr "Ní féidir an comhad atá ann cheana a scriosadh. Cinntigh le do thoil nach bhfuil an comhad oscailte nó faoi chosaint scríofa." _
& vbCrLf & vbCrLf & "Brúigh OK chun éirí as an macra seo.", vbCritical, "Ní féidir an Comhad a Scrios"
Fo-Scoir
Deireadh Má
Deireadh Má

Socraigh xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Ansin
'Sábháil mar chomhad pdf
xSht.ExportAsFixedFormat Cineál:=xlTypePDF, Comhadainm:=xFolder, Cáilíocht:=xlQualityStandard

'Cruthaigh ríomhphost Outlook
Socraigh xOutlookObj = CreateObject("Outlook.Application")
Socraigh xEmailObj = xOutlookObj.CreateItem(0)
Le xEmailObj
.Dráma
.Chun=""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Ceangail.Cuir xFillteán leis
Má tá DisplayEmail = Bréagach Ansin
'.Seol
Deireadh Má
Deireadh Le
Eile
msgstr "Ní féidir leis an mbileog oibre gníomhach a bheith folamh"
Fo-Scoir
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhain mé triail as an gcód seo ar cheann de mo bhileoga oibre agus tá réimsí priontála socraithe agam ionas nach raibh na rudaí breise ag bun an leathanaigh le feiceáil sa pdf. Bain triail as!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi
Míle buíochas as an gCód ach an féidir an PDF a shábháil go huathoibríoch chuig an suíomh céanna leis an gcomhad gníomhach Excel agus leis an ainm comhaid céanna leis an gcomhad gníomhach Excel?
Míle buíochas.
Rod
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
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