成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

vb excel編程實(shí)例 如何用vb6.0外接程序設(shè)計(jì)excel2003中直接能調(diào)用的自定義函數(shù)?

如何用vb6.0外接程序設(shè)計(jì)excel2003中直接能調(diào)用的自定義函數(shù)?如果您將值寫入excel,則可以使用函數(shù)調(diào)用它。如果不編寫值,可以使用OLE控件調(diào)用它。下面的VB連接EXCEL程序可以參考。D

如何用vb6.0外接程序設(shè)計(jì)excel2003中直接能調(diào)用的自定義函數(shù)?

如果您將值寫入excel,則可以使用函數(shù)調(diào)用它。如果不編寫值,可以使用OLE控件調(diào)用它。下面的VB連接EXCEL程序可以參考。

Dim OBJEXCEL組件Excel應(yīng)用程序定義Excel應(yīng)用程序變量

dim objxls asExcel.工作簿“Define workbook variables

private sub command1 Click()

dim I,j As Integer”定義循環(huán)變量

設(shè)置objexcel=NewExcel應(yīng)用程序“應(yīng)用程序變量賦值OBJEXCEL.可見=真“工作簿可見

設(shè)置objxls=OBJEXCEL.Workbooks.Add添加“添加工作簿OBJXLS.激活激活工作簿

對(duì)于I=1到9

對(duì)于J=1到9OBJEXCEL.ActiveCell.Cells單元格(J,I).Value=I*J單元格賦值

下一個(gè)J

下一個(gè)I

結(jié)束Sub