| タイトル | ： ADOでエクセルに書き込みできない |
| 記事No | ： 6850 |
| 投稿日 | ： 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
|