- 日時： 2007/08/03 19:22
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][エクセル][] *
* キーワード：ADO,ADODC,データ連結,Recordset,DataSource,エクセルファイル,*.xls *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん ADOを使ってExcelファイルをMSChartに表示する 2007/08/03
-----------------------------------------------------------------------------------
別途、ADOを使ってCSVファイルをMSChartコントロールにセットする(VB6.0) (No.22)
>>22 もご覧下さい。
Option Explicit
Private Sub Form_Load()
Form1.Move 0, 0, 10400, 7000
MSChart1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Dim CN As New ADODB.Connection, RS As New ADODB.Recordset
Dim xlFileName As String, SheetNeme As String
'読み込むExcelファイルのパス
xlFileName = App.Path & "\Test.xls"
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
xlFileName & ";Extended Properties=Excel 8.0;"
Set RS = New ADODB.Recordset
'シート[Test]を読み込む
RS.Open "[Test$]", CN, adOpenStatic, adLockOptimistic
'※ 一旦先頭（最初）のレコードに移動(これがミソ）
RS.MoveFirst
Set MSChart1.DataSource = RS 'MSChartにデータを代入
MSChart1.ShowLegend = True '凡例を表示
'Recordset・Connection を閉じる
RS.Close
CN.Close
'参照を解放。
Set RS = Nothing
Set CN = Nothing
End Sub
----------------------------------------------------------------------------
上記に使用したExcelファイルです。
http://hanatyan.sakura.ne.jp/samplepic/chartno28-1.gif
上記コードの実行結果の図です。
http://hanatyan.sakura.ne.jp/samplepic/chartno28-2.gif
|
ADOを使ってExcelファイルをMSChartコントロールにセットする(VB6.0)