• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Chybajuci script v subore po downloade cez VBA

Zaslal/a nordscan 8.2.2019 11:53

Zdravim
Riesim autoupdate excel suboru.

VBA scriptom v exceli stahujem z webu dalsi xslm subor
Vsetko ide ok, vsade je vsetko
ale v novom subore my chyba script ktory je ulozeny v Microsoft excel objects > This Workbook

niekto nejaky napad, kde mam chybu.
vdaka
Rasto

na stahovanie pouzivam toto:

Private Sub DownloadUpdate()
Dim myURL As Variant
myURL = "http://xxxxx.sk/Obj_1.02.xlsm"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile ThisWorkbook.path & "\" & "Obj_1.02.xlsm", 2 ' 1 = no overwrite, 2 = overVerwrite
oStream.Close
MsgBox ("Download úspešný")
End If
End Sub

Zaslat odpověď >

---

nordscan(8.2.2019 12:02)#042700

Tak nakoniec pomohlo vymenit
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
za
Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP")citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse