用Spredsheet1如何打开一个已经存在的Excel文件（在线等）

Question

如题：我想打开一个已经存在的Excel文件，可是spredsheet里面怎么都找不到方法，请教高手

Answer 1

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("G:\Documents and Settings\gentleman1\My Documents\node.xls", Random, False) 
    Set xSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
    xlApp.Run "Macro2"       Set xlBook = Nothing
    Set xlApp = Nothing
    
End Sub
我的macro2有这么几句
....
 m(i - 3) = Sheet1.Cells(i, 5).Value
    Next i
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Save    '在这句执行时，提示因为已只读方式打开文件，需要另存为副
                         本，谁帮我解决这个问题啊？在上面的open语句应该怎么改动一下？
    
   ActiveWorkbook.up
....