急问，关于delphi中调用Excel的问题

Question

在Excel中录制一个宏,记录下你执行查询一个值的过程,参考这个宏的VBX代码,在Delphi中写程序.

Answer 1

在Excel中录制一个宏,里面说得很清楚！

Answer 2

Sub 宏1()
'
' 宏1 Macro
' 丑小鸭 2002-01-18 18:06:18 记录的宏 2002-1-19
''
    Range("G14").Select
End Sub

Answer 3

Range 属性（Application、Range 或 Worksheet 对象）示例本示例将工作表“Sheet1”上 A1 单元格的值设置为 3.14159。Worksheets("Sheet1").Range("A1").Value = 3.14159
本示例在工作表“Sheet1”的 A1 单元格中创建一个公式。Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
本示例在工作表“Sheet1”的单元格 A1:D10 上进行循环。如果某个单元格的值小于 0.001，这段代码将用 0（零）来取代该值。For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c
本示例在名为“TestRange”的区域上进行循环，并显示该区域中空单元格的个数。numBlanks = 0
For Each c In Range("TestRange")
    If c.Value = "" Then
        numBlanks = numBlanks + 1
    End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range"
本示例将工作表“Sheet1”中单元格 A1:C5 上的字体样式设置为斜体。本示例使用 Range 属性的语法 2。Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
    Font.Italic = True