MS Excel

Dobrý den,

mám vytvořený Excel sešit, ve kterém pomocí makra (tlačítko1) otevírám jiný sešit a chtěl bych napsat do kódu podmínku, která by při kliknutí na tlačítko1 nejdříve ověřila, jestli není otevíraný sešit již otevřený.

Pokud ne --> tak sešit otevřít,
Pokud ano --> přejít do již otevřeného sešitu.

Je vůbec možné něco takového napsat přes VBA? Pokud ano, neposkytl by mi někdo kód, který by toto řešil?

Děkuji mnohokrát za případné rady

Zaslat odpověď >

elninoslov(18.5.2020 11:39)#046643

2 príklady, je to úplne jednoduché:
Sub Makro1()
Dim Zosit As String, Cesta As String

Cesta = "D:\Download\"
Zosit = "Príklad KT.xlsx"
On Error Resume Next
Workbooks(Zosit).Activate
If Err.Number <> 0 Then Workbooks.Open Cesta & Zosit
On Error GoTo 0

'práca s daným zošitom ActiveWorkbook
End Sub

Sub Makro2()
Dim WB As Workbook, Zosit As String, Cesta As String

Cesta = "D:\Download\"
Zosit = "Príklad KT.xlsx"
On Error Resume Next
Set WB = Workbooks(Zosit)
On Error GoTo 0
If WB Is Nothing Then Set WB = Workbooks.Open(Cesta & Zosit)

With WB
.Activate 'Activate nieje potrebné na bežné veci. Stačí sa odkazovať na WB alebo použiť with s bodkovou notáciou
'práca s daným zošitom
End With
End Subcitovat

Poseidon(18.5.2020 13:03)#046644

Mnohokrát Vám děkuji za pomoc. Funguje přesně podle mých představ

citovat

elninoslov(19.5.2020 0:23)#046646

Ešte by som tam prípadne doplnil kontrolu, či ten otvorený súbor má správnu cestu. Ľahko sa môže stať, že otvorený súbor bude iný, napr. záložnom adresári, či napr. minulomesačný súhrn, ... len sa bude volať rovnako. Možností ako to spliesť je veľa. Pre istotu. Treba na to myslieť, lebo operácie makrom nemajú Undo.
Sub Makro2()
Dim WB As Workbook, Zosit As String, Cesta As String

Cesta = "D:\Download\"
Zosit = "Príklad KT.xlsx"
On Error Resume Next
Set WB = Workbooks(Zosit)
On Error GoTo 0
If WB Is Nothing Then
Set WB = Workbooks.Open(Cesta & Zosit)
Else
If WB.Path & "\" <> Cesta Then
MsgBox "Je otvorený nesprávny súbor" & vbNewLine & WB.Path & "\" & Zosit & vbNewLine & vbNewLine & _
"Použite správny súbor" & vbNewLine & Cesta & Zosit, vbCritical
Exit Sub
End If
End If

With WB
.Activate 'Activate nieje potrebné na bežné veci. Stačí sa odkazovať na WB alebo použiť with s bodkovou notáciou
'práca s daným zošitom
End With
End Subcitovat

Poseidon(21.5.2020 15:05)#046671

Dobrý den, děkuji za odpověď. Zkouším tuto kontrolu do svého kódu dostat, ale dostávám compile error Else without If - v mém případě ani nepotřebuji žádnou chybovou hlášku, stačí mi, že pokud jméno a adresář souboru neexistuje (nebo je jiný), tak aby makro v tu chvíli skončilo. Kód mám napsaný takto:

Sub CustomWorkbook6()
Dim CWB6 As Workbook
'CustomWorkbook
Dim CFN6 As String
'Full Name of the file including file extension (e.g. .xlsm)
Dim CFP6 As String
'Full Path to the file including "\" in the end.
CFN6 = Sheets("MasterData").Range("BF20").Value
CFP6 = Sheets("MasterData").Range("BE20").Value
On Error Resume Next
Set CWB6 = Workbooks(CFN6)
On Error GoTo 0
If CWB6 Is Nothing Then Set CWB6 = Workbooks.Open(CFP6 & CFN6)
Else
If CWB6.Path <> CFP6 Then
Exit Sub
End If
End If
With CWB6
.Activate
End With
End Subcitovat

elninoslov(21.5.2020 15:14)#046672

Pozor si dajte If - Then - Else - End If
Ak pokračujete kódom hneď za Then v tom istom riadku, nemôžete potom pridať poď to Else ani End If.
Proste ak píšete do riadku, tak všetko, ak pod seba tak všetko.
Váš kód netestujem, len úprav aod pohľadu z brucha :)
Sub CustomWorkbook6()
Dim CWB6 As Workbook
'CustomWorkbook
Dim CFN6 As String
'Full Name of the file including file extension (e.g. .xlsm)
Dim CFP6 As String
'Full Path to the file including "\" in the end.
CFN6 = Sheets("MasterData").Range("BF20").Value
CFP6 = Sheets("MasterData").Range("BE20").Value
On Error Resume Next
Set CWB6 = Workbooks(CFN6)
On Error GoTo 0
If CWB6 Is Nothing Then Set CWB6 = Workbooks.Open(CFP6 & CFN6)
If CWB6.Path <> CFP6 Then Exit Sub
With CWB6
.Activate
End With
End Subcitovat

Poseidon(21.5.2020 15:35)#046673

Ano, máte pravdu, to byl nejspíše ten problém. Děkuji za pomoc

citovat

elninoslov(21.5.2020 17:30)#046674

Aj tak tam ale vidím problém v kontrole správnosti cesty práve otvoreného súboru:
If CWB6.Path <> CFP6 Then
V komentári máte, že CFP6 je aj s "\" na konci (aj musí kvôli Open), no CWB6.Path vráti cestu bez "\", teda sa to rovnať nikdy nebude. Preto použite
If CWB6.Path & "\" <> CFP6 Then
alebo
If CWB6.FullName <> CFP6 & CFN6 Thencitovat

Téma: Kontrola, zda je již soubor otevřený

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje