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

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中，我有前一天的日期。我想将其更新到当前日期，然后将exalc全部保留（Ctr Alt F9）。任何帮助将不胜感激。

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

Answer 1

在ThisWorkbook中试试这个： 使用ALT + F11打开VBA编辑器。 双击项目窗口左侧的Thisworkbook。 复制粘贴并另存为xlsm工作簿（宏激活的工作簿）

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

现在每次打开工作簿时，它都会将A1中的日期更改为今天的日期