Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Názov zošita (Worksheets) v VBA Excel

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

End Sub
Naposledy upravil Pakrako : 13.06.15 at 07:59
3 komentárov     zbaliť
marjankaj Zošit je workbook.
Pakrako Ja viem, ale potrebujem dostať do premennej názov zošitu (workbooku).
marjankaj A odkiaľ ho chceš načítať? Kde je tá príloha?
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    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!
    Usporiadať podľa času

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    nazov="C:\Users\Documents\subor.xlsx"
    ActiveWorkbook.SaveAs Filename:=nazov
    0
    Pakrako Pre 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

    Názov zošita (Worksheets) v VBA Excel

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka