Exportation d'un fichier té steema vers un fichier de format de données Excel

Question

Je tente d'exporter des données de série dans Excel à partir de l'éditeur Teechart. à l'exportation de l'Excel obtient des données de série sous forme de colonnes x et y dans le format de deux décimales. Je veux est d'exporter des données en notation scientifique.

J'ai eu un succès partiel en fournissant le format en série onglet -> général ici je peux fournir le format pour les valeurs. Mais cela change le format pour les deux colonnes de la série. ce que je veux est le format par défaut normal pour les valeurs x de la série et le format scientifique pour la série Y dans l'Excel exporté.

S'il vous plaît quelqu'un me guider comment procéder

Answer 1

De here:

Depuis la ValueFormat est une propriété de la série, il est appliqué à la fois X et Y VALUELISTS. Le seul moyen de contourner le problème serait d'utiliser un diagramme temporel séparant chaque série en deux séries, une pour les valeurs X (avec le ValueFormat par défaut) et une pour les valeurs Y (avec le ValueFormat modifié). À savoir:

Private Sub Form_Load() 
    TChart1.Header.Text.Text = TChart1.Version 

    TChart1.Aspect.View3D = False 

    TChart1.AddSeries scLine 
    TChart1.AddSeries scLine 

    TChart1.Series(0).ValueFormat = "0.######0e-0" 
    TChart1.Series(1).ValueFormat = "0.######0e-0" 

    Dim i As Integer 
    For i = 1 To 5 
    TChart1.Series(0).AddXY i, Rnd * 100, "", clTeeColor 
    TChart1.Series(1).AddXY i, Rnd * 100, "", clTeeColor 
    Next i 
End Sub 

Private Sub Command1_Click() 
    Dim tmpChart 
    Set tmpChart = CreateObject("TeeChart.TChart") 

    Dim i, y As Integer 
    For i = 0 To TChart1.SeriesCount - 1 
    tmpChart.AddSeries scPoint 
    tmpChart.AddSeries scPoint 

    For j = 0 To TChart1.Series(i).Count - 1 
     tmpChart.Series(tmpChart.SeriesCount - 2).Add TChart1.Series(i).XValues.Value(j), "", clTeeColor 
     tmpChart.Series(tmpChart.SeriesCount - 1).Add TChart1.Series(i).YValues.Value(j), "", clTeeColor 
    Next j 

    tmpChart.Series(tmpChart.SeriesCount - 2).YValues.Name = "X" 
    tmpChart.Series(tmpChart.SeriesCount - 1).ValueFormat = TChart1.Series(i).ValueFormat 
    Next i 

    TChart1.Export.asXLS.IncludeHeader = True 
    TChart1.Export.asXLS.UseSeriesFormat = True 


    TChart1.Export.asXLS.SaveToFile "C:\tmp\axtest.xls" 
End Sub 

Worth à noter ici l'exportation de fichiers .xlsx par code, Excel soutien> 2010, n'a pas été encore mis en œuvre dans TeeChart ActiveX: #1670.