Question

VB 调用子程序的问题！急！

我在窗体frmmain中写了一个子程序：
Public Sub FangGuo(ByVal i As Integer, ByVal xlapp1 As Excel.Application, ByVal xlbook1 As Excel.Workbook, ByVal xlsheet1 As Excel.Worksheet)

Dim x As Integer
For x = 0 To 8

'————放过——————
Select Case ComFgYy(x).Text

Case "缺边掉角"
xlsheet1.Cells(i, "P").Value = Trim(TexFgP(x).Text)
xlsheet1.Cells(i, "Q").Value = Trim(TexFgKg(x).Text)
xlsheet1.Cells(i, "R").Value = Trim(TexFgQk(x).Text)

Case "变形"
xlsheet1.Cells(i, "S").Value = Trim(TexFgP(x).Text)
xlsheet1.Cells(i, "T").Value = Trim(TexFgKg(x).Text)
xlsheet1.Cells(i, "U").Value = Trim(TexFgQk(x).Text)

Case "表面鼓泡"
xlsheet1.Cells(i, "V").Value = Trim(TexFgP(x).Text)
xlsheet1.Cells(i, "W").Value = Trim(TexFgKg(x).Text)
xlsheet1.Cells(i, "X").Value = Trim(TexFgQk(x).Text)
end select
next

要在Dialog1窗体中调用这个子程序，我是这样写的：

frmMain.FangGuo m, xlapp, xlbook, xlsheet （其中m是一个已经赋值变量）

excel引用均已经添加
在frmmain窗体load事件中做了相应设置：
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlbook = xlapp.Workbooks.Open(App.Path & "\xls\合金厂产品质检明细表.xls", , , , "123", "123") '打开EXCEL工作簿
xlapp.Visible = True'设置EXCEL不可见
Set xlsheet = xlbook.Worksheets("产品质检明细表") '打开EXCEL工作表

同时在“模块”中有定义：
Public xlapp As Excel.Application
Public xlbook As Excel.Workbook
Public xlsheet As Excel.Worksheet

我觉得这样没问题，为什么在Dialog窗体中调用子程序的时候，它又要打开一次excel表格呢？

我是菜鸟，没辙了，求高手帮忙！
已经通过另外一种途径实现了该功能。
谢谢大虾的关注。

Answer 1

exFgP TexFgKg TexFgQk是什么？自定义函数吗？

你把Set xlbook = xlapp.Workbooks.Open(App.Path & "\xls\合金厂产品质检明细表.xls", , , , "123", "123") '打开EXCEL工作簿
这一句换成
Set xlbook = xlapp.Workbooks.add 试试
应该就可以了