Question

我试图从teechart编辑器中导出excel中的系列数据。在导出excel时，将系列数据作为x和y列获取，格式为两位小数。我想用科学记数法输出数据。

我通过提供系列标签中的格式获得了部分成功 - ＆gt;一般来说，我可以提供值的格式。但是这会改变系列中两列的格式。我想要的是导出的Excel中Y系列的x值和科学格式的正常默认格式。

请有人指导我如何继续

Answer 1

来自here：

由于ValueFormat是Series属性，因此它适用于X和Y ValueLists。我能想到的唯一方法是使用时间图表将每个系列分成两个系列，一个用于X值（使用默认的ValueFormat），另一个用于Y值（使用修改后的ValueFormat）。即：

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

值得注意的是，按代码导出到.xlsx文件，支持Excel＆gt; 2010年，尚未在TeeChart ActiveX中实施：#1670。

steema tee图表导出到excel数据格式问题

1 个答案: