求助VFP如何在EXCEL的thisworkbook中写入宏

NO不能

用VFP生成宏，再手工粘贴到thisworkbook，或者用VFP直接操纵EXCEL执行宏代码所要实现的动作

[此贴子已经被作者于2018-10-22 15:28编辑过]

网上查到的这个可以但是，只写入到类模块，我希望能写到Thisworkbook中或Sheet2...中
oXL = Createobject("Excel.Application")
*!* oXL.Visible = .t.
 
oBook=oXL.Workbooks.Add()
oSheet = oBook.Sheets(1)
 
Text to cc Noshow Pretext 1+2
    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
EndText
 
Try
    oVBE = oXL.VBE.ActiveVBProject
    oErr = Null
Catch To oErr
Endtry
 
If !Isnull(oErr) And oErr.ErrorNo == 1943
    Text to cMsg Noshow Pretext 1+2
        当前的 Excel 配置不允许执行这个宏，请检查 Excel 配置。
 
        请确认勾选了: 可靠发行商中的 “信任对 Visual Basic 项目”的访问
    EndText
    Messagebox(cMsg, 0, '')
    oXL.Visible = .T.
    (1).Controls(6).Controls(14).Controls(3).Execute()
Endif
 
Try
    om = oXL.VBE.ActiveVBProject.VBComponents.Add(1)
    om.CodeModule.AddFromString(cc)
    oXL.Run("DoKbTest", oSheet)
    oXL.Visible = .T.
Catch To oErr
    Messagebox(oErr.Message + 0h0d0a0d0a + '你没有正确设置安全选项。', 0, '')
    oXL.Quit
    oXL = Null
Endtry

收到的鲜花

• 厨师王德榜 于 2018-10-24 09:47 送鲜花  3朵   附言：好文章，有用!

om = oXL.VBE.ActiveVBProject.VBComponents.Add(1)
     om.CodeModule.AddFromString(cc)
不知道怎样设置

还有
1.在“模块1”中插入代码
如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。
方法1：
在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。
Sub AddCode1()
 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _
   "sub aTest()" & Chr(10) & _
   "msgbox ""Hello""" & Chr(10) & _
   "end sub"
End Sub
按这个模式编写程序提示错误。

哪位朋友帮助解决一下，谢谢

这个问题我以前也问过，没解决。


后来我采用：先制作好一个写有宏的EXCEL文档　，再用VFP将数据写入到这个EXCEL中，这样一来，这个EXCEL中有数据、有宏，也就满足需求了。

ＶＦＰ控制ＥＸＣＥＬ不行吗

赞成9楼sdta的，excel中执行宏，能完成的操作，也可以通过vfp操作excel达到同样效果的。