我用复制一行然后插入复制行的办法插入行：

If maxl > 5 Then
With Selection
For n = 1 To maxl - 5
xlSheet.Rows("7:7").Select
Application.CutCopyMode = False
.Copy
.Insert shift:=xlDown
Next
End With
End If
但以上程序在VBA中可以正常运行，它不能正常在VB6中运行。

因为我要复制一行的目的是行中有好多特殊设置（合并格等）。

在VB6中运行时会提示将折散合并格，点确定后合并格被拆散。

请问要什么样改进才能在VB6中运行啊？

或者有没有办法从VB6中传递变量过来？上面的maxl是VB6中的变量。

再或者有没有办法在VB6中调用VBA中的子程序，比如：

xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏auto_open() xlbook是打开的工作薄对象。

我需要调用普通的子程序，比如aa()

以上三者谁能帮我解决一个就OK了，期望高手帮助！

[此贴子已经被作者于2006-10-19 12:04:56编辑过]