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

Question

I am trying to open another workbook, using the code below

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

And it was working before, but now excel is prompting the file cant be found. Help please :/

Answer 1

You can do what you want easily if you declare your variable as discussed HERE .
So if we are to apply it, you can open your workbook like this:

    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

Now later in your code if you are saving the same file:

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

Or you can do it using Close method only:

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

Now if however you like to save it as another file:

    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文件并从属性中获取文件路径，然后将实际文件路径替换为以下内容：

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