回复：vba项目承接

顶吧主一个！

还不如用delphi自己编一个。更好更快便于系统升级。

可以交个朋友吗？请到 www.brsbox.com/vba8 看看我的VBA软件。

     Dim node As IXMLDOMNode
     On Error GoTo IGCTMObjectFactoryTrap
     Set node = par_WSMLNode.Attributes.getNamedItem("targetClassName")
     Set IGCTMObjectFactory_CreateObject = Nothing
     If Not (node Is Nothing) Then
         Select Case node.nodeValue
             Case "struct_RealTimeLotInfo"
                 Set IGCTMObjectFactory_CreateObject = New struct_RealTimeLotInfo
         End Select
     End If
Exit Function
IGCTMObjectFactoryTrap:
     Err.Raise Err.Number, "clsof_Factory_LotDetailServ", Err.Description
End Function
3. clsws_LotDetailService
'*****************************************************************
'This class was created by the Microsoft Office 2003 Web Services Toolkit.
'
'Created: 6/29/2010 09:58:27 AM
'
'Description:
'This class is a Visual Basic for Applications class representation of the Web service
'as defined by http://ssgpmes03/RealTimeLotInfo_WS/LotInfoService.asmx?WSDL.
'
'To Use:
'Dimension a variable as new clsws_LotDetailService, and then write code to
'use the methods provided by the class.
'Example:
' Dim ExampleVar as New clsws_LotDetailService
' debug.print ExampleVar.wsm_GetRealTimeLotInfo("Sample Input")
'
'For more information, see Complex Types in Microsoft Office 2003
'Web Services Toolkit Help.
'
'Changes to the code in this class may result in incorrect behavior.
'
'*****************************************************************
'Dimensioning private class variables.
Private sc_LotDetailService As SoapClient30
Private Const c_WSDL_URL As String = "http://ssgpmes03/RealTimeLotInfo_WS/LotInfoService.asmx?WSDL"
Private Const c_SERVICE As String = "LotDetailService"
Private Const c_PORT As String = "LotDetailServiceSoap"
Private Const c_SERVICE_NAMESPACE As String = "http://lotdetailservice/"
Private Sub Class_Initialize()
     '*****************************************************************
     'This subroutine will be called each time the class is instantiated.
     'Creates sc_ComplexTypes as new SoapClient30, and then
     'initializes sc_ComplexTypes.mssoapinit2 with WSDL file found in
     'http://ssgpmes03/RealTimeLotInfo_WS/LotInfoService.asmx?WSDL.


     '*****************************************************************
     Dim str_WSML As String
     str_WSML = "<servicemapping>"
     str_WSML = str_WSML & "<service name='LotDetailService'>"
     str_WSML = str_WSML & "<using PROGID='MSOSOAP.GenericCustomTypeMapper30' cachable='0' ID='GCTM'/>"
     str_WSML = str_WSML & "<types>"
     str_WSML = str_WSML & "<type name='RealTimeLotInfo' targetNamespace='http://lotdetailservice'/ uses='GCTM' targetClassName='struct_RealTimeLotInfo'/>"
     str_WSML = str_WSML & "</types>"
     str_WSML = str_WSML & "</service>"
     str_WSML = str_WSML & "</servicemapping>"
     Set sc_LotDetailService = New SoapClient30
     sc_LotDetailService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
     'Use the proxy server defined in Internet Explorer's LAN settings by
     'setting ProxyServer to <CURRENT_USER>
     sc_LotDetailService.ConnectorProperty("ProxyServer") = "<CURRENT_USER>"
     'Autodetect proxy settings if Internet Explorer is set to autodetect
     'by setting EnableAutoProxy to True
     sc_LotDetailService.ConnectorProperty("EnableAutoProxy") = True
     Set sc_LotDetailService.ClientProperty("GCTMObjectFactory") = New clsof_Factory_LotDetailServ
End Sub
Private Sub Class_Terminate()
     '*****************************************************************
     'This subroutine will be called each time the class is destructed.
     'Sets sc_ComplexTypes to Nothing.
     '*****************************************************************
     'Error Trap
     On Error GoTo Class_TerminateTrap
     Set sc_LotDetailService = Nothing
Exit Sub
Class_TerminateTrap:
     LotDetailServiceErrorHandler ("Class_Terminate")
End Sub
Private Sub LotDetailServiceErrorHandler(str_Function As String)
     '*****************************************************************
     'This subroutine is the class error handler. It can be called from any class subroutine or function
     'when that subroutine or function encounters an error. Then, it will raise the error along with the


如何用VBA 将Excel中的数据发布到web 服务器上，供各个地方的人访问？