Zdieľajte s nami link na články z iných webov. Komentáre k linku budú zoradené podľa počtu hlasov, môžete využiť aj filter komentárov a zobraziť len komentáre od členov ktorých na Porade sledujete.
Vie mi niekto poradiť ako načítať do VBA Excel názov zošita ? Zošit ako príklad je v prílohe.
Potrebujem vedieť ako načítať odsek makra napísaného tučne :
' ====== otvorenie pôvodného zošita
Príklad makra:
Zošit je uložený pod menom "Názov zošita" a ja potrebujem aby hocijaký aj iný názov bol načítaný do VBA Excel a tento následne vo VBA Excel otvorený .
Sub NovyNazov_Zošita()
Application.ScreenUpdating = False ' Vypne sledovanie obrazovky
ActiveWorkbook.Save
U = MsgBox(" nejaký text ?", vbYesNo, "Kontrola zadania údajov")
Select Case U
Case vbYes
Dim hodnota As String 'hodnota bunky ktora sa ma nastavit
Dim NNS As String
Dim SNS As String
' ====== vytvorenie nového názvu zošita
Sheets("Údaje").Visible = True
Sheets("Údaje").Select
NNZ = Sheets("Údaje").Range("$J$9").Value
'MsgBox (" << Vytváranie kópie = Nový názov súboru << pre pokračovanie stlačte OK ")
Sheets("Údaje").Visible = True
Sheets("Údaje").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Udaj\Archív\Udaj-" + NNS + ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Windows("Udaj-" + NNS + ".xlsm").Activate
ActiveWorkbook.Save ' ====== otvorenie pôvodného zošita
Workbooks.Open(Filename:="C:\Udaj\Udaj-"+SNS+.xlsm, UpdateLinks:=0). _
RunAutoMacros Which:=xlAutoOpen
Call xxxx
' ====== zatvorenie nového zošita
Windows("Udaj-" + NNS + ".xlsm").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True False ' Zapne sledovanie obrazovky Range("P5").Select
End Select
Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte. Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
❤ Buďte priateľskí ❤
Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
PakrakoPre tých , ktorí by to náhodou potrebovali je tu riešenie, mojej otázky. Týmto ďakujem dobrej duši čo mi to poradila a riešenie je 100 % funkčné !.
PNS je pôvodný názov súboru
Dim PNS As String
PNS = ActiveWorkbook.FullName
Pre otvorenie použijete názov premennéj tj.
Workbooks.Open Filename:=PNS