希望VFP数据在保存到EXCEL文件的同时，在EXCEL中自动生成折线图，在网上查了几个方法均未成功。
附件是已经保存的数据，内部的折线图是在EXCEL中手动生成的，仅对“检测值”一列进行画图。

试试在EXCEL中建好表格及生成折线图，然后在VFP中往指定单元格写数据，写完之后再刷新图表。

不是这个意思。
有一个DBF数据库，为了长期保存相关数据，需要将这个数据库转到EXCEL再留存，现在转换没有问题，但希望保存完数据后，在EXCEL中自动插入一个“检测值”的折线图。

基本画出曲线，但是改变纵坐标的两个语句提示找不到变量“xlvalue”,这个变量是指什么？
oExcel = CREATEOBJECT('Excel.Application')
name_file="f:\201903041018_3.xls"
oExcel.Workbooks.Open("&name_file")
oExcel.Visible = .F.
oExcel. Columns("Q:Q").Select
oExcel.ActiveSheet.Shapes.AddChart.Select
oExcel.ActiveChart.ChartType = 4

oExcel.ActiveChart.Axes(xlValue).MinimumScale = 1100   *坐标下限
oExcel.ActiveChart.Axes(xlValue).MaximumScale = 1500   *坐标上限
oExcel.quit

下面是EXECEL录制的宏：
Sub 宏2()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("'201903041018_3'!$Q:$Q")
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = 1100
    ActiveChart.Axes(xlValue).MaximumScale = 1500
End Sub

[此贴子已经被作者于2019-4-8 15:08编辑过]