VB6如何调用EXCEL的SLOPE（）和INTERCEPT（）函数

Question

VB6如何调用EXCEL的SLOPE（）和INTERCEPT（）函数请各位大侠不吝赐教！！！

Answer 1

dim xlApp
dim a,b,c
b=123
c=456
set xlApp=createobject("Excel.application")
a=xlApp.worksheetfunction.slope(b,c)
'......
xlApp.quit
set xlApp=nothing

Answer 2

A1，B1为单元格里的值Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    
    xlapp.Range("C1").Select
    xlapp.ActiveCell.FormulaR1C1 = "=SLOPE(A1,B1)"
    
    xlapp.Range("C2").Select
    xlapp.ActiveCell.FormulaR1C1 = "=INTERCEPT(A1,B1)"
    
    xlapp.Visible = True
End Sub