Excel - otevírání sešitu na konkrétním listu

Ahoj, potřeboval bych vyřešit problém, aby se mi sešit při otevření vždy otevřel na jednom s tom stejném konkrétním listu, bez ohledu na to, na kterém listu byl sešit uložený. Chtěl jsem to vyřešit pomocí makra spouštějícím se při otevření sešitu, ovšem při otevření jsou makra nastavená jako nepovolená (a bohužel s tím nemůžu nic měnit), tudíž nic nefunguje. Mohl bych někoho poprosit o radu, jak problém vyřešit? Díky moc.

Předmět	Autor	Datum
Vždyť si to už řešil TATY Odpovědi si dostal, co se Ti na nich nelíbí? Siki83 06.04.2014 21:36	Siki83	06.04.2014 21:36
Keďže "nemôžeš" použiť v Exceli makro, skús to takto: Const xlVisible = -1 Dim objExcel Dim objWb D… poslední pme 06.04.2014 21:52	pme	06.04.2014 21:52

Vždyť si to už řešil TATY
Odpovědi si dostal, co se Ti na nich nelíbí?

Keďže "nemôžeš" použiť v Exceli makro, skús to takto:

Const xlVisible = -1
Dim objExcel
Dim objWb
Dim objws
Dim strFileName
strFileName = "D:\poplatky.xls"
On Error Resume Next
Set objExcel = CreateObject("excel.application")
Set objWb = objExcel.Workbooks.Open(strFileName)
Set objws = objWb.Sheets(2)
On Error GoTo 0
If Not IsEmpty(objws) Then
    If objws.Visible = xlVisible Then
        objExcel.Goto objws.Range("a1")
    Else
        wscript.echo "the 2nd sheet is present but is hidden"
    End If
    objExcel.Visible = True
Else
    objExcel.Quit
    Set objExcel = Nothing
    If IsEmpty(objWb) Then
        wscript.echo strFileName & " not found"
    Else
        wscript.echo "sheet2 not found"
    End If
End If

Kód si uprav a ulož napr. ako "niečo.vbs", následne si ho spúšťaj dvojklikom ako program...
Vyskúšané v Exceli 2010 a funguje!

pokus.vbs 697.00 B

Zpět do poradny Odpovědět na původní otázku Nahoru