Excelの既存のワークシートにVB2005からデータを転送する方法ですが、次のような2とおりのほうう法でためしてみましたが満足できる方法が見つかりません。
dim cn As System.Data.OleDb.OleDbConnection
dim ad As System.Data.OleDb.OleDbDataAdapter
dim ds As New System.Data.DataSet()
dim cBuild As OleDb.OleDbCommandBuilder
cn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source="c:_
book1.xls;Extended Properties=Excel 8.0;")
ad = New System.Data.OleDb.OleDbDataAdapter("select * from [sheet1$]", cn)
cBuild = New OleDb.OleDbCommandBuilder(ad)
cn.Open()
ad.Fill(ds, "sheet1")
Messagebox.show(ds.Tables("sheet1").Rows(1)(2) )
ds.Tables("sheet1").Rows(1)(2) = 30
ad.Update(ds, "sheet1") ＜＝＝＝＝ ここがエラーになる
このやり方ではMessagebox.show(ds.Tables("sheet1").Rows(1)(2) )のようなExcelからデータを読み込むことはできるのですが、ad.Update(ds, "sheet1")のように書きもみをしようとすると、 「UpdateCommand の動的 SQL 生成は、キーである列情報を返さない SelectCommand に対してはサポートされていません。」とエラーメッセージが出て、コマンドビルダーがあってもエラーを回避することができません。これが、Accessのファイルならデータフィールドの一つに主キーを設定すればこのエラーは出ません。ただ、エクセルでは一つの列を主キーとする方法がわからないので、このエラーを回避できません。うまくエクセルにデータを送る方法はないでしょうか？
もう一つの方法はエクセルをオートメーション化する方法で
'Dim oExcel As Object
'Dim oBook As Object
'Dim oSheet As Object
''Start a new workbook in Excel.
'oExcel = CreateObject("Excel.Application")
'oBook = oExcel.Workbooks.Add
''Add data to cells of the first worksheet in the new workbook.
'oSheet = oBook.Worksheets(1)
'oSheet.Range("A1").Value = "Last Name"
ですが、これだとCreateObject("Excel.Application")で新しいワークシートを作って書き込むので、既存のエクセルのワークシートに書き込む方法がわかりません。
すでにあるワークシートに書き込む方法をご存知の方教えてください。
