如何把系统数据调入excel？

帅气的卡卡西 · 发表于 2022-6-8 21:15

本帖最后由帅气的卡卡西于 2022-6-8 21:17 编辑

公司的销售管理系统是用java写的，我看其他同时在导出数据时会弹出一个浏览器页面，然后就自动打开了excel并导入到里面，而我的电脑只是弹出了一个页面，并没有打开excel，弹出的页面源代码是这样的，希望有大佬帮我看一下，通过http://39.108.93.80:8085/xe/FQ-Query2.service?SESSIONIDSTR=969DD8714238CC298B4EE2799556B9E9&ViewID=0可以打开我需要的数据，但无法导入excel里，希望有大佬帮我看一下，

<html>
<script language="VBScript">
window.resizeTo 0,0
set Excel = CreateObject("Excel.Application")
Excel.Visible = true
Excel.WorkBooks.Add("http://39.108.93.80:8085/xe/templates/default.xlt")

version = CDbl(Excel.Version)

With Excel.ActiveSheet.QueryTables.Add("TEXT;http://39.108.93.80:8085/xe/FQ-Query2.service?SESSIONIDSTR=969DD8714238CC298B4EE2799556B9E9&ViewID=0", Excel.ActiveSheet.Cells(1,1))
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = 1
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
      If Version<10 then
      .TextFilePlatform = 2
      else
      .TextFilePlatform = 936
      end if
      .TextFileStartRow = 1
      .TextFileParseType = 1
      .TextFileTextQualifier = 1
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = True
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = False
      .TextFileSpaceDelimiter = False
      .TextFileColumnDataTypes = Array(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)
      .Refresh
End With
With Excel.ActiveSheet
.Range("A1:AJ2").Style = "TableCell"

End With
window.close

</script>
</html>