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

Sut i gyfuno nifer o lyfrau gwaith yn un prif lyfr gwaith yn Excel?

Ydych chi erioed wedi bod yn sownd pan mae'n rhaid i chi gyfuno nifer o lyfrau gwaith yn brif lyfr gwaith yn Excel? Y peth mwyaf ofnadwy yw bod y llyfrau gwaith y mae angen i chi eu cyfuno yn cynnwys nifer o daflenni gwaith. A sut i gyfuno dim ond taflenni gwaith penodedig llyfrau gwaith lluosog mewn un llyfr gwaith? Mae'r tiwtorial hwn yn dangos sawl dull defnyddiol i'ch helpu chi i ddatrys y broblem fesul cam.


Cyfuno nifer o lyfrau gwaith I mewn i un llyfr gwaith â swyddogaeth Symud neu Gopïo

Os oes dim ond cwpl o lyfrau gwaith y mae angen eu cyfuno, gallwch ddefnyddio'r gorchymyn Symud neu Gopïo i symud neu gopïo taflenni gwaith o'r llyfr gwaith gwreiddiol i'r prif lyfr gwaith.

1. Agorwch y llyfrau gwaith y byddwch chi'n eu huno yn brif lyfr gwaith.

2. Dewiswch y taflenni gwaith yn y llyfr gwaith gwreiddiol y byddwch chi'n eu symud neu'n eu copïo i'r prif lyfr gwaith.

Nodiadau:

1). Gallwch ddewis nifer o daflenni gwaith nad ydynt yn gyfagos â dal y Ctrl allwedd a chlicio ar y tabiau dalen fesul un.

2). I ddewis nifer o daflenni gwaith cyfagos, cliciwch ar y tab dalen gyntaf, daliwch y Symud allwedd, ac yna cliciwch y tab dalen olaf i'w dewis i gyd.

3). Gallwch glicio ar dde ar unrhyw dab dalen, cliciwch ar Dewiswch Pob Dalen o'r ddewislen cyd-destun i ddewis yr holl daflenni gwaith yn y llyfr gwaith ar yr un pryd.

3. Ar ôl dewis y taflenni gwaith sydd eu hangen, cliciwch ar y dde ar y tab dalen, ac yna cliciwch Symud neu Gopïo o'r ddewislen cyd-destun. Gweler y screenshot:

4. Yna y Symud neu Gopïo deialog pops i fyny, yn y I archebu gwymplen, dewiswch y prif lyfr gwaith y byddwch chi'n ei symud neu'n copïo taflenni gwaith iddo. Dewiswch symud i ddiweddu yn y Cyn y ddalen blwch, gwiriwch y Creu copi blwch, ac yn olaf cliciwch y OK botwm.

Yna gallwch weld taflenni gwaith mewn dau lyfr gwaith wedi'u cyfuno'n un. Ailadroddwch y camau uchod i symud taflenni gwaith o lyfrau gwaith eraill i'r prif lyfr gwaith.


Cyfuno nifer o lyfrau gwaith neu ddalenni penodol o lyfrau gwaith â phrif lyfr gwaith gyda VBA

Os oes angen uno nifer o lyfrau gwaith yn un, gallwch gymhwyso'r codau VBA canlynol i'w gyflawni'n gyflym. Gwnewch fel a ganlyn.

1. Rhowch yr holl lyfrau gwaith rydych chi am eu cyfuno mewn un o dan yr un cyfeiriadur.

2. Lansio ffeil Excel (y llyfr gwaith hwn fydd y prif lyfr gwaith).

3. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr. Yn y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA 1: Uno nifer o lyfrau gwaith Excel yn un

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
	

Nodiadau:

1. Bydd y cod VBA uchod yn cadw enwau dalennau'r llyfrau gwaith gwreiddiol ar ôl uno.

2. Os ydych chi am wahaniaethu pa daflenni gwaith yn y prif lyfr gwaith a ddaeth o ble ar ôl uno, cymhwyswch y cod 2 VBA isod.

3. Os ydych chi am gyfuno taflenni gwaith penodol o'r llyfrau gwaith yn brif lyfr gwaith, gall y cod VBA 3 isod helpu.

Mewn codau VBA, “C: \ Defnyddwyr \ DT168 \ Pen-desg \ KTE \”Yw llwybr y ffolder. Yn y cod VBA 3, "Taflen1, Taflen3"yw taflenni gwaith penodedig y llyfrau gwaith y byddwch chi'n eu cyfuno i brif lyfr gwaith. Gallwch eu newid yn seiliedig ar eich anghenion.

Cod VBA 2: Uno Llyfrau Gwaith yn un (bydd pob taflen waith yn cael ei henwi â rhagddodiad enw ei ffeil wreiddiol):

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

Cod VBA 3: Uno taflenni gwaith penodedig o lyfrau gwaith yn brif lyfr gwaith:

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. Gwasgwch y F5 allwedd i redeg y cod. Yna mae'r holl daflenni gwaith neu daflenni gwaith penodol o'r llyfrau gwaith yn y ffolder benodol yn cael eu cyfuno â phrif lyfr gwaith ar unwaith.


Cyfuno sawl llyfr gwaith neu ddalen benodol o lyfrau gwaith yn hawdd i un llyfr gwaith

Yn ffodus, mae'r Cyfunwch llyfr gwaith cyfleustodau Kutools ar gyfer Excel yn ei gwneud hi'n llawer haws uno nifer o lyfrau gwaith yn un. Dewch i ni weld sut i gael y swyddogaeth hon i weithio wrth gyfuno nifer o lyfrau gwaith.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Creu llyfr gwaith newydd a chlicio Kutools Byd Gwaith > Cyfunwch. Yna deialog pops i'ch atgoffa y dylid arbed yr holl lyfrau gwaith cyfun ac na ellir defnyddio'r nodwedd ar lyfrau gwaith gwarchodedig, cliciwch ar y OK botwm.

2. Yn y Cyfuno Taflenni Gwaith dewin, dewiswch Cyfuno nifer o daflenni gwaith o lyfrau gwaith yn un llyfr gwaith opsiwn, ac yna cliciwch ar y Digwyddiadau botwm. Gweler y screenshot:

3. Yn y Cyfuno Taflenni Gwaith - Cam 2 o 3 blwch deialog, cliciwch y Ychwanegu > ffeil or Ffolder i ychwanegu'r ffeiliau Excel byddwch chi'n uno yn un. Ar ôl ychwanegu'r ffeiliau Excel, cliciwch y Gorffen botwm a dewis ffolder i achub y prif lyfr gwaith. Gweler y screenshot:

Nawr mae'r holl lyfrau gwaith wedi'u huno yn un.

O'i gymharu â'r ddau ddull uchod, Kutools ar gyfer Excel Mae ganddo'r manteision canlynol:

  • 1) Rhestrir yr holl lyfrau gwaith a thaflenni gwaith yn y blwch deialog;
  • 2) Ar gyfer y taflenni gwaith rydych chi am eu heithrio rhag uno, dim ond ei ddad-dicio;
  • 3) Mae taflenni gwaith gwag yn cael eu heithrio'n awtomatig;
  • 4) Ychwanegir enw'r ffeil wreiddiol fel rhagddodiad at enw'r ddalen ar ôl uno;
  • Am fwy o swyddogaethau'r nodwedd hon, ewch yma.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Kutools ar gyfer Excel - Yn Eich Helpu Bob Amser i Orffen Gwaith Cyn Amser, Cael mwy o amser i fwynhau bywyd
Ydych chi'n aml yn cael eich hun yn chwarae dal i fyny â gwaith, diffyg amser i'w dreulio i chi'ch hun a'ch teulu?  Kutools ar gyfer Excel Gall eich helpu i ddelio â phosau Excel 80% a gwella effeithlonrwydd gwaith 80%, rhoi mwy o amser i chi ofalu am deulu a mwynhau bywyd.
300 o offer datblygedig ar gyfer 1500 o senarios gwaith, gwnewch eich swydd gymaint yn haws nag erioed.
Nid oes angen fformiwlâu a chodau VBA ar gof mwyach, rhowch orffwys i'ch ymennydd o hyn ymlaen.
Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
Gostyngwch filoedd o lawdriniaethau bysellfwrdd a llygoden bob dydd, ffarweliwch â chlefydau galwedigaethol nawr.
Dewch yn arbenigwr Excel mewn 3 munud, helpwch chi i gael eich cydnabod yn gyflym a dyrchafiad codi cyflog.
110,000 o bobl hynod effeithiol a 300+ o ddewisiadau cwmnïau byd-enwog.
Gwnewch eich $ 39.0 werth mwy na $ 4000.0 hyfforddiant eraill.
Nodwedd lawn am ddim treial 30-diwrnod. Gwarant Arian yn Ôl 60-Diwrnod heb reswm.

sylwadau (146)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Plz helpwch fi i'r amod isod. Mae gen i lyfr gwaith gwahanol sydd â mwy na 5 taflen waith yr un mewn gwahanol lwybrau. Mae angen i mi gyfuno'r holl daflenni gwaith o lyfr gwaith gwahanol yn un llyfr gwaith. A all unrhyw un fy helpu i ddatrys gyda macro.TIA!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfynbris]Helo Plz helpwch fi i'r amod isod. Mae gen i lyfr gwaith gwahanol sydd â mwy na 5 taflen waith yr un mewn gwahanol lwybrau. Mae angen i mi gyfuno'r holl daflenni gwaith o lyfr gwaith gwahanol yn un llyfr gwaith. A all unrhyw un fy helpu i ddatrys gyda macro.TIA!Gan A. Karthi[/quote] Ewch i lawrlwytho a gosod y Kutools ar gyfer Excel, gallwch chi ei wneud yn gyflym. Ond os ydych chi am ddefnyddio VBA, gall fod yn rhy gymhleth. I gael rhagor o wybodaeth am sut i wneud hyn, ewch i:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
KUTOOLS Ateb anhygoel. Dwi angen un help arall pan dwi'n creu prif lyfr gwaith yna mae lliw celloedd y daflen waith yn cael ei newid o'r daflen waith wreiddiol. Sut alla i ei gadw fel taflen waith wreiddiol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gan ein swyddfa ddyblygu data, (hy-enw, cyfeiriad, dinas, swm, dyddiad wedi'i lofnodi) o nifer o fersiynau gwreiddiol Excel ac mae ceisio cyfuno'r data yn mynd i fod yn waith ar y gweill. Sut y gellir gwneud hynny i ddileu gwaith dwbl a chofnodion gwybodaeth dwbl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael 'gwall amser rhedeg 1004', methodd y dosbarth Copïo Dull o Daflen Waith ar y llinell sy'n darllen: Sheet.Copy After:=ThisWorkbook.Sheets(1). Rwy'n defnyddio Excel 2010. Allwch chi gynorthwyo? Diolch, - Susie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Susie, rydw i wedi bod yn gweithio ar y broblem hon ers tro nawr fy hun, yn cael yr un gwall. Gwiriwch i weld a gafodd y modiwl ei greu o dan PERSONAL yn lle eich llyfr gwaith gweithredol. Ar ôl i mi greu'r modiwl o dan y goeden gywir, fe weithiodd y cod isod yn iawn. Is-GetSheets_xls() Dim Taflen Fel Llwybr Taflen Waith = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Llwybr & "*.xls") Gwneud Tra Enw Ffeil" "" Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Taflen Set Anghywir = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Is Gobeithio bod hyn yn helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. Gweithiodd eich cod yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Rwy'n cael 'gwall amser rhedeg 1004', Methodd Dosbarth Copi Dull y Daflen Waith ar y llinell sy'n darllen: Sheet.Copy After:=ThisWorkbook.Sheets(1). Rwy'n defnyddio Excel 2010. Allwch chi gynorthwyo? Diolch, - SusieGan Susie[/quote] Wedi cael yr un broblem, mae'n gweithio pan fyddaf yn mynd i weld a datguddio "PERSONOL", mae'n ymddangos ei fod yn cael trafferth cyrchu'r macro hwn gyda'r meistr wedi'i guddio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ewch i weld a datguddio "PERSONOL" - mae'n ymddangos ei fod yn cael trafferth gweithredu'r cod cyfan tra bod y meistr wedi'i guddio. Gallwch chi wneud y macro yn frodorol i'r llyfr gwaith hwnnw, ond byddai'n rhaid i chi ail-greu'r holl beth bob tro yr hoffech ei ddefnyddio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch yn fawr am y ffeil hon............ :roll: Best Regard
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Awgrym gwych. Gwnaeth bron y cyfan roeddwn i eisiau. Yn y llyfr gwaith combinde, byddwn wedi caru i enw'r daflen waith gynnwys enw'r llyfr gwaith gwreiddiol, felly gwn o ba lyfr gwaith y daw'r data. Mae'r data rwy'n ei gyfuno, yn dod o wahanol archifau. Mae'n rhaid i mi chwilio am gofnod, ond ddim yn gwybod ym mha archif y mae. Felly bydd cyfuno'r holl ddata mewn un ffeil yn ei gwneud hi'n bosibl i mi chwilio pob archif ar unwaith. Ond dwi dal angen gwybod, ym mha archif mae'r cofnod. Henrik
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er mwyn i'r cod ymgorffori enw'r ffeil, gwnewch hyn. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combine\" Filename = Dir(Llwybr & "*.xlsx") Gwneud Tra Enw Ffeil" " Workbooks.Open Filename:= Llwybr & Enw Ffeil, ReadOnly:=Gwir dros dro = ActiveWorkbook.Name ActiveSheet.Name = dros dro ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Is Nodyn : dim ond copi o'r ddalen gyntaf yw hwn, gellir ei drydar i wneud pob dalen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n ymgorffori mwy o ddalennau a sut ydych chi'n pennu prif ffeil wahanol i gludo'r holl ddalennau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ateb gwych yn wir. Diolch. Fodd bynnag, pan fyddaf yn ei weithredu fel hyn, bydd Excel yn gofyn a wyf am arbed newidiadau cyn cau (Ers newid yr enw), ac nid wyf am ei wneud ar gyfer pob ffeil (tua 32 fesul gweithrediad). A fyddai modd datrys hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych :lol: wedi fy helpu llawer....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch ffrind, fe wnaethoch chi fy niwrnod o'r wefan ddefnyddiol iawn hon... A dweud y gwir roeddwn i hefyd eisiau cyfuno'r un data pennawd o wahanol daflenni yn 1 brif daflen waith, roedd y KUTOOL for Excel wedi fy helpu'n fawr iawn.... Diolch unwaith eto .... :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am y wybodaeth werthfawr. Mae hyn yn gweithio mewn gwirionedd. Gwnaeth y camau a restrir yn yr erthygl hon fy swydd yn haws. Diolch, Dinesh
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am rannu eich gwybodaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n ei gael i ddiweddaru'r newidiadau o'r llyfr gwaith gwreiddiol? Rwy'n ceisio cael crynodeb cenedlaethol a fydd yn cael pob rhanbarth i fewnbynnu eu data i'w llyfrau gwaith eu hunain ac yna'n cael y crynodeb cenedlaethol sy'n diweddaru o hwn? Hoffwn i hyn gael ei sefydlu ar gyfer y flwyddyn lawn ar y dechrau a pheidio â gweithio'n ôl-weithredol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl cyfuno'r taflenni gwaith mewn un Llyfr Gwaith, sut ydych chi'n ei gadw, ni allwn ei gadw a'i enwi'n Llyfr 1 ac rwy'n clicio ar arbed neu arbed fel awgrymiadau ond ddim yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dilynais y camau yn "Cyfunwch lyfrau gwaith lluosog i un llyfr gwaith gyda VBA" a chliciwch ar "run", ni ddigwyddodd dim. Nid wyf yn ymwybodol o gamgymeriadau ac nid wyf yn siŵr sut i'w cywiro. A fyddech chi'n fy helpu? y canlynol yw'r cod yr wyf yn ei fewnbynnu mewn llyfr gwaith newydd. Diolch Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Llwybr & "*.xls") Gwneud Tra Enw Ffeil" " Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Gwir Ar Gyfer Pob Dalen i Mewn ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Llyfrau Gwaith y Daflen Nesaf(Enw Ffeil). Close Filename = Dir() Loop End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr / Madam: Dilynais gamau "Cyfuno llyfrau gwaith lluosog i un llyfr gwaith gyda VBA" i sefydlu'r modiwl canlynol, ond ni ddigwyddodd dim. A fyddech chi'n fy helpu i ddod o hyd i'r broblem? diolch yn fawr Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Llwybr & "*.xls") Gwnewch Tra Enw'r Ffeil "" Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Gwir Am Bob Dalen Yn ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Gweithlyfrau'r Daflen Nesaf(Filename). Close Filename = Dir() Loop End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ar gyfer fersiynau mwy diweddar o excel, rhowch gynnig ar hyn. Arbedais fy llyfr gwaith agored fel catalog, ac mae'r holl ffeiliau mewn c: \ temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Llwybr & "*.xls") Gwneud Tra Enw Ffeil "" Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Gwir Ar Gyfer Pob Dalen yn ActiveWorkbook. Sheets Sheet.Copy After:=Llyfrau Gwaith("catalog.xlsx").Taflenni(1) Llyfrau Gwaith y Daflen Nesaf(Enw Ffeil). Cau Enw Ffeil = Dir() Is-Ddiwedd Dolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar hwn ar gyfer fersiynau mwy diweddar o excel. Arbedais fy llyfr gwaith fel catalog, mae'r holl ffeiliau mewn c: \ temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Llwybr & "*.xls") Gwneud Tra Enw Ffeil "" Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Gwir Ar Gyfer Pob Dalen yn ActiveWorkbook. Sheets Sheet.Copy After:=Llyfrau Gwaith("catalog.xlsx").Taflenni(1) Llyfrau Gwaith y Daflen Nesaf(Enw Ffeil). Cau Enw Ffeil = Dir() Is-Ddiwedd Dolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Rhowch gynnig ar hwn ar gyfer fersiynau mwy diweddar o excel. Arbedais fy llyfr gwaith fel catalog, mae'r holl ffeiliau mewn c: \ temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Llwybr & "*.xls") Gwneud Tra Enw Ffeil "" Workbooks.Open Filename:=Llwybr ac Enw Ffeil, ReadOnly:=Gwir Ar Gyfer Pob Dalen yn ActiveWorkbook. Sheets Sheet.Copy After:=Llyfrau Gwaith("catalog.xlsx").Taflenni(1) Llyfrau Gwaith y Daflen Nesaf(Enw Ffeil). Cau Enw Ffeil = Dir() Is-Ddiwedd Dolengan Dave[/dyfyniad] Rwy'n dal i gael "methu aseinio i eiddo darllen yn unig" ynghylch y llwybr... Unrhyw syniad?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i broblem hefyd. Wnaethoch chi ei chyfrifo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim byd eto... Heb ddod o hyd i unrhyw ateb neu wedi cael unrhyw un yn awgrymu ateb. Sori...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fi hefyd. Roedd hyn yn gweithio 6 mis yn ôl, y tro diwethaf i mi ei redeg. A oes unrhyw un wedi dod o hyd i'r ateb eto? Pe bai gennych chi'n rhedeg o'r blaen a nawr ni fydd yn gweithio, a allai fod yn rhywbeth i'w wneud â diweddariad gan Microsoft? Mae hwn yn arf defnyddiol iawn ar gyfer fy nhasgau ac yn arbed llawer o amser i mi. Beth allai fod wedi newid a fyddai'n achosi i Excel ddechrau arddangos y neges hon yn sydyn? Gan fy mod yn weddol newydd i VBA, nid oes gennyf lawer o syniad ble i ddechrau dadansoddi'r rhesymeg. Cofion cynnes, Greg. Glasgow, yr Alban.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos bod "Llwybr" bellach wedi'i gadw felly defnyddiwch unrhyw enw arall a rhoi "Llwybr" yn ei le, ee "Mypath".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Efallai y dylech chi newid ReadOnly:=Gwir i ReadOnly:=Anghywir, rydw i wedi gwneud ac roedd yn ddefnyddiol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i'n chwilio am rywbeth tebyg ond roeddwn i eisiau gwneud sylw. Onid oes angen i'r Enw Gwneud Tra Ffeil " "fod yn rhywbeth heblaw ""? neu ydw i'n darllen hynny'n anghywir? Efallai Gwneud Er NID enw ffeil = "" Dim ond meddwl...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am gyfuno'r holl ddalennau yn un ddalen lle mae'r penawdau'n gyffredin... pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais ddefnyddio'r macros uchod i goladu ychydig o ffeiliau, yn anffodus dim canlyniadau ... a all rhywun fy helpu i gael gwared ar goladu ffeiliau â llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i 112 o daflenni Excel rydw i eisiau eu rhoi mewn un ddalen heb gopïo a gludo. Helpwch fi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i lyfr gwaith sy'n cynnwys tua 250 o Daflen . Mae angen i mi Cobain mewn un ddalen. rhowch ateb i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar hwn...Cefais hwn o wefan arall ond yn anffodus ni allaf gofio enw'r wraig felly ymddiheuraf am beidio â sôn amdani, fy ngwaeledd" Cyfunwch sawl WB yn Excel: COFIWCH NEWID MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst Fel Llyfr Gwaith Dim wbSrc Fel Gweithlyfr Dim wsSrc Fel Taflen Waith Dim MyPath Fel Llinynnol Dim strFilename As String Application.DisplayAlerts = Cais Ffug.EnableEvents = Cais Ffug.ScreenUpdating = MyPath Ffug = "\\MyPath\etc\etc.." Gosod wbDst = Llyfrau Gwaith.Add(xlWBATWorksheet) strFilename = Dir(MyPath & " \*.xls", vbNormal) Os Len(strFilename) = 0 Yna Gadael Is Gwneud Tan strFilename = " " Gosod wbSrc = Llyfrau Gwaith.Open(Enw Ffeil:= MyPath & "\" & strFilename) Gosod wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDst.Worksheets(1). Dileu Application.DisplayAlerts = Gwir Application.EnableEvents = Gwir Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ychwanegais y cod i fodiwl. Enwyd y llyfr Excel Masterfile. Ble yn y cod ydw i'n ychwanegu. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni weithiodd yr un o'r rhain i mi o'r diwedd cefais yr un hon i weithio. FYI Rwy'n defnyddio 2010 'Disgrifiad: Yn cyfuno pob ffeil mewn ffolder i brif ffeil. Is-Gyfuniad() Llwybr Dim Fel Llinyn, HonWB Fel Llinynnol, lngFilecounter Mor Hir Dim wbDest As Workbook, shtDest Fel Taflen Waith, ws Fel Taflen Waith Dim Enw Ffeil Fel Llinynnol, Wkb Fel Llyfr Gwaith Dim Copi Fel Ystod, Cyrchfan Fel Ystod Dim RowofCopySheet As Integer RowofCopySheet = 2 ' Rhes i gychwyn arni yn y dalennau rydych yn eu copïo o ThisWB = ActiveWorkbook.Name path = " mypath..." ' Peidiwch ag anghofio newid y Cais hwn.EnableEvents = Cais Ffug.ScreenUpdating = Gosod Anghywir shtDest = ActiveWorkbook .Sheets(1) Filename = Dir(llwybr & " \*.xls", vbNormal) Os Len(Filename) = 0 Yna Gadael Is Gwneud Tan Enw Ffeil = vbNullString Os Ddim Enw Ffeil = ThisWB Yna Gosod Wkb = Llyfrau Gwaith.Agored(Enw Ffeil: =llwybr & "\" & Enw Ffeil) Gosod CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell). Row + 1) CopyRng.Copy Dest Wkb.Close Diwedd Anghywir Os Enw Ffeil = Dir() Amrediad Dolen e("A1").Select Application.EnableEvents = Gwir Application.ScreenUpdating = Gwir MsgBox "Wedi'i Wneud!" Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae golygu hwn fel bod y data a dynnir i mewn bob amser yn dechrau ar y rhes uchaf? Os byddaf yn rhedeg y cod hwn ddwywaith, mae'n ychwanegu'r data at ddiwedd fy nata blaenorol (o rediad cyntaf y macro).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newidiwch y llinell hon: RowofCopySheet = 2 i RowofCopySheet = 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i sawl ffeil Excel (taflen sengl) ffolder wahanol gydag amddiffyniad cyfrinair. Yr wyf am ddiwedd y dydd cyfuno holl ddata i un ffeil Meistr. Bob tro mae'n rhaid i mi Rhowch gyfrinair ac agor y ffeil a chopïo past i ffeil meistr .. Yn garedig, helpwch fi gyda chod VBA ar gyfer hyn os gwelwch yn dda.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir