如何用vb6.0外接程序设计excel2003中直接能调用的自定义函数

如果你往Excel中写入值可用函数调用，不写入值可用OLE控件调用。下面的VB连接Excel程序你可以参照。

Dim OBJEXCEL As Excel.Application '定义Excel应用判镇扮程序变量掘灶

Dim OBJXLS As Excel.Workbook '定义工作薄变量

Private Sub Command1_Click()

Dim I, J As Integer '旅或定义循环变量

Set OBJEXCEL = New Excel.Application '应用程序变量赋值

OBJEXCEL.Visible = True '工作薄可见

Set OBJXLS = OBJEXCEL.Workbooks.Add '增加工作薄

OBJXLS.Activate '激活工作薄

For I = 1 To 9

For J = 1 To 9

OBJEXCEL.ActiveCell.Cells(J, I).Value = I * J '单元格赋值

Next J

Next I

End Sub

在通用对象的声明过程中定义EXCEL 对象： Dim xlApp As Excel. Application Dim xlBook As Excel. WorkBook Dim xlSheet As Excel. Worksheet 3、 在程序中 *** 作EXCEL 表常用命令： Set xlApp = CreateObj ect("Excel. Application") #9创建EXCEL 对象 Set xlBook = xlApp. Workbooks. Open("文件名") #9打开春肆拍已经存在的 EXCEL 工件簿文件 xlApp. Visible = True #9设置EXCEL 对象可见（或不可见） Set xlSheet = xlBook. Worksheets("表名") #9设置活动工作表 xlSheet. Cells(row, col) =值 #9给单元格（row, col） 赋值 xlSheet. PrintOut #9打印工作表 xlBook. Close (True) #9关闭工作簿 xlApp. Quit #9结束EXCEL 对象 Set xlApp = Nothing #9释放xlApp 对象 xlBook. RunAutoMacros (xlAutoOpen) #9运行EXCEL 启动宏 xlBook. RunAutoMacros (xlAutoClose) #9运行EXCEL 关闭宏 4、 在运用以上VB 命令 *** 作EXCEL 表时， 除非设置EXCEL 对象不可见， 否则VB 程序可继续执行其它 *** 作， 也能够雹郑关闭 EXCEL， 同时也可对EXCEL 进行 *** 作。扒羡

// 把自定义窗体添歼仔加到CustomTaskPanes集合中

// ExcelHelp 是一个自定义控件类

helpTaskPane = Globals.ThisAddIn.CustomTaskPanes.Add(new ExcelHelp(""), "Excel Help")

CustomTaskPanes这个是关键，把用户控件加迅渗入到容器亩改脊里

参考http://blog.csdn.net/dyllove98/article/details/8707983

---