'模拟IE查询发票信息生成导入模板 Function GetInformation(fpdm As String, fphm As String) Dim stra, url As String Dim dmt, IE2, IE3 As Object On Error Resume Next Set IE2 = CreateObject("InternetExplorer.Application") url = "http://89.16.22.79:7082/dzdz/mxck/viewZzsfp.action?fpdm=" & fp...