タイトル | : Re^2: Excelの読み書き |
記事No | : 4815 |
投稿日 | : 2007/01/15(Mon) 22:47 |
投稿者 | : Tomy |
返信ありがとうございます。 調べたところ、読込はDatasetを使って読み込めるようになりました。 しかし、Datasetを使った書込み作業についてはあまり書かれていませんでした(調査不足?) できればDatasetを利用したExcelファイルへの書込み方法を教えていただければ幸いです。 書き込み先 C:\Data2.xls '読込
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim dSet As DataSet = New DataSet Dim dAdp As OleDb.OleDbDataAdapter Dim cn As OleDb.OleDbConnection
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= C:\Data1.xls;" & _ "Extended Properties=""Excel 8.0;HDR=NO;""")
dAdp = New OleDb.OleDbDataAdapter("Select * From [Sheet1$B10:F10]", cn) dAdp.Fill(dSet)
For i = 0 To dSet.Tables(0).Rows.Count() - 1 For j = 0 To dSet.Tables(0).Columns.Count() - 1 Debug.Write(dSet.Tables(0).Rows(i)(j) & ControlChars.Tab)
Next Debug.WriteLine("")
Next End Sub
|