vb2008引用办公软件excel
1. vb引用函数
对数组的引用表示对内存中该地址存放的数组元素进行操作。
2. vb函数的使用方法
Choose函数从参数列表中选择并返回一个值。语法Choose(index,choice-1[,choice-2,...[,choice-n]])
index必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。choice必要参数，Variant表达式，包含可选择项目的其中之一。说明Choose会根据index的值来返回选择项列表中的某个值。如果index是1，则Choose会返回列表中的第1个选择项。如果index是2，则会返回列表中的第2个选择项，以此类推。可以使用Choose来查阅一个列表中的项目。例如，如果index所指定的值为3，而choice-1="one"、choice-2="two"、且choice-3="three"，那么Choose将返回"three"。当index代表一选项组中的值时，则这项功能将会特别有用。即使它只返回一个选项值，Choose仍然会计算列表中的每个选择项。所以应该注意到这项副作用。
3. vb 引用
）绝对路径方法
比如你的DLL文件位于c:\testDLL\debug\testDLL.dll
一般来说，你需要在VB中作如下声明
Declare Sub mytest Lib "c:\testDLL\dubug\testDLL.dll" (ByVal x As Long)
另外的一个变通方法是把testDLL.dll放在windows的系统目录下，这样，就可以直接引用文件名了。不过，需要把文件放到windows系统目录下，很是不爽！
2）相对路径方法
好了，看看我们如何用相对路径
假设你的DLL文件位于c:\testDLL\debug\testDLL.dll，VB程序位于目录c:\testDLL\vbClient
你可以在VB程序中作如下声明
Declare Sub mytest Lib "../dubug/testDLL.dll" (ByVal x As Long)
如果直接运行你的VB程序，系统会提示错误：找不到../dubug/testDLL.dll.
4. vb调用方法
VB 调用资源文件例子：Option ExplicitDim AppEXE() As ByteDim FileNum As LongPrivate Sub Test()'将自定义资源中101号资源读入数组AppEXE = LoadResData(101, "CUSTOM")FileNum = FreeFile'以二进制方式写（生成）temp1.exe到当前目录Open "C:\Test.exe" For Binary As #FileNumPut #1, , AppEXEClose #FileNum'运行Test.exeShell "C:\Test.exe"End Sub
5. vb调用语句
select是SQL结构查询语言命令之一。
1）SQL 语句，定义结构查询语言 (SQL) 命令的表达式，例如 SELECT、UPDATE 或 DELETE，也可能包括像 WHERE 和 ORDER BY
这样的子句。SQL 字符串语句一般在查询和 rdoResultset
对象中使用，但也可以用来创建或修改数据库结构。
SQL 语句的语法与数据源有关。
2）SELECT - SQL命令
句法：
SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]]
[Alias.] Select_Item [AS Column_Name]
[, [Alias.] Select_Item [AS Column_Name] ...]
FROM [FORCE]
[DatabaseName!]Table [[AS] Local_Alias]
[[INNER | LEFT [OUTER] | RIGHT [OUTER] | FULL [OUTER] JOIN
DatabaseName!]Table [[AS] Local_Alias]
[ON JoinCondition …]
[[INTO Destination]
| [TO FILE FileName [ADDITIVE] | TO PRINTER [PROMPT]
| TO SCREEN]]
[PREFERENCE PreferenceName]
[NOCONSOLE]
[PLAIN]
[NOWAIT]
[WHERE JoinCondition [AND JoinCondition ...]
[AND | OR FilterCondition [AND | OR FilterCondition ...]]]
[GROUP BY GroupColumn [, GroupColumn ...]]
[HAVING FilterCondition]
[UNION [ALL] SELECTCommand]
[ORDER BY Order_Item [ASC | DESC] [, Order_Item [ASC | DESC] ...]]
3）
SELECT - SQL命令例子：
下面的例子说明了如何使用SELECT的用户定义的函数用法。
例子1
例子1 显示所有企业在客户的名称（从一个表中的一个字段）。
SELECT customerpany FROM customer
例子2
例子2 显示两个表中三个字段的内容，并加入基于cust_id字段的两个表。它使用本地别名两个表。
SELECT apany, b.order_date, b.shipped_on FROM customer a, orders b WHERE a.cust_id = b.cust_id
例子3
例子3 仅显示在指定领域唯一的数据记录。
SELECT DISTINCT apany, b.order_date, b.shipped_on FROM customer a, orders b WHERE a.cust_id = b.cust_id
例子4
例子4 显示国家，邮编和公司按升序领域。
SELECT country, postalcode, company FROM customer ORDER BY country, postalcode, company
4）VB将上述例句作为字符串赋值给ADO数据对象，或者ADO数据访问控件属性，进而完成数据查询。
代码1：
Private Sub Command1_Click()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim ARR
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False"
sql = "select 故障名称 from guzhang_bm"
rs.Open sql, cnn
Combo1.Text = "故障名称"
Do While Not rs.EOF
Combo1.AddItem rs("故障名称")
rs.MoveNext '打开表
Loop
rs.Close
cnn.Close
End Sub
代码2：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
Adodc1.RecordSource = "select * from Authors"
Adodc1.Refresh
Debug.Print Adodc1.Recordset.Fields(2).Name
Set DataGrid1.DataSource = Adodc1
End Sub
6. VB常用函数
C/C++编程语言中，int表示整型变量，是一种数据类型，用于定义一个整型变量，在不同编译环境有不同的大小，不同编译运行环境大小不同。
一、EXCEL中
含义：将数值向下取整为最接近的整数。
语法：INT（number）
Number 需要进行向下舍入取整的实数。
说明：int函数可用floor函数代替
int(number)=floor(number,1)
二、C/C++中
在32/64位系统中都是32位，范围为-2147483648~+2147483647，无符号情况下表示为0~4294967295。
三、matlab中
int用于符号∫
int(s)符号表达式s的不定积分.
int(s,v)符号表达式s关于变量v的不定积分.
int(s,a,b)符号表达式s的定积分, a,b分别为积分的下限和上限.
int(s,v,a,b)符号表达式s关于变量v从 a到b的定积分.
当int求不出符号解,会自动转求数值解.
7. vb中调用模块中的函数
最佳的解决办法，是把这个函数放入公共模块（Module）文件中，并且设为公共的（Public），这样的话在所有窗体中都可以自由调用这个函数。
如果函数必须放在窗体中，则要注意：1、函数必须设为公共的；
2、函数中如果调用了窗体中的控件，则必须加上窗体前缀，比如Form1.Label1.Caption；
3、其他窗体调用这个函数时，务必加上窗体前缀，比如（假定函数名为abc）：x = Form1.abc()
8. vb常用语句与函数
1. p=ABS(X):取X的绝对值.2. p=Log(X):求X的自然对数.3. Y=Sgn(X):符号函数.说明: X>0时Y=1;X=0时 Y=0;X<0 时Y=-1.
9. vba调用函数
1.VBA ROWS函数的使用，ROWS为查找返回单元格行数函数。
2.实例：Sub test()
Dim a, b As Integer
a = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For b = a To 3 Step -1
If Application.WorksheetFunction.CountIf(Range("A3:A" & b), Range("A" & b)) > 1 Then
Rows(b).Delete shift:=xlUp
End If
Next b
End Sub
10. vb 函数调用
在菜单--工程--引用。选择你的DLL文件引用它
到你的窗体里引用。
声明
dimQmy_initasQmy_init
引用对于的函数就是
返回变量=Qmy_init.函数名（参数变量）
11. vb 引用excel
在VB中建立到excel表的连接，就可以打开文件了。。
然后读取excel文件的代码和VBA差不多，具体的自己调试下！
下面代码要求执行代码的电脑上必须安装了excel程序（这样可以不添加对excel的引用）。。
Dim xlsApp As Object, xlsWb As Object, xlsWs As Object '定义Excel对象
Set xlsApp = CreateObject("Excel.Application") '建立excel对象
Set xlsWb = xlsApp.Workbooks.Open(fPath) '要打开的文档路径
Set xlsWs = xlsWb.Worksheets(1) '选工作表。多张表时通过序号指定不同的表
xlsWs.Activate '选定工作表，下面就可以开始读取表内容了。
最后数据处理完成后记得执行下面操作：
xlsWb.Close '关闭excel文件
xlsApp.Quit '退出excel
Set xlsWs = Nothing
Set xlsWb = Nothing
Set xlsApp = Nothing