掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6のADO使用でExcelブックへデータを書込むには？ (ID：143085)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VB6でADOを使ってExcelファイルに新規行を追加してデータを書込たいのですが、以下のコードを動かすと１回目は問題ないですが、２度目はFieldCount値がゼロになってしまい、ブックをExcel本体でシートの最下行の次の空白行を削除しないと本来のFieldCount値に戻らなくなってしまいます。 列見出しを使わないことに問題があるのでしょうか？よろしくお願いしす WinXP(SP3) VB6(SP6) Excel2002(SP3) を使用 テストファイル名"Test.xls"でシート名"Sheet1"です −−−−−−−−−−−−−−−−−−−−−−−− Dim DB As ADODB.Connection Dim RS As ADODB.Recordset Set DB = New ADODB.Connection DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = Test.xls;" & _ "Extended Properties=""Excel 8.0;HDR=NO;""" Set RS = New ADODB.Recordset RS.Open "[Sheet1$]", DB, adOpenStatic, adLockOptimistic MsgBox "レコード数＝" & RS.RecordCount & " フィールド数＝" &_ RS.Fields.Count, , "現在" RS.AddNew For L = 0 To RS.Fields.Count - 1 RS.Fields(L).Value = L '<- L は仮の書き込みデータ Next L RS.Update MsgBox "レコード数＝" & RS.RecordCount & " フィールド数＝" &_ RS.Fields.Count, , "終了" RS.Close: Set RS = Nothing DB.Close: Set DB = Nothing End
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.