VBS脚本，将工作表名称动态化为当前月份

以下是优化后的VBS脚本，将工作表名称动态化为当前月份：

```vbscript

Set excelApp = CreateObject("Excel.Application")

Set workbook = excelApp.Workbooks.Open(CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(excelFile))

' 获取当前月份（数字形式，如7、8等）

Dim currentMonth

currentMonth = Month(Date())

' 动态生成工作表名称（如"7月投产"、"8月投产"）

Set sheet = workbook.Sheets(CStr(currentMonth) & "月投产")

```

优化说明：

1. 动态月份获取

使用 `Month(Date())` 获取当前系统月份（1-12），通过 `CStr()` 转换为字符串，拼接成 `月份 + "月投产"` 的格式。

2. 兼容性处理

- 若工作表名称为中文月份（如“七月投产”），可替换为：

``` ```vbscript

Dim monthNames

monthNames = Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月")

Set sheet = workbook.Sheets(monthNames(currentMonth - 1) & "投产")

```

- 若需支持两位数月份（如“10月投产”），无需额外处理，`CStr(currentMonth)` 会自动保留数字格式。

3. 错误处理建议

可添加以下代码防止工作表不存在时报错：

``` ```vbscript

On Error Resume Next

Set sheet = workbook.Sheets(CStr(currentMonth) & "月投产")

If sheet Is Nothing Then

MsgBox "未找到对应月份的工作表：" & CStr(currentMonth) & "月投产"

' 可添加退出或重试逻辑

End If

On Error GoTo 0

注意事项：

- 确保工作簿中存在与当前月份匹配的工作表（如7月对应“7月投产”）。

- 若需隐藏Excel窗口，可添加 `excelApp.Visible = False`。