|
|
Je soubor otevřen - VBA Excel
Videokurzy Excel
Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
- Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
- MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
- G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky
jak zjistit zda již není soubor danného jména otevřen?
Úvodem
Pokud chcete pomocí VBA otevřít soubor setjného jména jako již má již otevřený soubor obdržíte chybovou hlášku. Předejít této skutečnosti lze kontrolou zda je soubor otevřen.
Řešení ve VBA
On Error Resume Next
Set Sesit = Workbooks("kontrolovany-sesit.xls")
sesitOtevren = Not Sesit Is Nothing
If sesitOtevren = True Then
MsgBox "Sesit je otevren"
Else
MsgBox "Sesit neni otevren"
End If
Poznámka: U souboru jež chceme zkontrolovat se neudáva cesta, jen jeho jméno např. kontrolovany-sesit.xls
Poznámka 2: Soubor musí být otevřen ve stejné aplikaci MS Excelu.
Je soubor otevřen - v novém aplikačním okně
Předchozí skript nefunguje pokud je soubor otevřen v novém aplikačním okně, takže jak na to? Například použít následující kód:
Workbooks("kontrolovany-soubor.xls").Activate
If Err = 0 Then
MsgBox "sesit otevren"
Else
MsgBox "sesit neotevren"
End If
Err.Clear
Inspirace díky Internetu a informaci, že pokud soubor nelze Aktivovat vrátí Err číslo chyby 9. Takže když nejde aktivovat, tak není ani otevřen ...
Článek byl aktualizován: 19.09.2020 11:07
Odměna
Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.
Pavel Lasák - autor webu
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.
Komentáře
Laďa
Přidáno: 28.08.14 13:29
Zdravím, mám soubor, který je sdílený, navíc při spuštění probíhá logování uživatele atd.. Funguje to spolehlivě za podmínky, že není spuštěný jiný sešit. Doaz: Jak zajistit přes VBA, aby se při spouštění souboru makro nejdříve "podívalo", jestli uživatel nemá otevřený jiný Excel. Pokud ano, přeruší spouštění a zobrazí hlášku s upozorněním, aby nejdřive zavřel excel. Děkuji
Jojo
Přidáno: 03.09.14 11:00
To Laďa: Pôvodný kód je upravený pre konkrétnu potrebuSub ProcessesRunning()
'Vráti počet (rovnakých) bežiacich procesov
'VBA - Get other excel Application instances
'http://www.mrexcel.com/forum/excel-questions/163344-visual-basic-applications-get-other-excel-application-instances.html
Dim objList As Object
Dim objProcess As Object
Dim strWhat As String
strWhat = "Excel.exe"
Set objList = GetObject("winmgmts:") _
.ExecQuery("select * from win32_process where name='" & strWhat & "'")
If objList.Count > 1 Then
MsgBox "Najprv treba zatvoriť bežiaci " & strWhat & vbCrLf & "(beží " & objList.Count & "x)"
End If
End Sub
Lukas
Přidáno: 09.09.14 17:46
Dobrý den, bohužel mám problém s 2 příkladem > soubor otevřen v jiné instanci excelu. vždy mi to vrací error 9 i když je otevřen v jiné instanci i když není otevřen. nedokázal by prosím někdo poradit jak vyřešit? jde mi čistě o kontrolu: 1. je sesit otevren? 2. je sesit otevren v jine instanci? Díky
Lukas
Přidáno: 09.09.14 19:11
tak jsem to nakonec vyřešil. kdyby někdo někdy potřeboval tak přikládám kód:
On Error Resume Next
Set wBook = Workbooks(WBTargetName)
If Not wBook Is Nothing Then
'File IS open
Application.DisplayAlerts = False
Workbooks(WBTargetName).Close
Else
'Application.DisplayAlerts = False
Workbooks.Open Filename:=SourceFullFilePath
bReadOnly = Workbooks(WBTargetName).ReadOnly
If bReadOnly = True Then
Workbooks(WBTargetName).Close
UserChoice = MsgBox("Workbook " & WBTargetName & " is currently open in another Excel instance, please close other instance first and then try it again", vbOKOnly + vbCritical)
FillDataFromDB = False
Exit Function
End If
Workbooks(WBTargetName).Close
End If
Err.Clear
Laďa
Přidáno: 10.09.14 14:31
Já jsem s tím měl taky problém. Nefungovalo mi to. Nakonec strejda Google poradil níže uvedený kod, který mi funguje. Mám tam danou ještě podmínku, aby vynechal sešit Osobních maker - PERSONAL.XLSB, který používám. Díky za spolupráci Sub OtevrenySesit() 'nechá otevřený soubor test 1.xlsm a Osobní sešit maker PERSONAL.XLSB Dim wb As Workbook For Each wb In Workbooks If wb.Name <> "PERSONAL.XLSB" And wb.Name <> "test 1.xlsm" Then MsgBox " Zavřete soubor s názvem " & wb.Name End If Next wb End Sub Následně do kodu doplním hlášku s volbou Uzavřít sešit se změnami -> Uzavřít soubor beze změn. Ale to je už vedlejší :-)
Laďa
Přidáno: 10.09.14 14:42
Sakra, nevím, jak se tam vkládá VBA kod. Takže se omlouvám za předchozí nepřehledný příspěvek :-) Mimochodem, jak se to dělá ? :-)
Lukas
Přidáno: 10.09.14 17:33
das tam html tag < code > na zacatek a pak kde chces ukoncit das < / code > (bez mezer) :)
Laďa
Přidáno: 11.09.14 16:44
Díky. Funguje to tak, že v případě otevřeného jiného souboru, než který otvírám, zobrazí to hlášku a ukončí otevírání.
Takže ještě jednou:
Sub OtevrenyJinySesit()
'zkontroluje, jestli není otevřený jiný soubor než tento soubor a Osobní sešit maker PERSONAL.XLSB
Dim wb As Workbook
Dim soubor As String
soubor = ActiveWorkbook.Name
For Each wb In Workbooks
If wb.Name <> "PERSONAL.XLSB" And wb.Name <> soubor Then
MsgBox " Zavřete, prosím, soubor s názvem " & wb.Name
Application.DisplayAlerts = False
Workbooks(TentoSoubor).Close
End If
Next wb
End Sub
Stefan
Přidáno: 20.01.15 18:13
Dobry den Mám jednoduchý dotaz Mám udělané v Excelu tlačítko VB a kliknutím chci otevřít soubor pdf (txt). dim cesta as string cesta = "c:\ahoj.pdf" a ted nevim příkaz open co jsem zkoušel mi nefunguje open cesta....?? soubor pdf chci jenom otevřít jako samostatný soubor pokud budete mít čas, budu moc rád, pokud mi napovíte děkuji
Jojo
Přidáno: 23.01.15 07:46
To Stefan: -- otvorenie PDF súboru z Exc:Sub Test()
sPath = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
sFile = "C:\Test.pdf"
Shell sPath & " " & sFile, vbNormalFocus
End Sub
stefan
Přidáno: 25.01.15 10:47
dekuji jojo moc super otevreni souboru proběhne Mam ale jedno ale : jak zajistim otevreni na jinem pocitaci, když nevim, jaka je cesta k exe souboru (třeba opet k pdf) popřípadě neznam verzi pdf. Potrebuji, aby to fungovalo univerzalne lze toto zajistit
Jojo
Přidáno: 26.01.15 12:30
To Stefan: -- otvorenie PDF súboru z Exc(2):Sub Test()
'"C:\Test.pdf" musí existovať
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
On Error Resume Next
WShell.Run "C:\Test.pdf"
On Error GoTo 0
End Sub
stefan
Přidáno: 26.01.15 16:36
jojo dekuji moc Je to presne to, co jsem potreboval
Zbyněk
Přidáno: 04.02.15 17:39
Dobrý den, prosím o radu. Při makru, které testuje jestli je sešit otevřen nebo ne se excel někdy restartuje a někdy makro pracuje bez problémů.
Děkuji.
Sub VloziDoNabidkyNove()
Cells.Select ' vybere ve zdrojovém sešitě
Selection.Copy
On Error Resume Next
Set Sesit = Workbooks("Nabidka.xlsx") 'testuje zda je sešit otevřen
sesitOtevren = Not Sesit Is Nothing
If sesitOtevren = True Then
Else
Workbooks.Open "C:\Users\Zoro2\Desktop\Nabidka.xlsx"
End If
Range("A1").Select
ActiveSheet.Paste
End Sub
Hanka
Přidáno: 05.02.15 16:16
Prosím o radu - chtěla bych nahrát makro do osobního sešitu maker (PERSONAL), ale při záznamu mi to hlásí, že tento sešit není otevřen.. proklikala jsem už kde co, ale nemůžu nikde najít nastavení vlastností tohoto sešitu. Jak PERSONAL otevřít? Díky.
Excel
- Videokurzy - NEW
- Školení konzultace
- Základy MS Excel
- Soubor - karta
- Domů - karta
- Formát dat
- Vložit
- Grafy - typy, tvorba
- Grafy - úpravy, změny
- Vzorce (Funkce)
- Funkce logické
- Funkce textové
- Funkce vyhledávací
- Funkce statistické
- Funkce matematické
- Funkce datum a čas
- Funkce databáze
- Funkce informace
- Funkce konstrukce
- Funkce nové
- Matice
- Data - karta
- Revize - karta
- Vývojář - karta
- Kontingenční tabulka
- Dashboardy
- Power Query editor
- Power Pivot - View
- VBA Úvod a seznamy
- VBA Teorie základy
- VBA Buňky cell
- VBA Listy sheet
- VBA vzorce funkce
- VBA Práce se soubory
- » Zpracovatelné formáty
- » Existuje soubor - složka
- » Velikost souboru
- » Atributy souboru
- » Vypis cesty k souboru
- » Vypsat adresáře - soubory
- » Je soubor otevřen
- » Otevřít soubor s heslem
- » Otevřít a předat parametr
- » Načíst, import *.csv
- » Uložit (tisk) do *.pdf
- » Uložit jako - SaveAs
- » Smazat soubor
- » Kopírovat a přejmenovat
- » Omezení platnosti sešitu
- » Kdo přistupuje do sešitu
- Zobrazení listu po zadání hesla
- Adresář - vytvořit smazat
- Ulož listy jako samostatné soubory
- FileSystemObject prakticky
- BuiltinDocumentProperties
- VBA Formuláře (UserForm)
- VBA Grafy
- VBA Kontingenční tabulky
- VBA Application
- VBA Pás karet, Menu
- VBA Triky
- VBA praktické příklady kódu
- VBA tahak (cheat sheet)
- Praktické příklady
- Marketing controling finance
- Finanční poradce
- Šablony - Templates
- Testy
- Ostatní
- Obecně o Excelu
- Power BI
- Funkce Google tabulky
- Articles in English
- PowerApps
Sdílejte
|
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
|
LinkedIn... |
Nové články
Kontingenční tabulka přeuspořádání sloupců/řádků
30.03.2022:
LET prakticky - Excel
29.03.2022:
Nové funkce v Excel 03/2022
