用java实现一个调用excel文件的接口函数,并自动回填excel结果 50
用java实现,已知一个excel本地文件地址,excel文件中包含id,name,和result;result的结构包含true和false;通过另一个程序的执行结果r...
用java实现,已知一个excel本地文件地址,excel文件中包含id,name,和result;result的结构包含true和false;通过另一个程序的执行结果result访问excel地址,调用excel接口函数,并将result结果回填到excel的result中,通过excel的id对应,自动回填excel的结果
;;;给出详细的代码,并给出详细的解释,谢谢
SetoArgs = WScript.Arguments ForEachs InoArgs MsgBox(s) NextSetoArgs = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)
set WshShell = WScript.CreateObject("WScript.Shell")
strFolder = "d:\1\"
Do Until objFile.AtEndOfStream
makelink RePlace(objFile.ReadLine,"""","")
Loop
objFile.Close
Sub makelink(filename)
Set f = objFSO.GetFile(filename) '似乎没有必要
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = f '此处直接用filename即可
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
End Sub 展开
;;;给出详细的代码,并给出详细的解释,谢谢
SetoArgs = WScript.Arguments ForEachs InoArgs MsgBox(s) NextSetoArgs = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)
set WshShell = WScript.CreateObject("WScript.Shell")
strFolder = "d:\1\"
Do Until objFile.AtEndOfStream
makelink RePlace(objFile.ReadLine,"""","")
Loop
objFile.Close
Sub makelink(filename)
Set f = objFSO.GetFile(filename) '似乎没有必要
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = f '此处直接用filename即可
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
End Sub 展开
4个回答
展开全部
有纯java实现的,工具为jxl、poi
有java和插件结合的,比如weboffice,soaoffice等等
有java和插件结合的,比如weboffice,soaoffice等等
更多追问追答
追问
其实我之前也是这样想的,用poi,也用过domj4,,,可是我想错了,获取一个本地文件的路径地址,将其内容存入数组,另一个文件也是通过文件路径将内容存入数组,然后调用上一个数组的内容,通过相同的id列,将上一个数组中的result列结果回填到第二个文件的result列中,。。。。大概描述这样的,可我有点晕了,你可以帮我搞搞代码吗
追答
你只是数组中的数据改到数组中了,并没有去改写文件呀。。。。。
展开全部
首先输入一个'号,再输入你要输入的内容即可;或者通过剪贴板粘贴上去也可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
好
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询