修改并保存Excel文件

Question

Set exlApp = New Excel.ApplicationForm1.CommonDialog1.ShowOpenexlApp.Workbooks.Open Form1.CommonDialog1.FileNameexlApp.Sheets(1).Cells(7, 2) = "Hello World"exlApp.SaveWorkspace (Form1.CommonDialog1.FileName)
'为何我执行到保存这一步的时候提示说该文件只读，需另存为？
'我的目的是要直接的保存
exlApp.Quit

Answer 1

'引用microsoft excel 10.0 objects library
Private Sub Form_Load()
Dim ex As Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim row, col, maxCol As Integer
Dim temp1, str, str1        
        Set ex = CreateObject("excel.application")
        
        Set exwbook = ex.Workbooks.Open("d:\ygn.xls")
        '-----------------------------------处理表
        Set exsheet = exwbook.Worksheets("报纸")
        
         exsheet.Select
          exsheet.Cells(5, 5) = "赌东道 ddddd"
          exwbook.Save
   
        Set exsheet = Nothing
        exwbook.Close
        Set exwbook = Nothing
        ex.QuitEnd Sub