Pozdravljeni Frnds,
Iščem rešitev kje
Izbira datoteke lahko opravi uporabnik.[/*]Na podlagi izbrane datoteke se lahko izvede nadaljnje dejanje za to določeno datoteko.[/*]Na podlagi moje zahteve sem poskusil napisati kodo, vendar se makro ne izvede, ko se datoteka odpre. Spodaj najdete kodo.[/*]
Ustvarjanje poddatoteke()
Dim FolderPath kot niz
Dim Ime datoteke kot različica
Dim openbook kot delovni zvezek
Dim file_name kot različica
Dim bFileSaveAs kot logično
Application.ScreenUpdating = Napačno
Ime datoteke = Application.GetOpenFilename(Title:="Izberite konfiguracijsko predlogo")
Če je ime datoteke <> False Potem
Nastavi odprto knjigo = Application.Workbooks.Open(ime datoteke)
Ta delovni zvezek.Aktiviraj
openbook.Worksheets("User Master").Aktiviraj
Če Range("C6") <> "" Potem
ActiveSheet.Range("B6:T").Copy
Delovni zvezki.Dodaj
Delovni listi ("Master uporabnika").Dodaj
Obseg("A1").Izberi
ActiveSheet.Prilepi
Else
Obseg("A1:XFD1048576").Izberite
Izbor. Kopija
Delovni zvezki.Dodaj
Delovni listi ("Master uporabnika").Dodaj
Obseg("A1").Izberi
ActiveSheet.Prilepi
Konec Če
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
Če ni bFileSaveAs, potem MsgBox "Uporabnik je preklican", vbCritical
ActiveWorkbook.Zapri
Delovni listi ("Skupnost"). Aktivirajte
Obseg("A1:G1").Izberi
Obseg(Izbor, Izbor.Konec(xlDown)).Kopiraj
Delovni zvezki.Dodaj
ActiveSheet.Prilepi
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
Če ni bFileSaveAs, potem MsgBox "Uporabnik je preklican", vbCritical
ActiveWorkbook.Zapri
Delovni listi ("spletni namestitveni program"). Aktivirajte
Obseg("A1:ZZ1").Izberite
Obseg(Izbor, Izbor.Konec(xlDown)).Kopiraj
Delovni zvezki.Dodaj
Delovni listi ("Povabite uporabnike").Dodaj
Obseg("A1").Izberi
ActiveSheet.Prilepi
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
Če ni bFileSaveAs, potem MsgBox "Uporabnik je preklican", vbCritical
ActiveWorkbook.Zapri
Else
MsgBox "Uporabnik je preklical operacijo"
Konec Če
End Sub