Set BAPICox = CreateObject("SAP.BAPI.1")
Set objBAPI = BAPICox.GetSAPObject("GoodsMovement")
Set oGoodsmvtCode = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtCode")
Set oGoodsmvtHeader = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtHeader")
Set oGoodsmvtItem = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtItem")
Set wReturn = BAPICox.DimAs(objBAPI, "CreateFromData", "Return")

oGoodsmvtCode.Value("GM_CODE") = "04"
oGoodsmvtHeader.Value("HEADER_TXT") = "Testing for TAS"
oGoodsmvtHeader.Value("REF_DOC_NO") = "MO00001"
'Item
oGoodsmvtItem.Rows.Add
oGoodsmvtItem.Value(nCount, "MATERIAL") = "SC2-201-01115S"
oGoodsmvtItem.Value(nCount, "PLANT") = "SCA1"
oGoodsmvtItem.Value(nCount, "STGE_LOC") = "L001"
oGoodsmvtItem.Value(nCount, "MOVE_TYPE") = "311"

oGoodsmvtItem.Value(nCount, "ENTRY_QNT") = 12
oGoodsmvtItem.Value(nCount, "MOVE_STLOC") = "LW01"
Call objBAPI.CreateFromData(oGoodsmvtCode, oGoodsmvtHeader,oGoodsmvtItem,oGoodsmvtHeadret,wReturn)

strSAPDoc = objBAPI.MaterialDocument
strReturn = objBAPI.MatDocumentYear
//VB调用SAP BAPI时如何获取和解析BAPI的table对象?
//objBAPI.getTables 或者objBAPI.tables