如何把系统数据调入excel？
本帖最后由 帅气的卡卡西 于 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>
本帖最后由 pzx521521 于 2022-6-9 15:24 编辑
只有ie支持
<html>
<script language="VBScript">
用ie 打开html即可
或者8L的手导
最简单是的是
右键另存为后缀名改为.xls
有个chrome扩展 可以把网页的表格数据导出成xls格式的 ，可以用excel打开 cutthesoul 发表于 2022-6-8 23:07
有个chrome扩展可以把网页的数据导出成xls格式的话 excel可以打开
请问是什么拓展 帅气的卡卡西 发表于 2022-6-8 23:07
请问是什么拓展
网页表格导出为 Excel 表格
上面是扩展名字，chrome商店里就可以搜到 不过你得用梯子 帅气的卡卡西 发表于 2022-6-8 23:07
请问是什么拓展
网页表格导出为 Excel 表格
上面是扩展名字，chrome商店里就可以搜到 谢谢分享 本帖最后由 cxx313120919 于 2022-6-9 11:47 编辑
不写代码 可以直接 把数据保存到 txt
然后
然后 编码 选择 无
页:
[1]