Eksportēt 1 excel faila sheetus katru atsevišķā pdf failā

[Pirenejs]

Sveiki!

 

Interesētu, vai (kā) iespējams pārveidot 1 excel faila 40 sheetus par 40 individuāliem pdf failiem, lai katrs sheets būtu atsevišķš pdf fails.

 

Līdz šim katrā sheetā spiedu Save As pdf, un tā 40x, bet iespējams, ka to lietu var padarīt daudz ātrāku, ne?

[eddyboi]

http://www.dopdf.com/

Spied print un izvēlies print entire workbook.

[Pirenejs]

Tas paŗveido tāpat kā līdz šim - vienu failu vienā pdf. Pārveidoja visu manu excel failu 40 lpp lielā 1 pdf failā, bet man vajadzētu 40x1lpp. pdf failus.

 

Kā to panākt?

[eddyboi]

Tu izvēlējies print entrie workbook pie opcijām?

EDIT:Tikko izmēģināju pats, viņš taisa atsevišku pdf katram sheetam, tikai katru reizi prasa ievadīt nosaukumu failam, nenummurē automātiski.

Labots Decembris 6, 2012 - eddyboi

[nullchar]

Rekur piemērs, kā to var izdarīt ar macro palīdzību:

http://en.allexperts.com/q/Excel-1059/2010/4/converting-worksheets-workbook-separate.htm

[Pirenejs]

Paldie spar info, pamēģināšu...

[Agent]

Vēl ir labs verķis - "PDF Bullzip printer"

Pacīnoties ar Settingiem varēja dabūt gan 40 x pdf, gan 1 x pdf.

Diemžēl esmu piemirsis kā... varbūt bija tā, ka sākumā ieprintē vienā failā un pēc tam katru lapu printē, kā atsevišķu failu... toč neatceros... vajag ekspermentēt...

[Pirenejs]

Esmu pamēģinājis visu ieteikto, izņemot to macro (jo nesaprotu, kā tas jāisteno), un nekas neizdodās - drukā vienu lielo 40 lpp.pdf failu.

 

Vai varat palīdzēt - kasvēl varētu būt par problēmām, varbūt Excel iestatījumos kaut kas jāmaina?

[eddyboi]

Kas Tev nesanāca ar manu ieteikumu? Man viss strādāja, tikai faili bija janummurē atsevišķi.

[nullchar]

Ar to makro padarīšanu ir tā (Office 2007 latviešu versijā):

1. saglabā ekseļa failu kā "Excel darbagrāmata ar makro (*.xlsm)"

2. no galvenās izvēlnes izvēlies "Excel opcijas" un ieķeksē "Rādīt lentē izstrādātāja joslu"

3. atver to izstrādātāja joslu un izvēlies "Visual Basic"

4. kreisajā pusē dubultklikšķis uz "Šī_darbagrāmata". Parādīsies logs, kur var rakstīt kodu.

5. iekopē tur šito

Sub saveEachSheetAsPdf()
    Dim sht As Worksheet
    Dim fd As FileDialog
    Dim s As String
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    fd.Title = "Izvēlieties mapi"
    fd.AllowMultiSelect = False
    If fd.Show = -1 Then
        s = fd.SelectedItems(1)
        For Each sht In ThisWorkbook.Worksheets
            sht.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=s & "\" & sht.Name & ".pdf", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        Next sht
        MsgBox "Saglabāti " & ThisWorkbook.Worksheets.Count & " PDF faili."
    End If
 End Sub

 

6. saglabā un pārslēdzies atpakaļ uz darbagrāmatu

7. izstrādātāja joslā nospied "Makro". Lodziņā izvēlies vienīgo piedāvāto un nospied "Izpildīt"

8. vajadzētu atvērties lodziņam, kur var izvēlēties mapi, kur saglabāt failus un pēc "Labi" nospiešanas uzģenerēties PDF failiem.

 

Varbūt noderēs...

Labots Janvāris 8, 2013 - nullchar

[Bonifacijs]

Nu vispar tā ir standarta funkvija bezmaksas Open office.

Personigi es Open Office uz saviem datoriem turu tikkai šī iemesla dēļ

Uzliec Open Office, open file with - oppen office

export as pdf  - selection (izdali atvērtaja lappusē ko tieši tev vajaga) - save as...

lieliska opcija, lietoju bieži kad vajaga lai saņēmējs nevarētu izsekot kad un kā ir izgatavots izejas fails un nevaretu to izmainīt pa vieglo pec sava prāta

Labots Janvāris 8, 2013 - Bonifacijs

[Pirenejs]

Liels paldies, nullchar, izdevās!

 

Bonifacijs - būs jāpamēģina...ganjau nākotnē būs tāpat Open Office jāizmanto, ja Microsoft aplikācijas nekļūs par freeware...