服务器数据导出到excel文件,POST获取服务器返回数据后，如何保存为xls格式的文档，拜求大神帮忙看看，很急很急！...-CSDN博客

Sub 下载EXCEL表格()

Dim str As String

Data1 = "filter=&cBrand=&product=0&inStock=0&search_depot_id=0&b_no_cost=0&noStock=0&"

Data2 = "subCategoryId=2%2C4%2C19%2C20%2C21%2C142%2C22%2C23%2C5%2C24%2C25%2C26%2C6%2C27%2C28%2C29%2C30%2C31%2C32%2C127%2C126%2C133%2C134%2C151%2C67%2C35%2C36%2C37%2C38%2C7%2C39%2C40%2C41%2C148%2C149%2C44%2C8%2C154%2C45%2C51%2C52%2C53%2C54%2C55%2C57%2C135%2C141%2C147%2C58%2C9%2C59%2C60%2C61%2C62%2C63%2C64%2C11%2C65%2C66%2C12%2C68%2C69%2C70%2C71%2C72%2C73%2C75%2C76%2C74%2C13%2C77%2C78%2C79%2C80%2C81%2C143%2C82%2C14%2C83%2C84%2C85%2C86%2C139%2C87%2C15%2C88%2C89%2C90%2C91%2C92%2C93%2C140%2C150%2C94%2C97%2C98%2C99%2C100%2C106%2C18%2C95%2C101%2C102%2C103%2C104%2C105%2C107%2C16%2C17%2C3%2C108%2C112%2C113%2C114%2C115%2C116%2C118%2C119%2C120%2C121%2C117%2C122%2C123%2C124%2C125%2C128%2C129%2C130%2C131%2C132%2C144%2C145%2C146%2C&"

Data3 = "fromatData=%E5%95%86%E5%93%81%E7%BC%96%E7%A0%81%3Ab_c_sku%3Astring%2C%E7%B1%BB%E5%88%AB%3Acategory_name%3Astring%2C%E5%93%81%E7%89%8C%3Ab_c_brand%3Astring%2C%E5%95%86%E5%93%81%E5%90%8D%E7%A7%B0%3Ab_c_name%3Astring%2C%E6%80%BB%E6%95%B0%E9%87%8F%3An_stock%3Aint%2C%E5%8F%AF%E9%94%80%E6%95%B0%3An_able%3Aint%2C%E5%88%86%E5%BA%93%E6%95%B0%3An_stock_depot%3Aint%2C%E5%8D%95%E4%BB%B7%E6%88%90%E6%9C%AC%3Ad_cost%3Adouble%2C%E9%87%91%E9%A2%9D%3Akc_d_amount%3Adouble%2C%E8%B4%A2%E5%8A%A1%E5%BA%93%E5%AD%98%3An_finance%3Aint%2C%E5%90%AB%E7%A8%8E%E6%AF%94%E9%87%8D%3Ad_rate_tax%3Adouble%2C%E5%90%AB%E7%A8%8E%E9%99%90%E4%BB%B7%3Ad_cost_sale_tax%3Adouble%2C%E6%9C%AA%E7%A8%8E%E9%99%90%E4%BB%B7%3Ad_cost_sale_untax%3Adouble%2C%E5%BE%85%E5%85%A5%3An_purchase%3Aint%2C%E5%BE%85%E5%87%BA%3An_sale%3Aint%2C%E7%94%9F%E4%BA%A7%E5%9C"

Data4 = "%A8%E9%80%94%3An_production%3Aint%2C%E5%BE%85%E5%AE%A1%3An_sale_net%3Astring%2C%E8%B0%83%E6%8B%A8%3An_allot%3Aint%2C%E6%8B%86%E8%A3%85%3An_assem%3Aint%2C%E8%B4%A7%E4%BD%8D%3Ac_allocation%3Astring%2C%E9%87%8D%E9%87%8F%3Ad_weight%3Astring%2C%E6%80%A7%E8%B4%A8%3Ad_c_bom_type%3Astring%2C%E6%9D%A5%E6%BA%90%3Ac_display_name%3Astring%2C%E5%8D%95%E4%BD%8D%3Ab_c_unit%3Astring%2C%E4%BE%9B%E8%B4%A7%E5%95%86+%3Acustomer_name%3Astring%2C%E6%9C%80%E5%90%8E%E9%87%87%E8%B4%AD%E6%97%B6%E9%97%B4%3At_last_purchase%3Astring%2C%E5%90%AB%E7%A8%8E%E9%A2%84%E8%AE%A1%3Ad_cost_estimate_tax%3Adouble%2C%E6%9C%AA%E7%A8%8E%E9%A2%84%E8%AE%A1%3Ad_cost_estimate_untax%3Adouble"

With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")

.Open "POST", "http://cqzs.3cerp.com/pages/stock/exportGoodsExtendToExcel.htm", False

.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

.setRequestHeader "Referer", "http://cqzs.3cerp.com/pages/stock/goods_extend_list.jsp? menu_id=tab$70&menu_name=%E5%BA%93%E5%AD%98%E6%9F%A5%E8%AF%A2&helpUrl=&_t=88481&_winid=w8486"

.Send Data1 & Data2 & Data3 & Data4

str = .responsetext

Debug.Print str

End With

End Sub