找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
问题
取消精华
首页精华问答
取消推荐
高端用户推荐
申请置评
已申请置评
修改
修改标签
添加标签
官方认证
取消官方认证
修改标签
添加标签
转移分类
删除
{{itemCategory}}
收藏({{answerDetail.Q_FavoriteCounts}})
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
专家建议
取消最佳答案
修改
可以用VBS脚本来实现,先给你贴一段代码,上全球技术资源搜关键字EXCEL能出来一堆文档可以学习。
也可以看看我这个帖子
VB脚本对打开和关闭的EXCEL文件进行操作(基于博图WINCC)-技术论坛-工业支持中心-西门子中国 http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1684050&b_id=5&s_id=17&num=0#anch
Dim filename,pathname
filename=CStr(Year(Now)) & "年" & CStr(Month(Now)) & "月" & CStr(Day(Now)) & "日"
pathname="C:\Users\DELL\Desktop\" & filename & ".xlsx"
Dim fso,myfile ''''''''定义文件对象及文件名变量
Set fso = CreateObject("scripting.FileSystemObject") ''''''''调用文件系统控件
Set myfile = fso.GetFile(pathname) ''''''''尝试按路径寻找文件
Dim ObjExcelApp ''''''''定义excel操作对象
Set ObjExcelApp = GetObject(, "Excel.Application") ''''''''判断是否有工作表打开
Set ObjExcelApp = CreateObject("Excel.Application")
ObjExcelApp.Workbooks.Open myfile
SmartTags("编号")=ObjExcelApp.worksheets ("sheet1").Cells(SmartTags("编号")+1, 1).VAlue
ObjExcelApp.ActiveWorkbook.Save ''''''''保存表格
ObjExcelApp.Workbooks.Close ''''''''关闭表格
ObjExcelApp.Quit
等您来回答
换一换
{{item.CoinValue}}西币
{{item.VisitNum}}人想问
本版相关问题
换一换
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!

西门子商城