Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #42427 szőröscica addikt
    Új Válasz #42427
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    szőröscica

    addikt

    Sziasztok!

    Lenne egy makro hibam, ami csak egyetlen szamitogepen jelentkezik, es keptelen vagyok rajonni, hogy hol akadunk el vele:


    Private Sub download_template(saveto, URL)

    'Construct multipart/form-data string
    xmlString = ""
    xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""USERNAME""" & vbNewLine & vbNewLine & username & vbNewLine
    xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""PASSWORD""" & vbNewLine & vbNewLine & password & vbNewLine
    xmlString = xmlString & "--" & boundary & "--"

    'Create objects, set variables (response is binary)
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    Set mStream = CreateObject("ADODB.Stream")
    If mStream.State = adStateClosed Then
    mStream.Open
    End If
    mStream.Type = adTypeBinary
    mStream.Position = 0
    mStream.SetEOS

    With objXMLHTTP
    .Open "POST", URL, False
    .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
    .send (xmlString) 'Your multipart post URL
    mStream.Write objXMLHTTP.responseBody
    mStream.SaveToFile saveto, adSaveCreateOverWrite
    mStream.Close

    Set mStream = Nothing
    End With

    End Sub

    A .send (xmlString) reszen fut hibara, Run-time error '-2146697208 (800c0008)':
    The download of the specified resource has failed hibauzenettel.

    Amit megprobaltam, az az, hogy a Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") reszt atirtam Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")-ra, de nem segitetet, ugyanott szallt el.

    A projekthez szukseges reference libraryk be vannak kapcsolva, hisz maskepp a tobbi szamitogepen sem mukodnenek. Lattok barmi egyertelmu hibat a kodban, ami ezt okozhatja? Vagy valami gaz van a szamitogeppel? Lehet serult valami fajl?

    Koszi a tippeket.

    Udv,
    Balazs

Új hozzászólás Aktív témák