Helo Ffrind,
Rwy'n edrych am yr ateb ble
Gellir dewis ffeil gan y defnyddiwr.[/*]Yn seiliedig ar y ffeil a ddewiswyd, gellid cymryd camau pellach ar y ffeil benodol honno.[/*]Yn seiliedig ar fy ngofyniad rwyf wedi ceisio ysgrifennu'r cod ond pan fydd y ffeil yn agor nid yw'r macro yn gweithredu ar ôl hynny. Gweler y cod isod.[/*]
Creu Is-ffeil()
Dim Llwybr Ffolder Fel Llinynnol
Dim Enw Ffeil Fel Amrywiad
Dim openbook Fel Llyfr Gwaith
Dim file_name Fel Amrywiad
Dim bFileSaveAs As Boole
Application.ScreenUpdating = Anghywir
Filename = Application.GetOpenFilename(Teitl:="Dewis Templed Ffurfweddu")
Os Enw Ffeil <> Gau Yna
Gosod openbook = Application.Workbooks.Open(Filename)
Y Llyfr Gwaith hwn.Activate
openbook.Worksheets("Defnyddiwr Meistr").Activate
Os Ystod ("C6") <> "" Yna
ActiveSheet.Range("B6:T").Copi
Gweithlyfrau.Add
Taflenni gwaith ("Defnyddiwr Meistr"). Ychwanegu
Ystod ("A1"). Dewiswch
Taflen Actif.Gludo
arall
Ystod ("A1:XFD1048576"). Dewiswch
Dewis.Copy
Gweithlyfrau.Add
Taflenni gwaith ("Defnyddiwr Meistr"). Ychwanegu
Ystod ("A1"). Dewiswch
Taflen Actif.Gludo
Gorffennwch Os
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Yna MsgBox "Defnyddiwr wedi'i ganslo", vbCritical
ActiveWorkbook.Close
Taflenni gwaith ("Cymuned"). Ysgogi
Ystod ("A1:G1"). Dewiswch
Ystod (Dethol, Dewis.Diwedd (xlDown)).Copi
Gweithlyfrau.Add
Taflen Actif.Gludo
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Yna MsgBox "Defnyddiwr wedi'i ganslo", vbCritical
ActiveWorkbook.Close
Taflenni gwaith ("gosodwr gwe"). Activate
Ystod ("A1:ZZ1"). Dewiswch
Ystod (Dethol, Dewis.Diwedd (xlDown)).Copi
Gweithlyfrau.Add
Taflenni gwaith ("Gwahodd Defnyddwyr"). Ychwanegu
Ystod ("A1"). Dewiswch
Taflen Actif.Gludo
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Yna MsgBox "Defnyddiwr wedi'i ganslo", vbCritical
ActiveWorkbook.Close
arall
MsgBox "Defnyddiwr wedi Canslo'r Gweithrediad"
Gorffennwch Os
Is-End