Excelのデータを読み取り、グラフをつくりたいのですが・・・


こん  2008-10-30 00: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
    'ボード番号0よりデータ受信を開始します
    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
    'ボード番号0よりデータ受信を開始します
    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ステートメントを使用して、Excelにデータを書き込みます

このデータをもとにExcel(または、VB)上に折れ線グラフを作りたいのですが、、、どうすれば良いのでしょうか?
まだはじめたばかりの未熟者にご指導お願いします


横須賀の熊  2008-10-30 01:31:36  No: 140759

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

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

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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加