Příspěvky uživatele
< návrat zpět
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. Marek
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
No ještě jsem přemýšlel jak na to a možná by bylo fajn ty všechny jednotlivé období (je jich 11) tahat přímo z MSSQL, ale to už je nad mé znalosti.
Zdravím, v příloze zasílám vzorový příklad. Mám jeden průřez, kde tahám datum z MSSQL a vedle mám obyčejnou tabulku, kde mám různé období. Jde mi o to, že když kliknu na nějaké období např. vybraný řádek, tak, aby se mi toto období označilo v průřezu.
Děkuju za pomoc. MArek
děkuju. Zkusím to a uvidím. Marek
Ahoj,
mám SQl databázi, ze které čerpám data do KT. Aktualizuju je v excelu po spuštění souboru, co 5 min a nebo ručně pomocí tlačítka. Chci se zeptat zda existuje něco co by mi udělalo toto: při změně hodnoty v SQL databázi by se automaticky změnila hodnota v KT v excelu.
Děkuju MArek
Ahoj, děkuju moc za pomoc. Ať se ti to mnohokrát vrátí. Funguje to bezvadně. Marek
Ahoj..tak už jsem přišel na i ukládání souboru do TEMP. Prosím jen tedy o integraci tohoto kódu do mého což je asi nad mé síly. Děkuju.
Private Declare Function URLDownloadToFile Lib "URLMON" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub DownLoad_Image_2()
Dim WebName As String, MyName As String, pzcx As Long, s As String
WebName = "http://1.2.3.6:8080/PumpaServer/get_doc.pl?doc_id=11111"
MyName = Environ("temp") & "\MyFoto.jpg"
pzcx = URLDownloadToFile(0, WebName, MyName, 0, 0)
If Not pzcx Then
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & MyName
Else
MsgBox "CHYBA " & pzcx, , "DownLoad_Image"
End If
End Sub
Tak jsem ještě koumal a nejjednodušší by bylo uložit obrázek do TEMP, mám to ve windows jako proměnou. A tvůj kód napasovat na můj. Předem díky za pomoc. Marek
Ahoj Tvůj kód funguje v pohodě i položky jako print atd. jsou dostupné. Jen nevím jak ho zapasovat do mého kódu a ještě udělat to, aby se soubor smazal po otevření ve vieweru. Děkuju za pomoc. MArek
Jelikož se jedná o dočasný soubor, mohl by se po zobrazení smazat ?
Ahoj, tím to směrem jsem se začal ubírat nejdříve stáhnout a potom otevřít, ale narazil jsem s tím jak to zakomponovat do mého kódu. Používám jej tak že v buňkách mám 8 místné číslo ( např. 12345678) u kterého smažu poslední dvě s = Left(Target, Len(Target) - 2) a toto šesti místné číslo (123456) dosadím http://8.6.3.5:8080/PumpaServer/get_doc.pl?doc_id=123456" a otevřu.
Věděl by si jak na to?
Děkuju.
možná je to tím, že je soubor zamčený. Našel jsem kod který to řeší, ale nevím jak ho zapasovat do mého stávajícího kodu.
Code :Private Sub B_ViewFull_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_ViewFull.Click
Dim fi As New System.IO.FileInfo(PathOfFile)
fi.Attributes = IO.FileAttributes.Normal
'following starts Windows Photo and Fax Viewer
Process.Start("C:\windows\system32\rundll32.exe", "C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & PathOfFile)
End Sub
Zdravím všechny,
už jsem dal dohromady zobrazování obrázků v "Prohlížeči fotografií" po kliknutí na buňku v excelu. Ale objevil se mi problém s tím, že obrázek nelze vytisknout, protože některá políčka viz příloha jsou zašedlé.
Může mi s tím někdo pomoct?
Děkuju MArek
Kód je:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Path As String, s As String
'první část odkazu
Path = "http://8.6.3.5:8080/PumpaServer/get_doc.pl?doc_id="
If Not Intersect(Target, Range("J12:J100")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Len(Target) > 0 Then
'druhá část odkazu
s = Left(Target, Len(Target) - 2)
'otevrit odkaz
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Path & s
End If
End If
End Sub
Děkuju za pomoc. Výsledný kód je:
Toto:
ActiveWorkbook.FollowHyperlink Path & s
nahradit:
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Path & s
Pěkný den
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články