自动打开工作表，更改单元格，重新计算

Question

我有几张工作表，我想在早上打开（使用批处理文件打开Excel工作表并保留窗口的前一个位置和大小）。例如，这里是打开其中一个表单的代码（稍后我会将其应用于其他表单）。

这里是我的VBS脚本代码：

'FILENAME: OpenSheets.vbs 
Set Shell = WScript.CreateObject("WScript.Shell") 
Shell.Run "C:\Users\xyz\Desktop\test.xlsm", 4, False 

这里是我的CMD代码：

@echo off 
cscript OpenSheets.vbs 
cd C:\Users\xyz\Desktop\test 
run 

在工作表Sheet1工作簿，在单元格A1，我前一天的日期。我想更新到当前的日期，然后有excel全部重新计算（Ctr Alt F9）。任何帮助，将不胜感激。

在perl中这样做会更容易吗？

Answer 1

在ThisWorkbook中试试这个： 使用ALT + F11打开VBA编辑器。 在左侧的项目窗口中双击此工作簿。 复制粘贴，保存为XLSM工作簿（macroactivated工作簿）

Private Sub Workbook_Open() 
    sheets(1).Range("A1").Value = Int(Now()) 
End Sub 

现在每个工作簿打开它会改变在A1的日期到今天的日期