tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: Excelの読み書き
投稿日： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。