发信人: foxzz()
整理人: foxzz(2003-06-19 20:22:13), 站内信件
|
请参考：
1、先创建文件KbTest.bas，内容如下
Attribute VB_Name = "KbTest"
Public Sub DoKbTest(oSheetToFill As Object)
Dim i As Integer, j As Integer
Dim sMsg As String
For i = 1 To 10
For j = 1 To 2
sMsg = Str(i) & "," & Str(j)
oSheetToFill.Cells(i, j).Value = sMsg
Next j
Next i
End Sub
2、在代码中增加宏并运行宏
oXL = CreateObject("Excel.Application")
oXL.Visible = .t.
oBook=oXL.Workbooks.Add
oSheet = oBook.Sheets(1)
oXL.VBE.ActiveVBProject.VBComponents.Import("C:\KbTest.bas")
oXL.Run("DoKbTest", oSheet)
----
天行健，君子以自强不息
|
|