1.引用excel的代码（使用vb程序设计，非excel内vb使用）

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

2.使用自选excel文件代码（使用vb程序设计，非excel内vb使用）

Dim FileName, SheetName As String

filePath = Application.GetOpenFilename(Title:="选择文件", MultiSelect:=False)

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(filePath)

xlApp.Visible = True

xlApp.WindowState = xlMinimized //最小化窗口（在表格内使用去掉引用xlApp）

以下为表内的调用

set FD=application.filedialog（msofilediaalogfilepicker）//必要

with FD

.title="选择文件"

.allowmultiselect=true

.initiaalfilename="C:\"  //初始路径

end with

FD.show  // 显示弹框

set path=FD.selecteditems

msgbox path（1）  //输出路劲

3.激活表内某一个表（在表格内使用去掉引用xlBlook）

xlBook.Sheets("xxxx").Activate //xxx为表名

Set xlSheet = xlBook.Worksheets("xxxx") //激活后设置表内内容

4.编辑某一个单元格

Range("K1").Select //K1 为单元格位置

ActiveCell.FormulaR1C1 = "xxxx" //在K1单元格填写xxxx

5.获取某一个单元格值

xlSheet.Range("K1").Value //获取K1的值

6.筛选代码

Range("B3:B5").Select

Range("B5").Activate

ActiveSheet.Range("$A$3:$I$1601").AutoFilter Field:=2, Criteria1:="筛选名称" // 根据筛选位置改变括号位置

7.excel函数使用说明

=SUM //求和

=IF //条件

=VLOOKUP // 查找 （已知，其他地方寻找区域，返回寻找区域列数，1/0（模糊/精确））

=SUBTOTAL //分类汇总，可以筛选后返回总数

8.返回某一列最后一个单元格行号

range("A65536").end(xlup).row    //A65536：A为列，数字为范围。

9.表格内窗体的调用

窗体名称.show /.hide      //一个现实一个隐藏，age：userform1.show

10.表格内模块调用

call 模块名称.模块名称  //age：call a1.a1

11.vba使用除法保留两位小数

round(数字,保留位数)  //age：round（51.789,2）  结果为51.79

12.excel表格窗体，标签，文本框属性、赋值和调用

窗体：userform1            //基本无赋值，属性在对象资源调整

标签：lable1                    //lable1.caption=xxx    标签内容赋值 属性在对象资源调整

文本框：textbox1           //textbox1.text=xxx  文本框内容赋值 属性在对象资源调整

（资源循环时麻烦，建议手动输入）

不同窗体内标签等调用需要明示窗体名称  //age： userform1.label1.caption=xxx       给窗体1中的标签1赋值xxx。

文本框同理，变量无法使用，需要使用控件传递。

13.vba基础函数

msgbox （）  //输出

inputbox （）// 输入

14.打开固定工作簿，激活工作表

workbooks.open（"包含路劲的文件名"）  //set wb=workbooks.open（"包含路劲的文件名"）

set sh=wb.sheets（"sheet1"） //激活sheet1

sh.range("A1")=内容   //a1输入内容