Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano i-export at i-save ang bawat worksheet bilang hiwalay na bagong workbook sa Excel?

Sabihin nating gusto mong i-export at i-save ang isa o ilang mga workheet bilang isang bagong workbook, kung paano mo haharapin ito? Karaniwan maaari mong kopyahin ang bawat worksheet at i-paste sa bagong workbook. Ngunit narito kaming nagdadala sa iyo ng ilang mga madaling gamiting trick upang harapin ito:

I-export at i-save ang mga workheet bilang bagong workbook na may Ilipat o Kopyahin ang utos

I-export at i-save ang mga workheet bilang bagong workbook na may VBA code

I-export at i-save ang mga workheet bilang bagong workbook na may Kutools para sa Excel magandang ideya3


Mabilis na hatiin ang maramihang mga workheets sa hiwalay na workbook sa Excel

Sa Microsoft Excel, maaari mong i-save o hatiin ang isang worksheet mula sa isang workbook bilang bagong file ng Excel sa pamamagitan ng pagkopya at pag-paste ng worksheet na ito sa isang bagong workbook. Tila mahirap, kung nais mong hatiin ang bawat sheet / worksheet ng isang malaking workbook bilang hiwalay na Excel, txt, csv, pdf file. Pero may Kutools para sa ExcelNi Split Workbook utility, maaari mong madaling harapin ito. Mag-click para sa 60 araw na libreng pagsubok na may ganap na mga tampok!
doc split workbook 1
Kutools para sa Excel: may higit sa 300 madaling gamitin na Excel add-in, libre upang subukan nang walang limitasyon sa 60 araw.

arrow blue right bubble I-export at i-save ang mga workheet bilang bagong workbook na may Ilipat o Kopyahin ang utos


Paggamit ng Ilipat o Kopyahin Ang utos ay tutulong sa iyo na i-export o kopyahin ang isa o ilang mga workheet sa isang bagong workbook nang mabilis.

Hakbang 1: Piliin ang mga pangalan ng worksheet sa tab na bar. Maaari kang pumili ng maraming may hawak na pababa Ctrl susi o ilipat susi.

Hakbang 2: I-right click ang pangalan ng worksheet, at i-click ang Ilipat o Kopyahin mula sa menu ng konteksto.
doc export sheet 1

Hakbang 3: Sa Ilipat o Kopyahin dialog box, piliin ang (Bagong libro) item mula sa drop down na listahan ng Ilipat ang napiling mga sheet upang mag-book.

doc export sheet 2

Hakbang 4: Pagkatapos ay mag-click OK, ngayon ikaw ay lumipat sa bagong workbook na may mga na-export na gawa o mga kopya, i-click talaksan > I-save ang upang i-save ang bagong workbook.

tandaan: Sa Ilipat o Kopyahin dialog box, mayroong isang Gumawa ng isang kopya pagpipilian. Kung hindi mo ito suriin, ililipat nito ang mga napiling worksheet sa orihinal na workbook; kung alamin ito, kopyahin nito ang mga napiling worksheets.


arrow blue right bubble I-export at i-save ang mga workheet bilang bagong workbook na may VBA code

I-export ang sumusunod na code sa bawat nakikitang worksheet sa isang bagong workbook at i-save ang workbook gamit ang pangalan ng orihinal na sheet sa isang bagong nilikha na folder sa parehong landas bilang aktibong workbook. Mangyaring gawin ang mga sumusunod na hakbang:

Hakbang 1: I-hold ang ALT + F11 key, at binubuksan nito ang Microsoft Visual Basic para sa Mga Application window.

Hakbang 2: Mag-click Isingit > Module, at i-paste ang sumusunod na macro sa Window ng Module:

VBA: I-export at i-save ang mga workheet bilang bagong workbook sa isang bagong folder.

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

Hakbang 3: Pindutin ang F5 key upang patakbuhin ang code na ito. At ang isang prompt na kahon ay lalabas upang sabihin sa iyo ang lokasyon ng mga bagong workbook na nai-export, at ang lahat ng mga workheet ng orihinal na workbook ay na-export sa ilang mga bagong hiwalay na workbook na pinangalanan ang orihinal na mga sheet sa isang bagong tukoy na folder. Tingnan ang mga screenshot:

doc export sheet 7

arrow blue right bubble I-export at i-save ang mga workheet bilang bagong workbook na may Kutools para sa Excel

Kung mayroon kang maramihang mga workheets na kailangan upang mai-save bilang hiwalay na workbook, ang unang paraan ay hindi maaaring maging isang mahusay na pagpipilian. At ang VBA code ay marahil isang maliit na kumplikado para sa mga nagsisimula sa Excel. Dito maaari mong gamitin ang Split Workbook utility ng Kutools para sa Excel upang mabilis at madaling i-export at i-save ang bawat worksheet ng isang workbook upang paghiwalayin ang bagong workbook.

Kutools para sa Excel, na may higit sa 300 madaling gamitin na mga pag-andar, ginagawang mas madali ang iyong mga trabaho.

pagkatapos libreng pag-install Kutools para sa Excel, mangyaring gawin tulad ng sa ibaba:

Hakbang 1: Mag-click Higit pang mga Kutool > Workbook > Split Workbook .... Tingnan ang screenshot:
doc export sheet 3

Hakbang 2: Sa Split Workbook dialog box, gawin tulad ng sa ibaba:

doc export sheet 4
1: ang lahat ng mga pangalan ng worksheet ay naka-check sa pamamagitan ng default, kung hindi mo nais na hatiin ang ilan sa mga workheet, maaari mong alisin ang tsek sa kanila;


2: Kung nais mong maiwasan ang paghahati ng mga nakatagong o blangko na mga workheet, maaari mong suriin ang Laktawan ang mga nakatagong mga workheet or Laktawan ang mga blankong mga workheet.);


3: at maaari mo ring suriin Tukuyin ang pag-save format, at upang piliin ang split sheet pagkatapos ay i-save bilang file ng teksto, pdf file, o csv file, sa defualt, kung hindi mo suriin ang pagpipiliang ito, ito ay split sheet at i-save bilang workbook.

Hakbang 3: Pagkatapos ay mag-click split pindutan, at piliin ang folder na nais mong ilagay ang mga bagong workbook. Tingnan ang screenshot:
doc export sheet 6

Hakbang 4: At pagkatapos ay i-click OK, pagkatapos ay ang bawat naka-check na worksheet sa Split Workbook Ang dialog box ay nai-export at nai-save bilang indibidwal na workbook. Ang bawat bagong workbook ay pinangalanan sa orihinal na pangalan ng worksheet. Tingnan ang screenshot:
doc export sheet 5

I-click upang malaman ang higit pang impormasyon tungkol sa tool na Split Workbook na ito.

arrow blue right bubble I-export at i-save ang bawat sheet bilang bagong workbook


Mabilis na hatiin ang data sa maraming mga worksheets batay sa haligi o nakapirming mga hilera sa Excel

Kung mayroon kang isang worksheet na may data sa mga haligi A hanggang G, ang pangalan ng tindero ay nasa haligi A at kailangan mong awtomatikong hatiin ang data na ito sa maramihang mga worksheets batay sa haligi A sa parehong workbook at ang bawat tindero ay ihahagis sa isang bagong worksheet. Kutools para sa ExcelNi Split Date Ang utility ay maaaring makatulong sa iyo na mabilis na hatiin ang data sa maraming mga worksheet batay sa napiling haligi bilang screenshot sa ibaba na ipinapakita sa Excel. Mag-click para sa libreng trial na 60 araw na pagsubok!
doc split data 2
Kutools para sa Excel: may higit sa 300 madaling gamitin na Excel add-in, libre upang subukan nang walang limitasyon sa 60 araw.

Kaugnay na mga artikulo:



Inirerekumendang Mga Tool sa Produktibo

Tab ng Tanggapan

ginto star1 Dalhin ang mga madaling tab sa Excel at iba pang software ng Office, tulad ng Chrome, Firefox at bagong Internet Explorer.

Kutools para sa Excel

ginto star1Kahanga-hangang! Palakihin ang iyong pagiging produktibo sa 5 minuto. Hindi kailangan ang anumang mga espesyal na kasanayan, i-save ang dalawang oras araw-araw!

ginto star1300 Mga Bagong Tampok para sa Excel, Gumawa ng Excel Karamihan Madali at Makapangyarihang:

  • Pagsamahin ang Cell / Rows / Mga Haligi nang walang Pagkawala ng Data.
  • Pagsamahin at I-consolidate ang Maramihang Mga Sheet at Workbook.
  • Ihambing ang mga Ranges, Kopyahin ang Maramihang Ranges, I-convert ang Teksto sa Petsa, Conversion ng Unit at Pera.
  • Bilang ng Mga Kulay, Paging Mga Subtot, Advanced na Pagsunud-sunurin at Super Filter,
  • Higit pang Piliin / Isingit / Tanggalin / Teksto / Format / Link / Magkomento / Workbook / Worksheets Mga Tool ...

Screen shot ng Kutools for 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.
    Eunice · 1 years ago
    Hi Sunny,

    Thank you for sharing this code!

    I keep getting this error "Compile Error: Wrong number of arguments or invalid property assignment" at the "format" portion of the following string:

    DateString = format(Now, "yyyy-mm-dd hh-mm-ss")
  • To post as a guest, your comment is unpublished.
    Mario · 1 years ago
    Hi, I use this VBA code all the time to separate commission statements into individual spreadsheets. Is it possible to add a line to the code so it will automatically email the report to each person using outlook?
  • To post as a guest, your comment is unpublished.
    RD Raajput · 1 years ago
    i cant find enterprise toolbar kindly help me
  • To post as a guest, your comment is unpublished.
    RD Raajput · 1 years ago
    this code cahnge dates in my sheets
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      What dates have been changed? The modified dates? The Enterprise tab will be appeared after installing Kutools for Excel.
  • To post as a guest, your comment is unpublished.
    Isuru · 1 years ago
    xWs.Copy line comes up with an error in my case with 2016 "Method 'Copy of object'_Worksheet' failed.
    Please suggest me a correction if possible.
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry, I have no idea about your problem.