Predpokladám že "server" je miesto, kde je uložeý súbor z ktorého sa aktualizuje. Potom napr. je možné to zistiť takto:(a prípadne ho otvoriť, ale to už KT nepotrebuje, hoci ťahanie dát by bolo rýchlejšie)
Dim FName As String
FName = "F:\Excelland\ZistiCiJeUrcitySuborOtvoreny_is_open.xls" 'toto je náhodné meno súboru
If Dir(FName) = "" Then
MsgBox FName & " súbor nie je k dispozícii "
Else
Workbooks.Open Filename:=FName, updateLinks:=False
End Ifcitovat
Dim FName As String
FName = "F:\Excelland\ZistiCiJeUrcitySuborOtvoreny_is_open.xls" 'toto je náhodné meno súboru
If Dir(FName) = "" Then
MsgBox FName & " súbor nie je k dispozícii "
Else
Workbooks.Open Filename:=FName, updateLinks:=False
End Ifcitovat
RSS nejnovější články