Otevřít soubor (i s heslem) - VBA Excel

Úvodem

Jak otevřít excelovský soubor pomocí VBA. Jak otevřít pokud excelovský sešit, pokud je chráněn heslem (heslo musíte znát)? Pokud nevíte jak na to, čtete správný článek.

Poznámka: Jak zjistit heslo zaheslovaného souboru, zde nenajdete. Musíte hledat jinde.

Co se dozvíte

Aneb rychlý přehled:

• Otevření sešitu (*.xls)
• Otevření sešitu s heslem
• Otevření csv souboru

Otevření sešitu (*.xls)

Řešení je jednoduché.

Workbooks.Open "C:\dokument.xls"

Poznámka: Předpoklad je, že soubor (sešit) existuje.

Profesionálnější řešení

Sub OtevritSesit() Dim MojeCesta As String Dim MujSoubor As String MojeCesta = "C:\dokumenty" MujSoubor = "soubor.xls" Workbooks.Open MojeCesta & "\" & MujSoubor End Sub

Otevření sešitu s heslem

Řešení je jednoduché

Workbooks.Open "C:\soubor-s-heslem.xls", Password:="heslo"

Poznámka: Heslem je text v uvozovkách heslo ;), vím že to není originální, ale přeci neprozrazdím své oblíbené heslo: 4rT#j&3š;Tk!2.

Profesionálnější řešení

Sub OtevritSesitZaheslovany() Dim MojeCesta As String Dim MujSoubor As String MojeCesta = "C:\dokumenty\heslovne" MujSoubor = "soubor-s-heslem.xls" Workbooks.Open MojeCesta & "\" & MujSoubor, Password:="heslo" End Sub

Otevření csv souboru

Excel 2003

Řešením je kód:

Workbooks.Open "C:\dokument.csv"

Otevření csv souboru - Excel 2007 - 2010

Do řešení se musí dodat informace (Local).

Workbooks.Open "C:\dokument.csv", Local:=True

CestaAdresare = ThisWorkbook.Path Workbooks.Open Filename:=CestaAdresare & "\csv-oddelovac-strednik.csv"

Závěrem

Pokud chcete nědo doplnit použijte komentáře :)

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.