Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo ekspòte ak sove chak Fèy travay kòm separe nouvo travay nan Excel?

Ann di ou vle ekspòte ak sove youn oswa plizyè fich tankou yon nouvo liv, ki jan ou pral fè fas ak li? Nòmalman ou ka kopi chak Fèy travay epi kole nan nouvo liv. Men, isit la nou pote ou kèk ke trik nouvèl sou la men fè fas ak li:

Ekspòte epi sere fich yo kòm nouvo workbook ak deplase oswa Kopi lòd

Ekspòte epi sere fich yo tankou nouvo liv ak kòd VBA

Ekspòte epi sere fich yo kòm nouvo workbook ak Kutools pou Excel bon lide3


Byen vit fann fich plizyè nan liv travay apa nan Excel

Nan Microsoft Excel, ou ka sove oswa fann yon Fèy travay nan yon sèl travayè kòm yon nouvo Excel dosye pa kopye ak kole fichye sa a nan yon nouvo travay. Li sanble anbarasman, si ou vle fann chak fèy / Fèy travay nan yon liv gwo tankou separe Excel, txt, csv, dosye pdf. Men, avèk Kutools pou Excel'S Travayè Split sèvis piblik, ou ka byen vit fè fas ak li. Klike sou jou jijman 60 gratis avèk karakteristik plen!
doc fann laboratwa 1
Kutools pou Excel: ak plis pase 300 sou la meni Excel ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 60.

flèch ble jarèt dwat Ekspòte epi sere fich yo kòm nouvo workbook ak deplase oswa Kopi lòd


Lè l sèvi avèk la Deplase oswa Kopi lòd pral ede w ekspòte oswa kopye youn oswa plizyè fich nan yon nouvo liv travay byen vit.

Etap 1: Chwazi non Fèy travay yo nan ba tab. Ou ka chwazi miltip ak kenbe desann Ctrl kle oswa chanjman kle.

Etap 2: Dwa klike sou non an Fèy travay, epi klike sou la Deplase oswa Kopi soti nan meni kontèks.
Dokiman ekspozisyon doc 1

Etap 3: Nan Deplase oswa Kopi bwat dyalòg, chwazi a (nouvo liv) atik ki sòti nan gout desann lis la Deplase fèy papye yo chwazi.

Dokiman ekspozisyon doc 2

Etap 4: Lè sa a, klike sou OK, kounye a ou te chanje nan la nouvo travayè ak ekspòte oswa kopye fich, klike sou File > Save pou konsève pou nouvo travay.

Remak: Nan la Deplase oswa Kopi bwat dyalòg, gen yon Kreye yon kopi opsyon. Si ou pa tcheke li, li pral deplase fichye yo chwazi soti nan liv orijinal; si tcheke li, li pral kopi chwazi fich.


flèch ble jarèt dwat Ekspòte epi sere fich yo tankou nouvo liv ak kòd VBA

Kòd ki anba la a pral ekspòte chak Fèy travayè vizib nan yon nouvo liv, epi sove liv travay la avèk non fèy orijinal la nan yon katab ki kreye nan chemen an menm jan ak liv aktif la. Tanpri fè etap sa yo:

Etap 1: Kenbe desann a ALT + F11 kle, epi li ouvè a Microsoft Visual Basic pou aplikasyon pou fenèt.

Etap 2: Klike sou Antre > Modil, epi kole macro sa yo nan fenèt modil la:

VBA: Ekspòte epi sere fichiers kòm nouvo workbook nan yon nouvo katab.

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

Etap 3: Press la F5 kle nan kouri kòd sa a. Ak yon ti bwat sanp pral pòp pou di ou ki kote nouvo liv ki ekspòte yo, ak tout fichye yo nan workbook orijinal la yo te ekspòte nan kèk nouvo liv separe ki te rele orijinal dra nan yon nouvo folder espesifik. Al gade nan Ekran:

Dokiman ekspozisyon doc 7

flèch ble jarèt dwat Ekspòte epi sere fich yo kòm nouvo workbook ak Kutools pou Excel

Si ou gen fichye miltip ki nesesè yo dwe sove kòm bookbook separe, metòd an premye pa ka yon bon chwa. Ak kòd la VBA petèt yon ti kras konplike pou débutan Excel. Isit la ou ka itilize a Travayè Split sèvis piblik nan Kutools pou Excel byen vit epi fasil ekspòte ak sove chak Fèy travay nan yon sèl travayè nan separe nouvo travayè.

Kutools pou Excel, ak plis pase 300 fonksyon sou la men, fè travay ou pi fasil.

apre gratis enstale Kutools pou Excel, tanpri fè tankou anba a:

Etap 1: Klike sou Kutools Plis > Workbook > Travay .... Al gade nan Ekran:
Dokiman ekspozisyon doc 3

Etap 2: Nan la Travayè Split bwat dyalòg, fè tankou anba a:

Dokiman ekspozisyon doc 4
1: tout non yo Fich travay yo te tcheke pa default, si ou pa vle fann kèk nan fichye yo, ou ka dezaktive yo;


2: Si ou vle evite divize fichye yo kache oswa vid, ou ka tcheke la Sote fichye kache or Sote bwat vid.);


3: epi tou ou ka tcheke Espesifye sove fòma, ak chwazi fann papye yo, epi sove kòm dosye tèks, pdf dosye, oswa dosye CSV, nan defualt, si ou pa tcheke opsyon sa a, li pral fann fèy papye epi sove kòm workbook.

Etap 3: Lè sa a, klike sou Split bouton, epi chwazi folder nan ke ou vle mete workbooks yo nouvo nan. Al gade nan Ekran:
Dokiman ekspozisyon doc 6

Etap 4: Lè sa a, klike sou OK, Lè sa a, chak Fèy travay nan la Travayè Split bwat dyalòg ekspòte ak sove kòm bookbook endividyèl. Chak liv travay nouvo rele ak non fichye orijinal la. Al gade nan Ekran:
Dokiman ekspozisyon doc 5

Klike sou yo konnen plis enfòmasyon sou sa a Zouti Workbook Split.

flèch ble jarèt dwat Ekspòte epi konsève chak fèy tankou nouvo liv


Byen vit fann done nan plizyè fich ki baze sou kolòn oswa ranje fiks nan Excel

Sipoze ou gen yon fichye ki gen done nan kolòn A a G, non vandè a se nan kolòn A epi ou bezwen otomatikman fann done sa a nan fichye miltip ki baze sou kolòn nan A nan liv travay la menm epi chak vandè pral splitted nan yon nouvo Fèy travay. Kutools pou Excel'S Dat Split sèvis piblik ka ede ou byen vit fann done nan fichye miltip ki baze sou kolòn chwazi kòm anba a Ekran yo montre nan Excel. Klike pou plen chin an tap 60 jou gratis jijman!
doc fann done 2
Kutools pou Excel: ak plis pase 300 sou la meni Excel ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 60.

Related articles:



Rekòmande Zouti Productivity

Biwo Tab

lò star1 Pote onglè sou lamen pou Excel ak lòt biwo lojisyèl, jis tankou Chrome, Firefox ak nouvo Internet Explorer.

Kutools pou Excel

lò star1Etonan! Ogmante pwodiktivite ou nan minit 5. Pa bezwen okenn ladrès espesyal, sove de zè de tan chak jou!

lò star1300 karakteristik nouvo pou Excel, fè Excel anpil fasil ak pwisan:

  • Rantre selilè / ranje / Kolòn san yo pa pèdi done.
  • Konbine ak Konsolide Pliye Plizyè ak Manyèl.
  • Konpare Range, Kopi plizyè chif, Konvèti tèks nan dat, inite ak konvèsyon lajan.
  • Konte pa Koulè, Paging subtotals, Avanse Triye ak Super Filter,
  • Plis Chwazi / Insert / Efase / Tèks / Fòma / Link / Kòmantè / Workbooks / Worksheets Zouti ...

Piki ekran nan Kutools pou 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.
    DAS · 2 years ago
    Your code worked for me... Thanks much!!!
  • To post as a guest, your comment is unpublished.
    Richard · 2 years ago
    Can we also export ALL (300+) sheets to html,
    this will help me a lot, the export to unified text is already helping but I need them in html, or no table borders for the cell differences
  • To post as a guest, your comment is unpublished.
    Madhav Mehendale · 3 years ago
    Out of the above three methods, I found the first method to be quite good having regard to the fact that I am a beginner & my work is not at all of the same magnitude like professionals. My sincere thanks for explaining the steps in simple and lucid manner.
  • To post as a guest, your comment is unpublished.
    Beth G · 3 years ago
    Run time error Method 'Copy of Object' worksheet' failed
  • To post as a guest, your comment is unpublished.
    Beth G · 3 years ago
    xWs.Copy -it is an error in my part what does it mean?