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

Question

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

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

以前也可以，现在excel提示找不到文件。请帮忙 :/

Answer 1

如果您按照所讨论的 HERE 声明变量，您可以轻松地做您想做的事情。 .
因此，如果我们要应用它，您可以像这样打开您的工作簿:

    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。