摘要： 继续昨天的存盘以及后台运行的EXCEL文件内容，今天需要打开excel文件。并显示打开文件的对话框，然后选择EXCEL文件。 Dim objDialog Dim strLoadFile Dim xlApp Dim xlBook Dim xlSheet Set objDialog = CreateOb 阅读全文

摘要： 有很多都是来自昨天的博客，是昨天的一个延续！今天把白班和晚班的记录并生成文件做出来了！生成速度比较快！不会卡死！ Dim dboname,ALLSUM,dbodemo,filename,logging_date,logging_YYYY,logging_MM,logging_DD,logging_h 阅读全文

摘要： 今天下午需要在wincc里查询sql数据，并把数据显示到EXCEL中，由于for循环太慢。所以一直在寻找一个快速方法今天终于被找到了！ Dim dboname dboname=HMIRuntime.Tags("dbolistname").Read Dim batch_weight,bibp_weig 阅读全文