m_objExcel.OpenWorkbook "V:\my Report.xls", True

Sure looks to me that you're passing True as the Readonly argument to
Function OpenWorkbook.

--
Jim
"hommer" wrote in message
...
|I open an xls and insert value to it from VBA. However, the xls is opened
as
| read-only, even though the code asked for none-read-only access. Btw, all
the
| samples I found are for opening a new xls then insert data, and I need to
| open an existing xls.
|
| Your help is appreciated!
|
| Here is my calling code block: (m_objExcel is declared as New cExcel)
| Private Sub Command1_Click()
| m_objExcel.StartExcel True
| m_objExcel.OpenWorkbook "V:\my Report.xls", True
| 'I can see the xls after last line is run, but the title says read-only
| 'the next line will insert value, but later it wouldn't save.
| m_objExcel.InsertValue "L2", "20"
| m_objExcel.CloseExcel
|
| End Sub
| Below are sub/functions from sample code in class module.
| Public Sub StartExcel(fVisible As Boolean)
| ' Comments : Starts an instance of Excel
| ' Parameters: fVisible - True to make Excel visible
| .
| m_objExcel.Visible = fVisible
| .
| End Sub
|
| Public Function OpenWorkbook(strFileName As String, fReadOnly As Boolean,
_
| Optional varPassword As Variant) As Excel.Worksheet
| ' Comments : Opens the named file and associates it with the class
| ' Parameters: strFileName - full path and name of the file to open
| ' fReadOnly - True to open readonly
|
| If Not IsMissing(varPassword) Then .
| Else
| Set m_objWorkbook = m_objExcel.Workbooks.Open(strFileName, , fReadOnly)
| End If
| .
| End Function
|
|