タイトル : ADOでエクセルに書き込みできない 投稿日 : 2008/01/18(Fri) 09:56 投稿者 : cc
ADOでエクセルファイルのデータを更新したいのですが、 「データベースまたはオブジェクトは読み取り専用なので、更新できません。」 というエラーが出てしまいます。 webで色々調べましたが解決できませんでした。 以下がそのコードですが、なにがいけないのでしょうか? となたかご教授願います。 Private Sub sr_excelADOup_2() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim mPath As String = "C:\Documents and Settings\Administrator\デスクトップ\cstest.xls" cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Properties("Extended Properties").Value = "Excel 8.0;HDR=NO;IMEX=1" cn.Open(mPath) Dim strSQL As String = "Select * From [" & "Sheet1" & "$]" With rs .Open(strSQL, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText) .MoveFirst() .Update(3, "テストテスト") End With rs.Close() cn.Close() System.Runtime.InteropServices.Marshal.ReleaseComObject(rs) rs = Nothing System.Runtime.InteropServices.Marshal.ReleaseComObject(cn) cn = Nothing MsgBox("完了") End Sub |