Note: The other languages of the website are Google-translated. Back to English

Conas iliomad leabhar oibre a chur le chéile i máistirleabhar oibre amháin in Excel?

An raibh tú riamh i bhfostú nuair a chaithfidh tú iliomad leabhar oibre a chur le chéile i máistirleabhar oibre in Excel? Is é an rud is uafásaí ná go bhfuil iliomad bileoga oibre sna leabhair oibre a chaithfidh tú a chur le chéile. Agus conas na bileoga oibre sonraithe de iliomad leabhar oibre a chomhcheangal in aon leabhar oibre amháin? Taispeánann an rang teagaisc seo roinnt modhanna úsáideacha chun cabhrú leat na fadhbanna a réiteach céim ar chéim.


Comhcheangail iliomad leabhar oibre Isteach i leabhar oibre amháin le feidhm Bog nó Cóipeáil

Mura bhfuil ach cúpla leabhar oibre le chéile, is féidir leat an t-ordú Bog nó Cóipeáil a úsáid chun bileoga oibre a bhogadh nó a chóipeáil de láimh ón mbunleabhar oibre go dtí an máistirleabhar oibre.

1. Oscail na leabhair oibre a chumascfaidh tú le máistirleabhar oibre.

2. Roghnaigh na bileoga oibre sa bhunleabhar oibre a bhogfaidh tú nó a chóipeáilfidh tú chuig an máistirleabhar oibre.

Nótaí:

1). Is féidir leat iliomad bileoga oibre neamh-in aice láimhe a roghnú leis an Ctrl eochair agus cliceáil na cluaisíní bileog ceann ar cheann.

2). Chun iliomad bileoga oibre cóngaracha a roghnú, cliceáil ar an gcéad chluaisín le do thoil, coinnigh an Shift eochair, agus ansin cliceáil ar an táb deireanach bileog chun iad uile a roghnú.

3). Is féidir leat cliceáil ar dheis ar aon chluaisín bileog, cliceáil ar Roghnaigh Gach Bileog ón roghchlár comhthéacs chun gach bileog oibre sa leabhar oibre a roghnú ag an am céanna.

3. Tar éis duit na bileoga oibre riachtanacha a roghnú, cliceáil ar dheis ar an táb bileog, agus ansin cliceáil Bog nó Cóipeáil ón roghchlár comhthéacs. Féach an pictiúr:

4. Ansin an Bog nó Cóipeáil pops dialóg suas, sa A chur in áirithe anuas, roghnaigh an máistirleabhar oibre a bhogfaidh tú nó cóipeálfaidh tú bileoga oibre ann. Roghnaigh bogadh chun deiridh sa Roimh an mbileog bosca, seiceáil an Cruthaigh cóip bosca, agus ar deireadh cliceáil ar an OK cnaipe.

Ansin is féidir leat bileoga oibre a fheiceáil in dhá leabhar oibre le chéile i gceann amháin. Déan na céimeanna thuas arís le do thoil chun bileoga oibre a aistriú ó leabhair oibre eile go dtí an máistirleabhar oibre.


Comhcheangail iliomad leabhar oibre nó bileoga sonraithe leabhar oibre le máistirleabhar oibre le VBA

Má tá iliomad leabhar oibre ann is gá a chumasc i gceann amháin, is féidir leat na cóid VBA seo a leanas a chur i bhfeidhm chun é a bhaint amach go tapa. Déan mar a leanas le do thoil.

1. Cuir gach leabhar oibre is mian leat a chur le chéile i gceann amháin faoin eolaire céanna.

2. Seoladh comhad Excel (beidh an leabhar oibre seo mar an máistirleabhar oibre).

3. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’iarratais fuinneog. Sa Microsoft Visual Basic d’iarratais fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA 1: Comhcheangail iliomad leabhar oibre Excel i gceann amháin

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Nótaí:

1. Coinneoidh an cód VBA thuas ainmneacha bileoga na mbunleabhar oibre tar éis iad a chumasc.

2. Más mian leat idirdhealú a dhéanamh ar na bileoga oibre sa mháistirleabhar oibre as ar tháinig tú, déan an cód VBA 2 thíos a chur i bhfeidhm.

3. Mura dteastaíonn uait ach bileoga oibre sonraithe de na leabhair oibre a chomhcheangal i máistirleabhar oibre, is féidir leis an gcód 3 VBA thíos cabhrú leat.

I gcóid VBA, “C: \ Úsáideoirí \ DT168 \ Deisce \ KTE \"Is é cosán an fhillteáin. I gcód VBA 3, "Bileog1, Bileog3"is é seo bileoga oibre sonraithe na leabhar oibre a chomhcheanglóidh tú le máistirleabhar oibre. Is féidir leat iad a athrú bunaithe ar do chuid riachtanas.

Cód VBA 2: Cumaisc Leabhair Oibre i gceann amháin (ainmneofar gach bileog oibre le réimír a hainm comhaid bunaidh):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Cód VBA 3: Bileoga oibre sonraithe de leabhair oibre a chumasc le máistirleabhar oibre:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Brúigh an F5 eochair chun an cód a rith. Ansin cuirtear gach bileog oibre nó bileog oibre shonraithe de na leabhair oibre san fhillteán áirithe le chéile le máistirleabhar oibre ag an am céanna.


Comhcheangail go héasca iliomad leabhar oibre nó bileoga sonraithe leabhar oibre le leabhar oibre amháin

Ar ámharaí an tsaoil, tá an Chomhcheangail leabhar oibre fóntais de Kutools le haghaidh Excel déanann sé i bhfad níos éasca iliomad leabhar oibre a chumasc i gceann amháin. Feicfimid conas an fheidhm seo a chur ag obair chun iliomad leabhar oibre a chur le chéile.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Cruthaigh leabhar oibre nua agus cliceáil Kutools Plus > Chomhcheangail. Ansin pops dialóg le cur i gcuimhne duit gur chóir gach leabhar oibre comhcheangailte a shábháil agus nach féidir an ghné a chur i bhfeidhm ar leabhair oibre faoi chosaint, cliceáil le do thoil OK cnaipe.

2. Sa Comhcheangail Bileoga Oibre draoi, roghnaigh Comhcheangail iliomad bileoga oibre ó leabhair oibre in aon leabhar oibre amháin rogha, agus ansin cliceáil ar an Ar Aghaidh cnaipe. Féach an pictiúr:

3. Sa Comhcheangail Bileoga Oibre - Céim 2 de 3 bosca dialóige, cliceáil an Cuir > Comhad or Fillteán chun na comhaid Excel a chur leis, cumascfaidh tú isteach i gceann amháin iad. Tar éis duit na comhaid Excel a chur leis, cliceáil an Críochnaigh cnaipe agus roghnaigh fillteán chun an máistirleabhar oibre a shábháil. Féach an pictiúr:

Anois déantar gach leabhar oibre a chumasc i gceann amháin.

I gcomparáid leis an dá mhodh thuas, Kutools le haghaidh Excel tá na buntáistí seo a leanas aige:

  • 1) Tá gach leabhar oibre agus bileog oibre liostaithe sa bhosca dialóige;
  • 2) Maidir leis na bileoga oibre is mian leat a eisiamh ó chumasc, ní gá ach iad a dhísheiceáil;
  • 3) Déantar bileoga oibre bán a eisiamh go huathoibríoch;
  • 4) Cuirfear ainm bunaidh an chomhaid mar réimír le hainm na bileoige tar éis é a chumasc;
  • Le haghaidh tuilleadh feidhmeanna den ghné seo, tabhair cuairt anseo.

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Kutools le haghaidh Excel - Cabhraíonn sé leat an obair a chríochnú i gcónaí roimh an am, Bíodh níos mó ama agat chun taitneamh a bhaint as an saol
An minic a bhíonn tú ag imirt teacht suas leis an obair, easpa ama le caitheamh ort féin agus ag do mhuintir?  Kutools le haghaidh Excel in ann cabhrú leat déileáil le puzail Excel 80% agus éifeachtúlacht oibre 80% a fheabhsú, níos mó ama a thabhairt duit aire a thabhairt don teaghlach agus taitneamh a bhaint as an saol.
300 uirlis chun cinn le haghaidh 1500 cás oibre, déan do phost an oiread sin níos éasca ná riamh.
Ní gá foirmlí agus cóid VBA a chur de ghlanmheabhair a thuilleadh, tabhair sosa d’inchinn as seo amach.
Is féidir oibríochtaí casta agus arís agus arís eile a phróiseáil aon-uaire i soicindí.
Laghdaigh na mílte oibríochtaí méarchláir & luch gach lá, slán a fhágáil le galair cheirde anois.
Bí i do shaineolaí Excel i gceann 3 nóiméad, cabhrú leat aitheantas tapa a fháil agus ardú céime pá a fháil.
110,000 duine an-éifeachtach agus 300+ rogha cuideachtaí a bhfuil cáil dhomhanda orthu.
Déan do $ 39.0 ar fiú níos mó ná $ 4000.0 oiliúint daoine eile.
Triail saor in aisce gné iomlán 30 lá. Ráthaíocht Airgead Ar Ais 60 Lá gan chúis.

Sórtáil tuairimí de réir
Comments (146)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Plz cabhrú liom amach leis an riocht thíos. Tá leabhar oibre difriúil agam a bhfuil níos mó ná 5 bhileog oibre an ceann ar bhealaí éagsúla. Caithfidh mé na bileoga oibre go léir a chomhdhlúthú ó leabhar oibre difriúil go leabhar oibre amháin. An féidir le haon duine cabhrú liom réiteach a fháil le macro.TIA!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Dia duit Plz cabhrú liom amach leis an riocht thíos. Tá leabhar oibre difriúil agam a bhfuil níos mó ná 5 bhileog oibre an ceann ar bhealaí éagsúla. Caithfidh mé na bileoga oibre go léir a chomhdhlúthú ó leabhar oibre difriúil go leabhar oibre amháin. An féidir le haon duine cabhrú liom réiteach a fháil le macro.TIA!Le A. Karthi[/quote] Téigh go dtí an Kutools le haghaidh Excel a íoslódáil agus a shuiteáil, is féidir leat é a dhéanamh go tapa. Ach más mian leat VBA a úsáid, féadfaidh sé a bheith ró-chasta. Le haghaidh tuilleadh eolais faoi conas é a dhéanamh, tabhair cuairt le do thoil:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
KUTOOLS Réiteach uamhnach. Teastaíonn cúnamh amháin eile uaim nuair a chruthaím máistirleabhar oibre ansin athraítear dath cille an bhileog oibre ón mbunbhileog oibre. Conas is féidir liom é a choinneáil cosúil le bileog oibre bunaidh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá dúbailt sonraí ag ár n-oifig, (.i. ainm, seoladh, cathair, méid, dáta sínithe) ó roinnt bunleaganacha excel agus beidh obair ar siúl ag iarraidh na sonraí a chur le chéile. Conas is féidir é sin a dhéanamh chun obair dhúbailte agus iontrálacha faisnéise dúbailte a dhíchur?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim 'earráid ama rite 1004', theip ar Chóipeáil an rang Bhileog Oibre ar an líne a léann: Sheet.Copy After:=ThisWorkbook.Sheets(1). Tá Excel 2010 in úsáid agam. An féidir leat cabhrú? Go raibh maith agat, - Susie
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Susie, tá mé ag obair ar an bhfadhb seo le tamall anuas mé féin, ag fáil an earráid chéanna. Seiceáil féachaint ar cruthaíodh an modúl faoi PERSONAL in ionad do leabhar oibre gníomhach. Nuair a chruthaigh mé an modúl faoin gcrann ceart, d'oibrigh an cód thíos go breá. Fo GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\do ainm anseo\Desktop\Testingfolder\" Ainm an Chomhaid = Dir(Conair & "*.xls") Déan Agus Ainm an Chomhaid "" Workbooks.Open Filename:=Conair & Ainm an Chomhaid, ReadOnly:=Bileog Tacair Bréagach = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'An Chéad Bhileog Eile Leabhair Oibre(Ainm an Chomhaid). Dún Ainm an Chomhaid = Dir() Lúb Deireadh Fo Tá súil agam go gcabhraíonn sé seo!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat. D'oibrigh do chód go maith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Faighim 'earráid ama rite 1004', theip ar Chóipeáil an rang Bhileog Oibre ar an líne a léann: Sheet.Copy After:=ThisWorkbook.Sheets(1). Tá Excel 2010 in úsáid agam. An féidir leat cabhrú? Go raibh maith agat, - SusieLe Susie[/ceanglófar] Bhí an fhadhb chéanna, oibríonn sé nuair a théann mé go dtí féachaint agus a cheilt "PESANTA", is cosúil go bhfuil deacracht aige rochtain a fháil ar an macra seo leis an máistir i bhfolach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Téigh go dtí "PEARSANTA" a fheiceáil agus a cheilt - is cosúil go bhfuil deacracht aige an cód iomlán a fhorghníomhú agus an máistir i bhfolach. Is féidir leat an macra a dhéanamh dúchasach don leabhar oibre sin, ach bheadh ​​ort an rud ar fad a athchruthú gach uair a theastaigh uait é a úsáid
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Go raibh míle maith agat as an gcomhad seo............ :roll: Le Fearr
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Leid iontach. Rinne beagnach ar fad a theastaigh uaim. Sa chomhleabhar oibre, ba bhreá liom ainm an bhunleabhráin oibre a bheith in ainm na mbileog oibre, ionas go mbeadh a fhios agam cén leabhar saothair as a dtagann na sonraí. Na sonraí atá á chur le chéile agam, is ó chartlanna éagsúla iad. Caithfidh mé iontráil a chuardach, ach níl a fhios agam cén chartlann ina bhfuil sé. Mar sin, trí na sonraí go léir a chomhcheangal in aon chomhad amháin beidh mé in ann cuardach a dhéanamh ar na cartlanna go léir láithreach. Ach caithfidh fios a bheith agam fós, cén chartlann ina bhfuil an iontráil. Henrik
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chun an cód ainm an chomhaid a ionchorprú ach é seo a dhéanamh. Fo GetSheets() Dim temp As Teaghrán Path = "C:\Users\....\Desktop\Excel combine\" Filename = Dir(Cosair & "*.xlsx") Déan Cé gur Comhainm" "" Workbooks.Open Filename:= Conair & Ainm Comhaid, ReadOnly:=Fíor temp = ActiveWorkbook.Name ActiveSheet.Name = teocht ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Leabhair Oibre(Ainm an Chomhaid). Dún Comhadainm = Dir() Fo-nóta Deiridh Lúb : níl sé seo ach an chéad bhileog a chóipeáil, is féidir é a tweeked chun na bileoga go léir a dhéanamh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a ionchorpraíonn tú níos mó bileoga agus conas a shonraíonn tú máistirchomhad difriúil chun na bileoga go léir a ghreamú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is réiteach iontach é go deimhin. go raibh maith agat. Fadhb amháin, áfach, nuair a dhéanaim é mar an excel seo fiafróidh mé an bhfuil mé ag iarraidh athruithe a shábháil roimh dhúnadh (Ó athraíodh an t-ainm), agus níl mé ag iarraidh é a dhéanamh do gach comhad (thart ar 32 in aghaidh an fhorghníomhaithe). An mbeadh bealach ann chun é seo a réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo ar fheabhas :lol: chabhraigh go mór liom....
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat a chara, rinne tú mo lá ón suíomh Gréasáin an-chabhrach seo... I ndáiríre bhí mé ag iarraidh freisin na sonraí ceannteidil céanna de bhileoga éagsúla a chomhcheangal i máistirbhileog 1, chabhraigh an KUTOOL le haghaidh Excel go mór liom... Go raibh maith agat arís ....:)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as an eolas luachmhar. Oibríonn sé seo i ndáiríre. Rinne na céimeanna atá liostaithe san alt seo mo phost níos éasca i ndáiríre. Go raibh maith agat, Dinesh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as do chuid eolais a roinnt
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a gheobhaidh tú é chun na hathruithe ón leabhar oibre bunaidh a nuashonrú? Tá mé ag iarraidh achoimre náisiúnta a fháil ina mbeidh gach réigiún a gcuid sonraí a ionchur ina leabhair oibre féin agus ansin an achoimre náisiúnta a bheith acu a nuashonróidh sé seo? Ba mhaith liom é seo a bheith socraithe don bhliain iomlán ag an tús agus gan a bheith ag obair siarghabhálach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tar éis na bileoga oibre a chomhcheangal i Leabhar Oibre amháin, conas a shábhálann tú é ní raibh mé in ann é a shábháil mar Leabhar1 ainmnithe agus tá mé ag cliceáil ar shábháil nó sábháil mar ach níl aon mholtaí ag obair?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Lean mé na céimeanna i "Chomhcheangail leabhair oibre iolracha le leabhar oibre amháin le VBA" agus cliceáil ar "run", níor tharla aon rud. Níl mé ar an eolas faoi earráidí agus níl mé cinnte conas iad a cheartú. An gcabhrófá liom? seo a leanas an cód a chuir mé isteach i leabhar oibre nua. Go raibh maith agat Fo GetSheets() Path = "p:\download\macro\" Filename = Dir(Conair & "*.xls") Déan Agus Comhadainm" " Workbooks.Open Filename:=Conair & Ainm Comhad, ReadOnly:=Fíor do Gach Bileog Isteach ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) An Chéad Bhileog Eile Leabhair Saothair(Ainm an Chomhaid). Dún Comhadainm = Dir() Foirceann Deiridh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sir / Madam: Lean mé na céimeanna "Comhcheangail illeabhair oibre le leabhar oibre amháin le VBA" chun an modúl seo a leanas a bhunú, ach níor tharla aon rud. An gcabhrófá liom an fhadhb a aimsiú? go raibh maith agat Fo GetSheets() Path = "p:\download\macro\" Filename = Dir(Conair & "*.xls") Déan Agus Comhadainm" " Workbooks.Open Filename:=Conair & Ainm Comhad, ReadOnly:=Fíor do Chách Bileog in ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) An Chéad Bhileog Eile Leabhair Saothair(Ainm an Chomhaid). Dún Ainm an Chomhaid = Dir() Foirceann Deiridh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
le haghaidh leaganacha níos nuaí de Excel, bain triail as seo. Shábháil mé mo leabhar oibre oscailte mar chatalóg, agus tá na comhaid go léir i c: \ temp. Fo GetSheets() Path = "c:\temp\" Filename = Dir(Conair & "*.xls") Déan Agus Ainm an Chomhaid "" Workbooks.Open Filename:=Conair & Ainm Comhad, ReadOnly:=Fíor Do Gach Bileog i ActiveWorkbook. Sheets Sheet.Copy After:=Leabhair Saothair("catalog.xlsx").Bileoga(1) An Chéad Bhileog Eile Leabhair Saothair(Ainm an Chomhaid). Dún Ainm an Chomhaid = Dir() Foirceann Deiridh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bain triail as seo le haghaidh leaganacha níos nuaí de excel. Shábháil mé mo leabhar oibre mar chatalóg, tá na comhaid go léir i c: \ temp. Fo GetSheets() Path = "c:\temp\" Filename = Dir(Conair & "*.xls") Déan Agus Ainm an Chomhaid "" Workbooks.Open Filename:=Conair & Ainm Comhad, ReadOnly:=Fíor Do Gach Bileog i ActiveWorkbook. Sheets Sheet.Copy After:=Leabhair Saothair("catalog.xlsx").Bileoga(1) An Chéad Bhileog Eile Leabhair Saothair(Ainm an Chomhaid). Dún Ainm an Chomhaid = Dir() Foirceann Deiridh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Bain triail as seo le haghaidh leaganacha níos nuaí de excel. Shábháil mé mo leabhar oibre mar chatalóg, tá na comhaid go léir i c: \ temp. Fo GetSheets() Path = "c:\temp\" Filename = Dir(Conair & "*.xls") Déan Agus Ainm an Chomhaid "" Workbooks.Open Filename:=Conair & Ainm Comhad, ReadOnly:=Fíor Do Gach Bileog i ActiveWorkbook. Sheets Sheet.Copy After:=Leabhair Saothair("catalog.xlsx").Bileoga(1) An Chéad Bhileog Eile Leabhair Saothair(Ainm an Chomhaid). Dún Ainm an Chomhaid = Dir() Foirceann Deiridh LúbLe Dave[/ceanglófar] Leanaim ag fáil "ní féidir a shannadh do mhaoin inléite amháin" maidir leis an gcosán ... Aon smaoineamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá fadhb agam freisin. An ndearna tú amach é?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rud ar bith go fóill... Nach bhfuil aon réiteach aimsithe nó ar mhol éinne réiteach. Tá brón orm...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mise freisin. Bhí sé seo ag obair 6 mhí ó shin, an uair dheireanach a bhí orm é a rith. An bhfuil an réiteach aimsithe ag éinne fós? Más rud é go raibh sé ar siúl agat roimhe seo agus anois nach n-oibreoidh sé an bhféadfadh sé a bheith mar rud éigin le nuashonrú ó Microsoft? Is uirlis áisiúil é seo do mo thascanna agus sábhálann sé go leor ama dom. Cad a d'fhéadfadh a bheith athraithe a chuirfeadh ar Excel an teachtaireacht seo a thaispeáint go tobann? Ós rud é go bhfuil VBA nua go leor agam, is beag smaoineamh atá agam ar an áit ar féidir liom tosú ag déanamh anailíse ar an loighic. Comhghairdeachas leat, Greg. Glaschú, Albain.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is cosúil go bhfuil "Cosán" curtha in áirithe anois mar sin ná húsáid ach aon ainm eile agus cuir "Cosán" ina ionad, m.sh. "Mypath".
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
B'fhéidir gur cheart duit ReadOnly a athrú:=Fíor le ReadOnly:=Bréagach, rinne mé agus bhí sé cabhrach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé ag lorg rud éigin mar seo ach theastaigh uaim trácht a dhéanamh. Ní gá gur rud seachas"" é an "Do While Filename"? nó an bhfuil mé ag léamh go mícheart? B'fhéidir Déan Cé NACH bhfuil an comhadainm = "" Just smaoineamh...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom na bileoga go léir a chomhcheangal i leathán amháin ina bhfuil na ceannteidil coitianta ... pls cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, rinne mé iarracht na macraí thuas a úsáid chun cúpla comhad a chomhordú, ar an drochuair níl aon torthaí ... an féidir le duine éigin cabhrú liom fáil réidh le comhaid a chomhordú de láimh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá 112 bileog excel agam ba mhaith liom a chur isteach i mbileog amháin gan cóipeáil agus greamaigh. Cuidigh liom le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
I Bíodh leabhar oibre agam ina bhfuil thart ar 250 Bileog . Caithfidh mé a Cobain in aon bhileog amháin. tabhair réiteach dom le do thoil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bain triail as seo...Fuair ​​​​mé é seo ó shuíomh eile ach ar an drochuair ní cuimhin liom ainm an bhean mar sin gabh mo leithscéal as gan trácht a dhéanamh uirthi, mo dhrochscéal" Comhcheangail iolraí WB in Excel: CUIMHNIGH ATHRÚ MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst Mar Leabhar Oibre Dim wbSrc Mar Leabhar Oibre Dim wsSrc Mar Bhileog Oibre Dim MyPath As Teaghrán Dim strFilename As Teaghrán Application.DisplayAlerts = Iarratas Bréagach.EnableEvents = Iarratas Bréagach.ScreenUpdating = MyPath Bréagach = "\\ MyPath\etc\etc.." Socraigh wbDst = Leabhair Oibre.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) Má Len(strFilename) = 0 Ansin Scoir Fo Déan Go dtí strFilename="" Socraigh wbSrc = Leabhair Oibre.Open(Ainm an Chomhaid:= MyPath & "\" & strFilename) Socraigh wsSrc = wbSrc.Bileoga Oibre(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close Bréagach strFilename = Dir() Lúb wbDst.Worksheets(1). Scrios Application.DisplayAlerts = Fíor Application.EnableEvents = Fíor Application.ScreenUpdating = Foirceann Fíor
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit chuir mé an cód isteach i modúl. Ainmnithe ar an leabhar Excel Masterfile. Cá háit sa chód is féidir liom a chur leis. go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níor oibrigh aon cheann díobh seo domsa sa deireadh fuair mé an ceann seo le bheith ag obair. FYI Táim ag baint úsáide as 2010 'Cur Síos: Comhcheanglaíonn sé gach comhad i bhfillteán le máistirchomhad. Fo-Chomhcheangail() Cosán caol Mar Teaghrán, ThisWB Mar Teaghrán, lngFilecounter Chomh fada Dim wbDest Mar Leabhar Oibre, shtDest Mar Bhileog Oibre, ws Mar Bhileog Oibre Dim Comhadainm Mar Teaghrán, Wkb Mar Leabhar Oibre Dim CopyRng Mar Raon, Dest Mar Raon Dim RowofCopySheet Mar Slánuimhir RowofCopySheet = 2 ' chun tosú ar na bileoga atá á gcóipeáil agat ó ThisWB = ActiveWorkbook.Name path = " mypath..." ' Ná déan dearmad an Feidhmchlár seo a athrú.EnableEvents = Iarratas Bréagach.ScreenUpdating = Socraigh Bréagach shtDest = Leabhar Oibre Gníomhach .Sheets(1) Comhadainm = Dir(conair & "\*.xls", vbGnáth) Má Len(Ainm an Chomhaid) = 0 Ansin Scoir Fo Déan Go dtí Ainm an Chomhaid = vbNullString Mura bhfuil Comhainm = ThisWB Socraigh Ansin Wkb = Leabhair Oibre.Open(Ainm an Chomhaid: = cosán & "\" &Ainm Comhaid) Socraigh CopyRng = Wkb.Sheets(1).Raon(Cealla(RowofCopySheet, 1), Cealla(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Socraigh Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Dún Deireadh Bréagach Más Comhadainm = Dir() Raon Lúb e("A1").Select Application.EnableEvents = Fíor Iarratas.ScreenUpdating = Fíor MsgBox "Déanta!" Críoch Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom é seo a chur in eagar ionas go dtosaíonn na sonraí a tharraingítear isteach i gcónaí ar an tsraith uachtarach? Má ritheann mé an cód seo faoi dhó, cuireann sé na sonraí go dtí deireadh na sonraí a bhí agam roimhe seo (ón gcéad rith den mhacra).
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh an líne seo: RowofCopySheet = 2 go RowofCopySheet = 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá fillteán éagsúil agam le Excel File (aon leathán amháin) le cosaint pasfhocail. Ba mhaith liom deireadh an lae na sonraí go léir a chomhcheangal le Máistirchomhad amháin. Gach uair a chaithfidh mé Iontráil pasfhocal agus an comhad a oscailt agus a ghreamú a chóipeáil go máistirchomhad .. Cabhraigh liom le cód VBA le do thoil.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0  Carachtair
Suímh Molta