我想把日期定义成excel报表的行，（例如今天10日就把数据写到第十行，明天11日把数据写到第11行) 自动保存，每个月记录一次，随时可以查询当月以前的数据，
怎样编写，请多赐教
2013.3.10 11 20
2013.3.11 11 21
2013.3.12 11 22
最佳答案
你这是做月报表吧？每天生成一个记录
Dim pExcel,sj
Dim shijian ,wendu,yali,liuliang
Dim i,FileName
Dim filena,fso
sj=Date()
shijian=Time
shijian=Mid(shijian,1,8)
FileName="d:\"&sj&".xls"
Set pExcel = CreateObject("Excel.Application")
Set fso = CreateObject("s cripting.FileSystemObject")
pExcel.Visible = 0
If fso.FileExists(FileName)=False Then
pExcel.Workbooks.Open"D:\book1.xls"
pExcel.ActiveWorkbook.SaveAs FileName
End If
pExcel.Workbooks.Open FileName
i=i+1
i=pExcel.WorkSheets("sheet1").Columns(1).Find("").Row
pExcel.worksheets ("sheet1").Cells(i, 1).VAlue =shijian
pExcel.worksheets ("sheet1").Cells(i, 2).VAlue = HMIRuntime.Tags("wendu").read
pExcel.worksheets ("sheet1").Cells(i, 3).VAlue = HMIRuntime.Tags("yali").read
pExcel.worksheets ("sheet1").Cells(i, 4).VAlue = HMIRuntime.Tags("liuliang").read
pExcel.ActiveWorkbook.Save()
pExcel.Workbooks.Close()
pExcel.Quit()
看这个。时间你可以自己定义数据格式。比如shijian=cstr(year(now))&"."&cstr(month(now))&"."&cstr(day(now))&" "&cstr(hour(now))&" "&cstr(minute(now)),这样shijian这个变量的值就是你要求的样子了。
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc251533.html
微信扫一扫 
支付宝扫一扫 