Skip to main content

Conas gach bileog oibre a easpórtáil agus a shábháil mar leabhar oibre nua ar leithligh in Excel?

Ligean le rá gur mhaith leat bileog oibre amháin nó níos mó a easpórtáil agus a shábháil mar leabhar oibre nua, conas a dhéileálfaidh tú leis? De ghnáth is féidir leat gach bileog oibre a chóipeáil agus a ghreamú de leabhar oibre nua. Ach anseo tugann muid roinnt cleasanna úsáideacha duit chun déileáil leis:

Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le hordú Bog nó Cóipeáil

Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le cód VBA

Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le Kutools for Excel smaoineamh maith3


mboilgeog cheart gorm saighead Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le hordú Bog nó Cóipeáil

Bain úsáid as an Bog nó Cóipeáil cuideoidh ordú leat bileog oibre amháin nó níos mó a easpórtáil nó a chóipeáil go leabhar oibre nua go tapa.

Céim 1: Roghnaigh ainmneacha na mbileog oibre sa bharra cluaisíní. Is féidir leat iolraí a roghnú le coinneáil síos Ctrl eochair nó aistriú eochair.

Céim 2: Cliceáil ar dheis ar ainm na bileoige oibre, agus cliceáil ar an Bog nó Cóipeáil ón roghchlár comhthéacs.
bileoga onnmhairiúcháin doc 1

Céim 3: In Bog nó Cóipeáil bosca dialóige, roghnaigh an (leabhar nua) mír ón liosta anuas de Bog bileoga roghnaithe chun leabhar a chur in áirithe.

bileoga onnmhairiúcháin doc 2

Céim 4: Ansin cliceáil OK, anois tá tú aistrithe chuig an leabhar oibre nua le bileoga oibre a onnmhairítear nó a chóipeáil, cliceáil Comhad > Sábháil chun an leabhar oibre nua a shábháil.

Nóta: sa Bog nó Cóipeáil bosca dialóige, tá a Cruthaigh cóip rogha. Mura ndéanann tú seiceáil air, bogfaidh sé na bileoga oibre roghnaithe as an mbunleabhar oibre; má dhéantar é a sheiceáil, cóipeálfaidh sé bileoga oibre roghnaithe.


Déan bileoga oibre iolracha a roinnt go tapa i leabhar oibre ar leithligh in Excel

I Microsoft Excel, is féidir leat bileog oibre a shábháil nó a roinnt ó leabhar oibre amháin mar chomhad Excel nua tríd an mbileog oibre seo a chóipeáil agus a ghreamú i leabhar oibre nua. Dealraíonn sé go bhfuil sé trioblóideach, más mian leat gach bileog / bileog oibre de leabhar oibre mór a roinnt mar chomhaid Excel, txt, csv, pdf ar leithligh. Ach le Kutools le haghaidh Excel'S Leabhar Oibre Scoilt fóntais, is féidir leat déileáil leis go tapa.  Cliceáil le haghaidh triail saor in aisce 30 lá le gnéithe iomlána!
leabhar oibre scoilte doc 1
 
Kutools for Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

mboilgeog cheart gorm saighead Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le cód VBA

Déanfaidh an cód seo a leanas gach bileog oibre infheicthe a easpórtáil i leabhar oibre nua agus sábhálfaidh sé an leabhar oibre le hainm an bhileog bhunaidh i bhfillteán nua-chruthaithe ar an gcosán céanna leis an leabhar oibre gníomhach. Déan na céimeanna seo a leanas le do thoil:

Céim 1: Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Céim 2: Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil:

VBA: Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua i bhfillteán nua.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb 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

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

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Céim 3: Brúigh an F5 eochair chun an cód seo a rith. Agus nochtfaidh bosca pras chun áit na leabhar oibre nua a onnmhairítear a insint duit, agus rinneadh gach ceann de bhileoga oibre an bhunleabhair oibre a onnmhairiú chuig roinnt leabhar oibre ar leithligh nua a d’ainmnigh bileoga bunaidh i bhfillteán sonrach nua. Féach screenshots:

bileoga onnmhairiúcháin doc 7

mboilgeog cheart gorm saighead Bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua le Kutools for Excel

Má tá níos mó bileoga oibre agat is gá a shábháil mar leabhar oibre ar leithligh, ní féidir an chéad mhodh a bheith ina rogha mhaith. Agus b’fhéidir go bhfuil an cód VBA rud beag casta do thosaitheoirí Excel. Anseo is féidir leat an Leabhar Oibre Scoilt fóntais de Kutools le haghaidh Excel gach bileog oibre de leabhar oibre amháin a easpórtáil go tapa agus go héasca chun leabhar oibre nua a scaradh.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

Céim 1: Cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt .... Féach an pictiúr:
bileoga onnmhairiúcháin doc 3

Céim 2: Sa Leabhar Oibre Scoilt bosca dialóige, déan mar atá thíos:

bileoga onnmhairiúcháin doc 4
1: seiceáladh ainmneacha uile na mbileog oibre de réir réamhshocraithe, mura dteastaíonn uait cuid de na bileoga oibre a roinnt, is féidir leat iad a dhísheiceáil;


2: Más mian leat scoilt na mbileog oibre i bhfolach nó bán a sheachaint, is féidir leat an Scipeáil bileoga oibre i bhfolach or Scipeáil bileoga oibre bán.);


3: agus freisin is féidir leat a sheiceáil Sonraigh sábháil formáid, agus chun scoilt na mbileog a roghnú ansin sábháil mar chomhad téacs, comhad pdf, nó comhad csv, i bhfoirm defualt, mura seiceálann tú an rogha seo, scoiltfidh sé bileoga agus sábhálfaidh tú mar leabhar oibre iad.

Céim 3: Ansin cliceáil Scoilt cnaipe, agus roghnaigh an fillteán ar mhaith leat na leabhair oibre nua a chur ann. Féach an pictiúr:
bileoga onnmhairiúcháin doc 6

Céim 4: Agus ansin cliceáil OK, ansin gach bileog oibre seiceáilte sa Leabhar Oibre Scoilt déantar bosca dialóige a onnmhairiú agus a shábháil mar leabhar oibre aonair. Ainmnítear gach leabhar oibre nua leis an ainm bunaidh bileog oibre. Féach an pictiúr:
bileoga onnmhairiúcháin doc 5

Cliceáil chun tuilleadh eolais a fháil faoin uirlis Leabhar Oibre Scoilt seo.

mboilgeog cheart gorm saighead Easpórtáil agus sábháil gach bileog mar leabhar oibre nua


Roinn sonraí go tapa i mbileoga oibre iomadúla bunaithe ar cholúin nó sraitheanna seasta in Excel

Má cheaptar go bhfuil bileog oibre agat a bhfuil sonraí aici i gcolúin A go G, tá ainm an díoltóra i gcolún A agus ní mór duit na sonraí seo a roinnt go huathoibríoch i mbileoga oibre iolracha bunaithe ar cholún A sa leabhar oibre céanna agus roinnfear gach díoltóir ina leabhar nua bileog oibre. Kutools le haghaidh Excel'S Dáta Scoilt is féidir le fóntais cabhrú leat sonraí a roinnt go tapa i mbileoga oibre iomadúla bunaithe ar cholún roghnaithe mar atá thíos an seat a thaispeántar in Excel.  Cliceáil le haghaidh trialach saor in aisce 30 lá le feiceáil go hiomlán!
sonraí scoilte doc 2
 
Kutools for Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations