打开，保存并closures任何文件

我正在写一个简单的macros将打开，保存和closures一个Excel文件说myworkbook.xlsx，但我无法做到这一点。 我的文件myworkbook.xlsx在位置：

C:\Users\Administrator\Desktop\Temp\myworkbook.xlsx

我已经写了代码

 Sub openSaveClose() Workbooks.Open "C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx" // This is working fine Workbooks("C:\Users\Administrator\Desktop\Temp\myworkbook.xlsx").Save End sub 

错误是：

运行时错误9.下标超出范围

Answer 1

您只需要在打开文件时指定path：

 Sub openSaveClose() Workbooks.Open "C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx" Workbooks("myworkbook.xlsx").Save Workbooks("myworkbook.xlsx").Close End sub 

使用对象variables，您可以执行以下操作（不需要在“保存/closures”语句中使用工作簿的名称 ）：

 Sub openSaveClose() Dim wb as Workbook Set wb = Workbooks.Open("C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx") wb.Save wb.Close End sub