TeeChart作爲該系列的Excel文件的數據源

Question

任何人都可以幫助我理解如何從Excel中讀取Teechart中的Series Data（X，Y和Series Naane）。我用CSeriesTextSource嘗試讀取Data.xls文件，但沒有成功。

感謝 阿克沙伊

Answer 1

您可以從您的XLS一個csv，然後用CSeriesTextSource導入該CSV如公佈的here的例子。

編輯：這是從該職位代碼：

Private Sub Form_Load()  
    TChart1.Aspect.View3D = False 
    TChart1.Axis.Bottom.Labels.Style = 2 'talValue 
    TChart1.Axis.Left.Logarithmic = True 

    TChart1.AddSeries scFastLine 
    TChart1.AddSeries scFastLine 
    TChart1.AddSeries scPoint 
    TChart1.AddSeries scPoint 
    TChart1.Series(0).XValues.DateTime = True 
    TChart1.Series(1).XValues.DateTime = True 
    TChart1.Series(2).XValues.DateTime = True 
    TChart1.Series(3).XValues.DateTime = True 

    With SeriesTextSource1 
    .FileName = "C:\tmp\Data.csv" 
    .HeaderLines = 1 
    .FieldSeparator = ";" 

    .Series = TChart1.Series(0) 
    .AddField "X", 1 
    .AddField "Y", 2 
    .Active = True 

    .Series = TChart1.Series(1) 
    .AddField "X", 3 
    .AddField "Y", 4 
    .Active = True 

' This works with v2012, but with v8 
' .Series = TChart1.Series(2) 
' .AddField "X", 5 
' .AddField "Y", 6 
' .Active = True 
' 
' .Series = TChart1.Series(3) 
' .AddField "X", 7 
' .AddField "Y", 8 
' .Active = True 
    End With 

' I add the values manually in v8: 
    TChart1.Series(2).AddXY CDate("10/11/2003"), 0, "", clTeeColor 
    TChart1.Series(3).AddXY CDate("01/02/1999"), 231.48, "", clTeeColor 
End Sub 

Private Sub TChart1_OnClick() 
    Caption = "Min: " + FormatDateTime(TChart1.Axis.Bottom.MinVisibleSeriesValue(True, 0)) + ", Max: " + FormatDateTime(TChart1.Axis.Bottom.MaxVisibleSeriesValue(True, 0)) 
End Sub 

您可以下載的數據的CSV測試here。