Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas gach bileog oibre a onnmhairiú agus a shábháil mar leabhar oibre nua ar leith i Excel?

Deir linn gur mhaith leat bileoga oibre amháin nó roinnt de na bileoga oibre a onnmhairiú mar leabhar oibre nua, cén chaoi a ndéileálfaidh tú leis? De ghnáth is féidir leat gach bileog oibre a chóipeáil agus greamaigh go dtí leabhar oibre nua. Ach anseo tugann tú cleasanna láimhe duit chun déileáil leis:

Easpórtáil agus sábháil bileoga oibre mar leabhar oibre nua le hordú Bog nó Cóipeáil

Déan bileoga oibre a onnmhairiú agus a shábháil mar leabhar oibre nua le cód VBA

Déan bileoga oibre a onnmhairiú agus a shábháil mar leabhar oibre nua le Kutools for Excel smaoineamh maith3


Roinnt bileoga oibre go roinnte i leabhar oibre ar leith 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 bhreacadh isteach i leabhar oibre nua. Dealraíonn sé deacair, más mian leat gach bileog / bileog oibre de leabhar oibre mór a roinnt mar chomhaid pdf ar leith Excel, txt, csv. Ach le Kutools le haghaidh Excel'S Roinn Oibre Scoilte fóntais, is féidir leat déileáil go tapa leis. Cliceáil le haghaidh triail saor in aisce laethanta 60 le gnéithe iomlána!
doc split workbook 1
Kutools for Excel: le níos mó ná breiseán láimhe Excel 300, saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 60.

mboilgeog ceart gorm arrow Easpórtáil agus sábháil bileoga oibre mar leabhar oibre nua le hordú Bog nó Cóipeáil


Bain úsáid as an Bog nó Cóip cabhróidh an t-ordú leat ceann amháin nó roinnt bileoga oibre a onnmhairiú nó a chóipeáil go leabhar oibre nua go tapa.

Céim 1: Roghnaigh ainmneacha an bhileog oibre sa bharra cluaisíní. Is féidir leat a roghnú iolrach le sealbhú síos Ctrl eochair nó aistriú eochair.

Céim 2: Cliceáil ar dheis ar an ainm bileog oibre, agus cliceáil ar an Bog nó Cóip ó roghchlár comhthéacs.
doc bileoga onnmhairithe 1

Céim 3: I Bog nó Cóip dialóg, roghnaigh an (leabhar nua) ítim ón liosta titim de Bog bileoga roghnaithe chun a chur in áirithe.

doc bileoga onnmhairithe 2

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

Nóta: sa Bog nó Cóip dialóg, tá Cruthaigh cóip rogha. Mura ndéanann tú é a sheiceáil, bogfaidh sé na bileoga oibre roghnaithe as an leabhar oibre bunaidh; má sheiceáil é, cóipeáil sé bileoga oibre roghnaithe.


mboilgeog ceart gorm arrow Déan bileoga oibre a onnmhairiú agus a shábháil mar leabhar oibre nua le cód VBA

Déanfaidh an cód seo a leanas onnmhairiú gach bileog oibre le feiceáil i leabhar oibre nua agus sábháil an leabhar oibre le hainm an bhileog bhunaidh i bhfillteán nua-chruthaithe sa bhealach céanna leis an leabhar oibre gníomhach. Déan mar na céimeanna seo a leanas:

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

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

VBA: Bileoga oibre a onnmhairiú agus a shábháil mar leabhar oibre nua i bhfillteán nua.

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

Céim 3: Brúigh an F5 eochair chun an cód seo a reáchtáil. Agus cuirfidh bosca pras suas chun tú a insint duit suíomh na leabharleabhar oibre a onnmhairíodh, agus rinneadh gach bileog oibre den leabhar oibre bunaidh a onnmhairiú chuig roinnt leabhair oibre ar leithligh a ainmníodh bileoga bunaidh i bhfillteán nua ar leith. Féach screenshots:

doc bileoga onnmhairithe 7

mboilgeog ceart gorm arrow Déan bileoga oibre a onnmhairiú agus a shábháil mar leabhar oibre nua le Kutools for Excel

Má tá ilbhileog oibre agat is gá duit a shábháil mar leabhar oibre ar leithligh, ní féidir an chéad mhodh a bheith ina rogha maith. Agus b'fhéidir go bhfuil an cód VBA beagán casta do thosaitheoirí Excel. Anseo is féidir leat an Roinn Oibre Scoilte fóntais Kutools le haghaidh Excel a onnmhairiú go tapa agus go héasca gach bileog oibre de leabhar oibre amháin chun leabhar oibre nua a shainiú.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna láimhe, a dhéanann do phoist níos éasca.

Tar éis shuiteáil saor in aisce Kutools for Excel, déan mar a leanas thíos:

Céim 1: Cliceáil Kutools Níos mó > Leabhar Oibre > Scoir leabhar oibre .... Féach ar an scáileán:
doc bileoga onnmhairithe 3

Céim 2: Sa Roinn Oibre Scoilte dialóg, déan mar a leanas:

doc bileoga onnmhairithe 4
1: rinneadh na hainmneacha ar fad de na bileoga oibre a sheiceáil de réir réamhshocraithe, más rud é nach bhfuil tú ag iarraidh roinnt de na bileoga oibre a roinnt, is féidir leat iad a dhícheistiú;


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


3: agus is féidir leat seiceáil freisin Sonraigh sábháil agus chun na bileoga a roinnt, ansin mar chomhad téacs, comhad pdf, nó comhad csv, más rud é nach ndéanann tú an rogha seo a sheiceáil, scoirfidh sé bileoga agus sábhálfaidh sé mar leabhar oibre.

Céim 3: Ansin cliceáil Scoilt agus roghnaigh an fillteán gur mhaith leat na leabhair oibre nua a chur leis. Féach ar an scáileán:
doc bileoga onnmhairithe 6

Céim 4: Agus cliceáil ansin OK, ansin gach bileog oibre a sheiceáil sa Roinn Oibre Scoilte Déantar an bosca dialóg a onnmhairiú agus a shábháil mar leabhar oibre aonair. Ainmnítear gach leabhar oibre nua leis an ainm bhileog oibre bunaidh. Féach ar an scáileán:
doc bileoga onnmhairithe 5

Cliceáil chun tuilleadh eolais a fháil faoin uirlis seo Roinn Obair Oibre.

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


Roinnt sonraí a roinnt go tapa i go leor bileoga oibre bunaithe ar cholún nó sraitheanna seasta in Excel

Má tá bileog oibre agat go bhfuil sonraí i gcolún A go G, tá ainm an díoltóra i gcolún A agus ní mór duit an sonraí seo a roinnt go huathoibríoch i iláin bileoga oibre bunaithe ar cholún A sa leabhar oibre céanna agus déanfar gach díoltóir a roinnt i nua bileog oibre. Kutools le haghaidh Excel'S Dáta Scoilte is féidir le fóntais cabhrú leat sonraí a roinnt go tapa i go leor bileoga oibre bunaithe ar an gcolún roghnaithe mar an scáileán thíos a thaispeántar in Excel. Cliceáil le haghaidh triail saor in aisce lá 60 lánaimseartha!
sonraí split doc 2
Kutools for Excel: le níos mó ná breiseán láimhe Excel 300, saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 60.

Earraí gaolmhara:



Uirlisí Táirgiúlachta Molta

Tab Office

óir star1 Tabs tabs láimhe le Excel agus bogearraí eile Oifige, cosúil le Chrome, Firefox agus Internet Explorer nua.

Kutools le haghaidh Excel

óir star1Iontach! Méadú do tháirgiúlacht i 5 nóiméad. Ní gá aon scileanna speisialta a bheith agat, ach dhá uair an chloig a shábháil gach lá!

óir star1Gnéithe Nua 300 le haghaidh Excel, Déan Excel Mór Éasca agus Cumhachtach:

  • Cumaisc Cill / Sraitheanna / Colúin gan Sonraí a Chailliúint.
  • Ilchláir agus Leabhair Oibre a Chomhcheangal agus a Chomhdhlúthú.
  • Déan comparáid idir Ranganna, Cóipeáil Ilchéimeanna, Tiontaigh Téacs go dtí Dáta, Aonad agus Comhshó Airgeadra.
  • Count by Colors, Subtotals Paging, Ard-Shórtáil agus Scagaire Super,
  • Tuilleadh Roghnaigh / Ionsáigh / Scrios / Téacs / Formáid / Nasc / Comment / Leabhair Oibre / Bileoga Oibre Uirlisí ...

Lámhach scáileán de Kutools do 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.