Ｅｘｃｅｌのデータを読み取り、グラフをつくりたいのですが・・・

こん 2008-10-29 15:49:03 No: 140758

Private Sub ReceiveX_Click()

    'Xデータの受信要求
    gpiHost.Send 0, "SELXY1 REQDT"
    'ファイル名の作成
    FileNameX = "c:\My Documents\GPIBデータ\Xデータ\" & Format$(Now, "yymmddhhmmss") & "-X" & ".xls"
    'データを入力するファイルをオープンします
    Open FileNameX For Output As #1

For n = 1 To 400
    'ボード番号０よりデータ受信を開始します
    gpiHost.Receive 0

    Next n
    Close #1

End Sub
Private Sub ReceiveY_Click()

    'Yデータの受信要求
    gpiHost.Send 0, "SELXY0 REQDT"
    'ファイル名の作成
    FileNameY = "c:\My Documents\GPIBデータ\Yデータ\" & Format$(Now, "yymmddhhmmss") & "-Y" & ".xls"
    'データを入力するファイルをオープンします
    Open FileNameY For Output As #1

For i = 1 To 400
    'ボード番号０よりデータ受信を開始します
    gpiHost.Receive 0

    Next i
    Close #1
End Sub

Private Sub gpiHost_ReceiveFinish(ByVal lBoardNo As Long, ByVal lRecvSize As Long)

    Dim strData As String

    '受信完了時に本イベントが呼ばれます
    'GetDateメソッドを呼び出し、txtOutputという名前の
    'テキストボックスのTextプロパティにそのデータを設定します
    gpiHost.GetData 0, strData
    txtRecvData = strData
    Write #1, strData
End Sub

Private Sub ReceiveXY_Click()
    'ファイル名の作成
    FileNameXY = "c:\My Documents\GPIBデータ\XYデータ\" & Format$(Now, "yymmddhhmmss") & "-XY" & ".xls"
    'データを入力するファイルをオープンします
    Open FileNameXY For Output As #2
    Write #2, FileNameX, FileNameY
    Close #2
End Sub

このようにopenステートメントを使用して、Ｅｘｃｅｌにデータを書き込みます

このデータをもとにＥｘｃｅｌ（または、ＶＢ）上に折れ線グラフを作りたいのですが、、、どうすれば良いのでしょうか？
まだはじめたばかりの未熟者にご指導お願いします

横須賀の熊 2008-10-29 16:31:36 No: 140759

>まだはじめたばかりの未熟者にご指導お願いします

まず、Excelのマクロの記録で折れ線グラフを作成する手順を記録します。

xlSheet.ChartObjects(nCnt).Chart.Export FileName:=App.Path & "\出力ファイル.gif"

のように、Chart.Exportをやると、ファイル出力が出来ます。
あとは出力されたファイルを、イメージコントロールで表示してやればよいかと。