MS Excel

Ahoj všichni,

měl bych ještě jeden dotaz, mám v excelu KT tabulky a ty tabulky jsou napojeny na server. Při otevření excel souboru a potom každých 5 min. probíhá aktualizace těchto tabulek. Jak by šlo vyřešit to, že pokud by server nebyl dostupný tak by se objevila uživateli hláška MSGbox o tom, že server není dostupný a bylo by tam tlačítko Ok a opakovat. Děkuju

V ThisWorkbook mám napsáno :

Private Sub Workbook_Open()

Module33.Aktualizace_KT
Module34.Aktualizace_KT_easy
Module32.GroundHogDay

End Sub

Zaslat odpověď >

Hav-Ran(22.9.2015 4:07)#026991

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

Marekkoc(22.9.2015 6:59)#026993

Ahoj, připojuju se přímo k MSSQL na serveru odkud čerpám data z tabulky. Takže soubor tam není je tam MSsql server. Předem díky. Marekcitovat

Marekkoc(22.9.2015 12:58)#027011

MSSQL Server je na Adin\MSSQL a tabulka se jmenuje Zirtec.citovat

Marekkoc(22.9.2015 12:59)#027012

Jo a server je v místní síti.citovat

Téma: Msgbox zda je nebo není dostupný server

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje