使用excel webservice从Intranet站点导入数据 [英] Import data from intranet site using excel webservice

问题描述

Hello开发人员，

Hello developers,

我想从Intranet站点将一些数据导入excel。 我需要在日期：2013-01-29上获取美元货币在sheet1上我们的intarnet网站上列出。以下是无法执行任何操作的代码。

I want to import some data into excel from the intranet site.  I need to get USD currency on Date : 2013-01-29 listed on our intarnet site on sheet1 . Below is the code which do not do anything.

Sub GetData（）

    Dim i As Integer

    DIM sURL As String，sHTML As String，sAllPosts As String

    Dim oHttp As Object

    Dim lTopicstart As Long，lTopicend As Long

    Dim blWSExists As Boolean

   

   

     '要打开的网址b $ b    sURL =" http：//linktointranetsite.wsdl ？" b
   

    '创建一个XMLHTTP对象并添加一些错误陷阱

    On Error Resume Next

   设置oHttp = CreateObject（" MSXML2.XMLHTTP"）

   如果Err.Number<> 0然后

       设置oHttp = CreateObject（" MSXML.XMLHTTPRequest"）

        MsgBox"在创建MSXML.XMLHTTPRequest对象时出现错误0"&b $ b   结束如果是
    On Error GoTo 0

   如果oHttp Is Nothing则为
        MsgBox"由于某种原因，我无法制作MSXML2.XMLHTTP对象"&b $ b       退出子

   结束如果是
   

    '在浏览器对象中打开网址

    oHttp.Open"GET"，sURL，False

    oHttp.send

    sHTML = oHttp.responseText

Sub GetData()
    Dim i As Integer
    Dim sURL As String, sHTML As String, sAllPosts As String
    Dim oHttp As Object
    Dim lTopicstart As Long, lTopicend As Long
    Dim blWSExists As Boolean
   
   
     'URL to open
    sURL = "http://linktointranetsite.wsdl?"
   
    ' Create an XMLHTTP object and add some error trapping
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
        MsgBox "Error 0 has occured while creating a MSXML.XMLHTTPRequest object"
    End If
    On Error GoTo 0
    If oHttp Is Nothing Then
        MsgBox "For some reason I wasn't able to make a MSXML2.XMLHTTP object"
        Exit Sub
    End If
   
    'Open the URL in browser object
    oHttp.Open "GET", sURL, False
    oHttp.send
    sHTML = oHttp.responseText

end  sub       

end sub       

推荐答案

Hello Zaveri，

Hello Zaveri,

你是什么意思说"不代码的代码"做任何事情"？你尝试调试代码了吗？

What do you mean saying "the code which do not do anything"? Did you try to debug the code?

您能否更具体一点？

这篇关于使用excel webservice从Intranet站点导入数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！