如何用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 进行 *** 作。

你好，EXCEl就有VB的开发功能，如果是您编的软件，就可以直接在excel中编辑，是excel的VBA开发功能。具体步骤如下，office按钮---excel选项----常用工具----在功能区显示开发工具选项卡。----------———————————— 确定后，回来就可以看到“开发工具”第一个就是 您可以将VB程序编辑在这里，然后保存在Excel中。保存的时候要另存为启用宏的工作簿。VBA开发界面如下和ＶＢ是一样的，。。，

---