VB无法打包.提示未找到方法

来源：百度知道编辑：UC知道时间：2024/05/29 20:02:01

oForm.Sheet1.HTMLURL?
救命呀.这个是什么呀
Dim oForm As New frmReport
Dim i, j, k As Integer
On Error GoTo last
oForm.Sheet1.HTMLURL = App.Path & "\adsum.xls"
oForm.Show
oForm.Sheet1.Cells(2, 4) = Format(txtBTime.value, "yyyy-mm-dd")
oForm.Sheet1.Cells(2, 11) = Format(txtETime.value, "yyyy-mm-dd")
For i = 1 To lvPrebargain.ListItems.Count - 1
For j = 2 To 15
If j = 2 Then
oForm.Sheet1.Cells(i + 3, j - 1) = Format(Trim(lvPrebargain.ListItems(i).ListSubItems(j).Text), "mm-dd")
Else
oForm.Sheet1.Cells(i + 3, j - 1) = Trim(lvPrebargain.ListItems(i).ListSubItems(j).Text)
End If
Next
Next
oForm.Sheet1.Range(oForm.Sheet1.Cells(1, 1), oForm.Sheet1.Cells(3, 14)).FreezePanes ssFreezeTop

这段代码是从哪里来的？看不明白。
当包含自定义对象时，必须声明清楚。
如果引入了第三方控件，这就难说了。

另外，打包之前必须先正常编译，否则无法打包。