Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem 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.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
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

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