admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：using namespace std是c语言吗)

Option Explicit

Function action

On Error Resume Next

Dim objExcelApp,oWorkBook,fs,iBlankLine

Set objExcelApp = GetObject(,"ation")

If VarType(objExcelApp)<>vbEmpty Then

Set oWorkBook = ("d:每小时记录.xls")

iBlankLine = (1).Columns(1).Find("").Row

(1).Cells(iBlanKLine,

Now()'("date").Read

(1).Cells(iBlanKLine,

("@CurrentUser").Read

(1).Cells(iBlanKLine,

("Formula_Name_Plc").Read

(1).Cells(iBlanKLine,

("Record2_1").Read

(1).Cells(iBlanKLine,

1).Value

2).Value

3).Value

4).Value

5).Value

=

=

=

=

=


本文标签： 记录 小时

版权声明：本文标题：WINCCVB脚本写变量到EXCEL 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711527358a598420.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。