我要把我的WincC数据读到excel表格中查询，按日期、批号、品名（字符串）、产量的格式，每天在excel表格中自动保存一个sheet，只保存最新3个月数据，之前的自动删除。请问VBS脚本怎么写。寻求帮助，非常感谢！
最佳答案
Dim ExcelApp
Dim ExcelBook
Dim ExcelSheet
Dim i ''用于检查哪一行未写入数据
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\tmpProj\Model.xlsx") Then
''模板文件存在
If fso.FileExists("C:\tmpProj\1.xlsx") Then
''今天生成的文件存在
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\tmpProj\1.xlsx")
Set ExcelSheet = ExcelBook.Sheets.Item("Sheet1")
''判断第几行为空
i = 2 ''起始行为2
Do While ExcelSheet.Cells(i,2).Value <> ""
i = i + 1
Loop
ExcelSheet.Cells(i, 2).Value = SmartTags("VarUnsigned8")
ExcelBook.Save
ExcelBook.Close
ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing
Else
''今天生成的文件不存在
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\tmpProj\Model.xlsx")
Set ExcelSheet = ExcelBook.Sheets.Item("Sheet1")
ExcelSheet.Cells(2, 2).Value = SmartTags("VarUnsigned8")
ExcelBook.Saveas "C:\tmpProj\1.xlsx"
ExcelBook.Close
ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing
End If
Else
''模板文件不存在
MsgBox "模板文件不存在！"
End If
提问者对于答案的评价：
xiexie
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc173215.html
微信扫一扫 
支付宝扫一扫 