Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tesporta u tiffranka kull worksheet bħala ktieb tax-xogħol ġdid separat f'Excel?

Ejja ngħidu li trid tesporta u tiffranka waħda jew diversi worksheets bħala ktieb ta 'ħidma ġdid, kif se tindirizzaha? Normalment tista 'kopja kull folja u paste għal workbook ġdid. Imma hawn aħna nġibu ftit tricks tajbin biex nindirizzawha:

Esporta u tiffranka worksheets bħala workbook ġdid bil-Move or Copy command

Esporta u tiffranka worksheets bħala workbook ġdid bil-kodiċi VBA

Esporta u tiffranka worksheets bħala workbook ġdid b'Kutools għal Excel idea tajba3


Malajr qasma worksheets multipli f'karta ta 'ħidma separata f'Excel

Fil-Microsoft Excel, tista 'tiffranka jew taqsam worksheet minn workbook wieħed bħala fajl ġdid ta' Excel billi tikkopja u tħejji dan il-worksheet f'karta ta 'ħidma ġdida. Jidher idejqek, jekk trid tqassam kull folja / worksheet ta 'workbook kbir bħala fajls separati ta' Excel, txt, csv, pdf. Imma ma ' Kutools għal Excel'S Ktieb tax-xogħol maqsum Utilità, int tista 'tittrattaha malajr. Ikklikkja għal prova b'xejn tal-jiem 60 b'karatteristiċi sħaħ!
dokument tax-xogħol maqsum 1
Kutools għal Excel: b'aktar minn 300 handy Excel add-ins, ħielsa li tipprova mingħajr ebda limitazzjoni f'jiem 60.

vleġġa bużżieqa tal-lemin blu Esporta u tiffranka worksheets bħala workbook ġdid bil-Move or Copy command


Uża l- Nimxu jew Kopja kmand tgħinek tesporta jew tikkopja worksheets waħda jew aktar għal ktieb ta 'ħidma ġdid malajr.

Pass 1: Agħżel l-ismijiet tal-worksheet fil-tab bar. Tista 'tagħżel multipla billi żżomm Ctrl ċavetta jew shift ċavetta.

Pass 2: Dritt ikklikkja l-isem tal-worksheet, u kklikkja fuq il-buttuna Nimxu jew Kopja mill-menu tal-kuntest.
folji ta 'esportazzjoni tad-dok 1

Pass 3: Fil- Nimxu jew Kopja dialog box, agħżel il- (ktieb ġdid) oġġett mil-lista mqassra ta ' Nimxu l-karti magħżula għall-ktieb.

folji ta 'esportazzjoni tad-dok 2

Pass 4: Imbagħad ikklikkja OK, issa bdejt għal ktieb tax-xogħol ġdid ma 'worksheets esportati jew ikkupjati, ikklikkja File > Ħlief biex isalva l-ktieb tax-xogħol il-ġdid.

Nota: Fil- Nimxu jew Kopja dialog box, hemm a Oħloq kopja għażla. Jekk ma tiċċekkjax, iċċaqlaq il-worksheets magħżula mill-ktieb tax-xogħol oriġinali; jekk tivverifikaha, hija se tikkopja l-worksheets magħżula.


vleġġa bużżieqa tal-lemin blu Esporta u tiffranka worksheets bħala workbook ġdid bil-kodiċi VBA

Dan il-kodiċi li ġej se jesporta kull workheet viżibbli f'karta ta 'ħidma ġdida u ssalva l-ktieb tax-xogħol bl-isem tal-folja oriġinali f'folder maħluq ġdid fl-istess triq bħall-ktieb tax-xogħol attiv. Jekk jogħġbok agħmel il-passi li ġejjin:

Pass 1: Żomm il-buttuna ALT + F11 ċwievet, u tiftaħ il-buttuna Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

Pass 2: Ikklikkja Daħħal > Moduli, u agħmel il-makro li ġej fit-Tieqa tal-Modulu:

VBA: Esporta u tiffranka worksheets bħala workbook ġdid f'folder ġdid.

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    If Val(Application.Version) < 12 Then
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        Select Case xWb.FileFormat
            Case 51:
                FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If Application.ActiveWorkbook.HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56:
                FileExtStr = ".xls": FileFormatNum = 56
            Case Else:
                FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
    End If
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

Pass 3: Agħfas il-buttuna F5 ewlieni biex imexxu dan il-kodiċi. U se tinfetaħ kaxxa fil-pront biex jgħidlek il-post tal-kotba ġodda esportati, u l-worksheets kollha tal-ktieb tax-xogħol oriġinali ġew esportati għal xi kotba ta 'ħidma separati ġodda li jismu folji oriġinali f'karta speċifika ġdida. Ara l-screenshots:

folji ta &#39;esportazzjoni tad-dok 7

vleġġa bużżieqa tal-lemin blu Esporta u tiffranka worksheets bħala workbook ġdid b'Kutools għal Excel

Jekk għandek diversi folji tax-xogħol li għandhom jiġu ffrankati bħala ktieb tax-xogħol separat, l-ewwel metodu ma jistax ikun għażla tajba. U l-kodiċi VBA forsi ftit ikkumplikat għal dawk li jibdew bl-Excel. Hawnhekk tista ’tuża l- Ktieb tax-xogħol maqsum utilità ta ' Kutools għal Excel biex tesporta malajr u faċilment u tiffranka kull folja ta 'ktieb tax-xogħol biex tissepara ktieb tax-xogħol ġdid.

Kutools għal Excel, b'aktar minn 300 funzjonijiet handy, tagħmel l-impjiegi tiegħek aktar faċli.

wara installazzjoni b'xejn Kutools għal Excel, jekk jogħġbok agħmel kif ġej:

Pass 1: Ikklikkja Kutools Aktar > Workbook > Ktieb tax-xogħol maqsum .... Ara l-screenshot:
folji ta &#39;esportazzjoni tad-dok 3

Pass 2: Fil - Ktieb tax-xogħol maqsum dialog box, agħmel kif ġej:

folji ta &#39;esportazzjoni tad-dok 4
1: L-ismijiet kollha tal-worksheet ġew ikkontrollati awtomatikament, jekk ma tridx taqsam xi wħud mill-worksheets, tista 'tikkontrollahom;


2: Jekk trid tevita li taqsam il-worksheets moħbija jew vojta, tista 'tiċċekkja l- Aqbeż worksheets moħbija or Aqbeż worksheets vojta.);


3: u wkoll tista 'tiċċekkja Speċifika ħlief format, u biex tagħżel iddividi l-folji mbagħad issalva bħala fajl tat-test, fajl pdf, jew fajl csv, fin-nuqqas, jekk ma tiċċekkjax din l-għażla, se taqsam folji u tiffranka bħala workbook.

Pass 3: Imbagħad ikklikkja Split buttuna, u agħżel il-folder li trid tpoġġi l-kotba ġodda. Ara l-screenshot:
folji ta &#39;esportazzjoni tad-dok 6

Pass 4: U mbagħad ikklikkja OK, imbagħad kull folja ċċekkjata fil - Ktieb tax-xogħol maqsum Il-kaxxa tad-djalogu tiġi esportata u salvata bħala ktieb tax-xogħol individwali. Kull ktieb ta 'ħidma ġdid huwa msemmi bl-isem oriġinali tal-worksheet. Ara l-screenshot:
folji ta &#39;esportazzjoni tad-dok 5

Ikklikkja biex tkun taf aktar informazzjoni dwar din l-għodda Split Workbook.

vleġġa bużżieqa tal-lemin blu Esporta u ssalva kull folja bħala ktieb ta 'ħidma ġdid


Iddeskrivi d-data malajr f'folji multipli bbażati fuq kolonna jew ringieli fissi f'Excel

Jekk ikollok xi worksheet li għandha data fil-kolonni A sa G, l-isem tal-bejjiegħ huwa fil-kolonna A u trid taqsam din id-dejta b'mod awtomatiku f'diversi worksheets bbażati fuq il-kolonna A fl-istess workbook u kull bejjiegħ se jiġi diviż f'waħda ġdida folja tax-xogħol. Kutools għal Excel'S Data maqsuma L-utilità tista 'tgħinek biex taqsam malajr id-data f'fabbri multipli bbażati fuq il-kolonna magħżula kif hawn taħt il-screenshot muri f'Excel. Ikklikkja għal prova b'xejn tal-ġranet 60 b'xejn!
doc split data 2
Kutools għal Excel: b'aktar minn 300 handy Excel add-ins, ħielsa li tipprova mingħajr ebda limitazzjoni f'jiem 60.

Artikli relatati:



Għodda tal-Produttività Rakkomandata

Uffiċċju Tab

star tad-deheb 1 Ġib tabs handy għal Excel u softwer ieħor tal-Uffiċċju, bħal Chrome, Firefox u Internet Explorer ġdid.

Kutools għal Excel

star tad-deheb 1Amazing! Żid il-produttività tiegħek f'minuti 5. M'għandekx bżonn xi ħiliet speċjali, ħlief sagħtejn kuljum!

star tad-deheb 1300 Karatteristiċi Ġodda għall-Excel, Għamla Excel Ħafna Faċli u Qawwija:

  • Merge Cell / Ringieli / Kolonni mingħajr ma titlef id-Data.
  • Għaqqad u Tikkonsolida Folji Multipli u Kotba tax-Xogħol.
  • Qabbel ir-Ranges, Kopja Multipla Ranges, Ikkonverti Test sa Data, Unità u l-Konverżjoni Munita.
  • Għadd bil-Kuluri, Subtotali tal-Pejġing, Sort Avvanzat u Iffiltra Super,
  • Iktar Agħżel / Daħħal / Ħassar / Test / Format / Rabta / Kumment / Kotba tax-Xogħol / Worksheets Għodda ...

Screenshot ta &#39;Kutools għal Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 1 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 5 days ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??