Dia duit a Fhireanna,
Táim ag lorg an réiteach áit
Dim FolderPath Mar Teaghrán
Dim Filename As Variant
Dim openbook Mar Leabhar Oibre
Dim comhad_name Mar Athrú
Dim bFileSaveAs As Boole
Application.ScreenUpdating = Bréagach
Filename = Application.GetOpenFilename(Teideal:="Roghnaigh Teimpléad Cumraíochta")
Más Comhadainm <> Bréagach Ansin
Socraigh openbook = Application.Workbooks.Open(Filename)
An Leabhar Oibre seo.Gníomhachtaigh
openbook.Bileoga Oibre ("Máistir Úsáideora").Gníomhachtaigh
Má Raon ("C6") <> "" Ansin
ActiveSheet.Range("B6:T").Cóip
Leabhair oibre.Add
Bileoga Oibre ("Máistir Úsáideora").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
Eile
Raon ("A1:XFD1048576").Roghnaigh
Roghnú.Cóip
Leabhair oibre.Add
Bileoga Oibre ("Máistir Úsáideora").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
Deireadh Má
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Bileoga Oibre ("Pobal"). Gníomhachtaigh
Raon ("A1:G1").Roghnaigh
Raon (Roghnú, Roghnú. Críoch (xlDown)). Cóip
Leabhair oibre.Add
ActiveSheet.Greamaigh
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Bileoga oibre ("suiteálaí gréasáin"). Gníomhachtaigh
Raon ("A1:ZZ1").Roghnaigh
Raon (Roghnú, Roghnú. Críoch (xlDown)). Cóip
Leabhair oibre.Add
Bileoga Oibre ("Cuir cuireadh d'Úsáideoirí").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Eile
MsgBox "Chealaigh an tÚsáideoir an Oibríocht"
Deireadh Má
Fo Deireadh
Táim ag lorg an réiteach áit
- D'fhéadfaí comhaid a roghnú ón úsáideoir.[/*]Bunaithe ar an gcomhad roghnaithe d'fhéadfaí gníomh breise a dhéanamh ar an gcomhad áirithe sin.[/*]Bunaithe ar mo riachtanas rinne mé iarracht an cód a scríobh ach nuair a bhíonn an comhad á oscailt ní fheidhmíonn an macra ansin ina dhiaidh sin. Anseo thíos gheobhaidh tú an cód.[/*]
Dim FolderPath Mar Teaghrán
Dim Filename As Variant
Dim openbook Mar Leabhar Oibre
Dim comhad_name Mar Athrú
Dim bFileSaveAs As Boole
Application.ScreenUpdating = Bréagach
Filename = Application.GetOpenFilename(Teideal:="Roghnaigh Teimpléad Cumraíochta")
Más Comhadainm <> Bréagach Ansin
Socraigh openbook = Application.Workbooks.Open(Filename)
An Leabhar Oibre seo.Gníomhachtaigh
openbook.Bileoga Oibre ("Máistir Úsáideora").Gníomhachtaigh
Má Raon ("C6") <> "" Ansin
ActiveSheet.Range("B6:T").Cóip
Leabhair oibre.Add
Bileoga Oibre ("Máistir Úsáideora").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
Eile
Raon ("A1:XFD1048576").Roghnaigh
Roghnú.Cóip
Leabhair oibre.Add
Bileoga Oibre ("Máistir Úsáideora").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
Deireadh Má
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Bileoga Oibre ("Pobal"). Gníomhachtaigh
Raon ("A1:G1").Roghnaigh
Raon (Roghnú, Roghnú. Críoch (xlDown)). Cóip
Leabhair oibre.Add
ActiveSheet.Greamaigh
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Bileoga oibre ("suiteálaí gréasáin"). Gníomhachtaigh
Raon ("A1:ZZ1").Roghnaigh
Raon (Roghnú, Roghnú. Críoch (xlDown)). Cóip
Leabhair oibre.Add
Bileoga Oibre ("Cuir cuireadh d'Úsáideoirí").Add
Raon ("A1").Roghnaigh
ActiveSheet.Greamaigh
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Taispeáin
If Not bFileSaveAs Ansin MsgBox "Úsáideoir ar ceal", vbCritical
Leabhar Oibre Gníomhach.Dún
Eile
MsgBox "Chealaigh an tÚsáideoir an Oibríocht"
Deireadh Má
Fo Deireadh