[求助]：如何才能利用excel的数据自动绘图

sharksun

呵呵，我们当初做试验，画图就是用这种方法做的。

song2000trb

SCR  是什么样的文件格式啊

bzy777

比较实用，但是只能简单的绘图，过程比较繁

月后船影

Sub Test()
    Dim xlApp As Object
    Dim i As Integer
    Dim r As Range
    Dim Pt(0 To 2) As Double
   
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err Then
        Err.Clear
        Exit Sub
    End If
    For i = 3 To xlApp.ActiveSheet.UsedRange.Rows.Count
        Set r = xlApp.ActiveSheet.Range("C" & i)
        If IsNumeric(r) Then
            Pt(0) = r
            Pt(1) = r.Offset(0, 1)
            Pt(2) = 0
            ThisDrawing.ModelSpace.AddText r.Offset(0, -1), Pt, 2.5
        End If
    Next
End Sub
这段代码
请问excel xp可以运行吗？

wanjdh000

只要找到cad和excel的接口程序就行了

yangzai

小弟真是佩服.看来学这些迟了,谢谢那么多方法

lfx49

但没有爱心币，要努力

mikefeng

在vba 中引用excel. 通过excel.application打开相应的excel 文件即可引用

注意.value表示数据