VBS脚本：自动记录每日学习情况到Excel表格

' 创建Excel对象 Set objExcel = CreateObject("Excel.Application") ' 打开Excel文件 Set objWorkbook = objExcel.Workbooks.Open('C:\路径\文件名.xlsx') ' 选择工作表 Set objWorksheet = objWorkbook.Worksheets('工作表名称')

' 获取当前日期 today = Date()

' 检查表格中是否已有今天的记录 found = False For Each cell In objWorksheet.Range("A:A") If cell.Value = today Then found = True Exit For End If Next

' 如果已有记录，则更新学习情况 If found Then answer = MsgBox("已有记录，是否更新学习情况？", vbYesNo, "提示") ' 如果点击"是"，则更新学习情况 If answer = vbYes Then ' 在B列中找到对应的日期单元格 Set dateCell = objWorksheet.Range("A:A").Find(today) ' 在C列中输入学习情况（这里仅示例为"是"） dateCell.Offset(0, 1).Value = "是" MsgBox "学习情况已更新" End If ' 如果没有记录，则添加新记录 Else ' 在A列末尾添加新日期 lastRow = objWorksheet.Cells(objWorksheet.Rows.Count, "A").End(-4162).Row objWorksheet.Cells(lastRow + 1, "A").Value = today ' 在B列中输入学习情况（这里仅示例为"是"） objWorksheet.Cells(lastRow + 1, "B").Value = "是" MsgBox "学习情况已记录" End If

' 保存并关闭Excel文件 objWorkbook.Save objWorkbook.Close objExcel.Quit

请将上述代码中的'C:\路径\文件名.xlsx'替换为实际的Excel文件路径和名称，将'工作表名称'替换为实际的工作表名称。如果需要修改学习情况的内容，请将代码中的'是'替换为实际需要的内容。