VBA如何打开另一个工作簿？

我正在尝试使用下面的代码打开另一个工作簿

Sheets("Range").Activate Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Open ("AvgStdev.xlsm") 

之前它正在工作，但现在excel正在提示找不到该文件。 请帮助 ：/

Answer 1

如果你在这里讨论你的variables声明，你可以轻松地做你想要的。
所以如果我们要应用它，你可以像这样打开你的工作簿：

  Dim wb As Workbook Dim myfilename As String myfilename = "C:\Users\Ayaz\Desktop\Analysis\AvgStdev.xlsm" '~~> open the workbook and pass it to workbook object variable Set wb = Workbooks.Open(myfilename) '~~> More codes here 

现在在你的代码后面，如果你保存了同一个文件：

  wb.Save '~~> save wb.Close '~~> close 

或者你可以只使用Close方法：

  wb.Close True '~~> explicit SaveChanges argument to true 

现在，如果您希望将其另存为另一个文件：

  Dim newfilename As String newfilename = "C:\Users\Ayaz\Desktop\Analysis\Another.xlsm" '~~> If you are saving it in a format other than .xlsx, '~~> you have to be explicit in the FileFormat argument wb.SaveAs newfilename, xlOpenXMLWorkbookMacroEnabled wb.Close 

HTH。

Answer 2

右键单击您的excel文件并从属性获取文件path，然后将实际的文件pathreplace为以下内容：

 Workbooks.Open ("filepath\AvgStdev.xlsm")