用VB操作Excel(VB6.0)(整理)
用VB操作Excel(VB6.0)(整理)全面控制Excel:
首先创建Excel对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1)显示当前窗口：
ExcelID.Visible:=True;
2)更改Excel标题栏：
ExcelID.Caption:='应用程序调用MicrosoftExcel';
3)添加新工作簿：
ExcelID.WorkBooks.Add;
4)打开已存在的工作簿：
ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');
5)设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)给单元格赋值：
ExcelID.Cells[1,4].Value:='第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米
9)在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;
10)在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak:=0;
11)指定边框线宽度：
ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
1-左2-右3-顶4-底5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式：
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13)设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1]https://www.360docs.net/doc/7e19289714.html,:='隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color :=clBlue; ExcelID.ActiveSheet.Rows[1].Font.Bold :=True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;
14)进行页面设置：
a.页眉：
ExcelID.ActiveSheet.PageSetup.CenterHeader:='报表演示'; b.页脚：
ExcelID.ActiveSheet.PageSetup.CenterFooter:='第&P页';
c.页眉到顶端边距2cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035;
d.页脚到底端边距3cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035;
e.顶边距2cm：
ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035;
f.底边距2cm：
ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035;
g.左边距2cm：
ExcelID.ActiveSheet.PageSetup.LeftMargin:=2/0.035;
h.右边距2cm：
ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035;
i.页面水平居中：
ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035; j.页面垂直居中：
ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035; k.打印单元格网线：
ExcelID.ActiveSheet.PageSetup.PrintGridLines:=True;
15)拷贝操作：
a.拷贝整个工作表：
https://www.360docs.net/doc/7e19289714.html,ed.Range.Copy;
b.拷贝指定区域：
ExcelID.ActiveSheet.Range['A1:E2'].Copy;
c.从A1位置开始粘贴：
ExcelID.ActiveSheet.Range.['A1'].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelID.ActiveSheet.Range.PasteSpecial;
16)插入一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)删除一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;
19)打印输出工作表：
ExcelID.ActiveSheet.PrintOut;
20)工作表保存：
IfnotExcelID.ActiveWorkBook.Savedthen
ExcelID.ActiveSheet.PrintPreview
Endif
21)工作表另存为：
ExcelID.SaveAs('C:\Excel\Demo1.xls');
22)放弃存盘：
ExcelID.ActiveWorkBook.Saved:=True;
23)关闭工作簿：
ExcelID.WorkBooks.Close;
24)退出Excel：
ExcelID.Quit;
25)设置工作表密码:
ExcelID.ActiveSheet.Protect"123",DrawingObjects:=True,Contents:=True,Scena rios:=True
26)EXCEL的显示方式为最大化
ExcelID.Application.WindowState=xlMaximized
27)工作薄显示方式为最大化
ExcelID.ActiveWindow.WindowState=xlMaximized
28)设置打开默认工作薄数量
ExcelID.SheetsInNewWorkbook=3
29)'关闭时是否提示保存(true保存；false不保存)
ExcelID.DisplayAlerts=False
30)设置拆分窗口,及固定行位置
ExcelID.ActiveWindow.SplitRow=1
ExcelID.ActiveWindow.FreezePanes=True
31)设置打印时固定打印内容
ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"
32)设置打印标题
ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""
33)设置显示方式(分页方式显示)
ExcelID.ActiveWindow.View=xlPageBreakPreview
34)设置显示比例
ExcelID.ActiveWindow.Zoom=100
35)让Excel响应DDE请求
Ex.Application.IgnoreRemoteRequests=False
用VB操作EXCEL示例代码
Private Sub Command3_Click()
On Error GoTo err1
Dim i As Long
Dim j As Long
Dim objExl As Excel.Application '声明对象变量
Me.MousePointer=11 '改变鼠标样式
Set objExl=New Excel.Application'初始化对象变量
objExl.SheetsInNewWorkbook=1 '将新建的工作薄数量设为1
objExl.Workbooks.Add'增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name="book1" '修改工作薄名称objExl.Sheets.Add,objExl.Sheets("book1")‘增加第二个工作薄在第一个之后objExl.Sheets(objExl.Sheets.Count).Name="book2"
objExl.Sheets.Add,objExl.Sheets("book2")‘增加第三个工作薄在第二个之后objExl.Sheets(objExl.Sheets.Count).Name="book3"
objExl.Sheets("book1").Select '选中工作薄
For i=1 To 50'循环写入数据
For j=1 To 5
If i=1 Then
objExl.Selection.NumberFormatLocal="@" '设置格式为文本
objExl.Cells(i,j)="E"&i&j
Else
objExl.Cells(i,j)=i&j
EndIf
Next
Next
objExl.Rows("1:1").Select '选中第一行
objExl.Selection.Font.Bold=True '设为粗体
objExl.Selection.Font.Size=24 '设置字体大小
objExl.Cells.EntireColumn.AutoFit '自动调整列宽
objExl.ActiveWindow.SplitRow=1 '拆分第一行
objExl.ActiveWindow.SplitColumn=0 '拆分列
objExl.ActiveWindow.FreezePanes=True '固定拆分
objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1" '设置打印固定行objExl.ActiveSheet.PageSetup.PrintTitleColumns=""'打印标题
objExl.ActiveSheet.PageSetup.RightFooter="打印时间:"&_
Format(Now,"yyyy年mm月dd日hh:MM:ss")
objExl.ActiveWindow.View=xlPageBreakPreview'设置显示方式
objExl.ActiveWindow.Zoom=100 '设置显示大小
'给工作表加密码
objExl.ActiveSheet.Protect"123",DrawingObjects:=True, _ Contents:=True,Scenarios:=True
objExl.Application.IgnoreRemoteRequests=False
objExl.Visible=True '使EXCEL可见
objExl.Application.WindowState=xlMaximized'EXCEL的显示方式为最大化objExl.ActiveWindow.WindowState=xlMaximized'工作薄显示方式为最大化objExl.SheetsInNewWorkbook=3 '将默认新工作薄数量改回3个
Set objExl=Nothing'清除对象
Me.MousePointer=0 '修改鼠标
ExitSub
err1:
objExl.SheetsInNewWorkbook=3
objExl.DisplayAlerts=False '关闭时不提示保存
objExl.Quit'关闭EXCEL
objExl.DisplayAlerts=True '关闭时提示保存
Set objExl=Nothing
Me.MousePointer=0
End Sub
Private Sub Command3_Click()
On Error GoTo err1
Dim i As Long
Dim j As Long
Dim objExl As Excel.Application '声明对象变量
Me.MousePointer = 11 '改变鼠标样式
Set objExl = New Excel.Application '初始化对象变量
objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
objExl.Workbooks.Add '增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称
objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后
objExl.Sheets(objExl.Sheets.Count).Name = "book2"
objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后
objExl.Sheets(objExl.Sheets.Count).Name = "book3"
objExl.Sheets("book1").Select '选中工作薄
For i = 1 To 50 '循环写入数据
For j = 1 To 5
If i = 1 Then
objExl.Selection.NumberFormatLocal = "@" '设置格式为文本
objExl.Cells(i, j) = " E " & i & j
Else
objExl.Cells(i, j) = i & j
End If
Next
Next
objExl.Rows("1:1").Select '选中第一行
objExl.Selection.Font.Bold = True '设为粗体
objExl.Selection.Font.Size = 24 '设置字体大小
objExl.Cells.EntireColumn.AutoFit '自动调整列宽
objExl.ActiveWindow.SplitRow = 1 '拆分第一行
objExl.ActiveWindow.SplitColumn = 0 '拆分列
objExl.ActiveWindow.FreezePanes = True '固定拆分
objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" '设置打印固定行
objExl.ActiveSheet.PageSetup.PrintTitleColumns = "" '打印标题 objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _
Format(Now, "yyyy年mm 月dd日 hh:MM:ss")
objExl.ActiveWindow.View = xlPageBreakPreview '设置显示方式
objExl.ActiveWindow.Zoom = 100 '设置显示大小
'给工作表加密码
objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
objExl.Application.IgnoreRemoteRequests = False
objExl.Visible = True '使EXCEL可见
objExl.Application.WindowState = xlMaximized 'EXCEL的显示方式为最大化
objExl.ActiveWindow.WindowState = xlMaximized '工作薄显示方式为最大化
objExl.SheetsInNewWorkbook = 3 '将默认新工作薄数量改回
3个
Set objExl = Nothing '清除对象
Me.MousePointer = 0 '修改鼠标
Exit Sub
err1:
objExl.SheetsInNewWorkbook = 3
objExl.DisplayAlerts = False '关闭时不提示保存
objExl.Quit '关闭EXCEL
objExl.DisplayAlerts = True '关闭时提示保存
Set objExl = Nothing
Me.MousePointer = 0
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
全面控制 Excel
首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 显示当前窗口：ExcelID.Visible := True;
2) 更改 Excel 标题栏：ExcelID.Caption := '应用程序调用 Microsoft Exce l';
3) 添加新工作簿：ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿：ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;
或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：ExcelID.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度：
ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式：ExcelID.ActiveSheet.Cells[1,4].ClearC ontents;
13) 设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1]https://www.360docs.net/doc/7e19289714.html, := '隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold := True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 进行页面设置：
a.页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2 /0.035;
k.打印单元格网线：ExcelID.ActiveSheet.PageSetup.PrintGridLines := T rue;
15) 拷贝操作：
a.拷贝整个工作表：https://www.360docs.net/doc/7e19289714.html,ed.Range.Copy;
b.拷贝指定区域：ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecia l;
d.从文件尾部开始粘贴：ExcelID.ActiveSheet.Rang
e.PasteSpecial;
16) 插入一行或一列：
a. ExcelID.ActiveSheet.Rows[2].Insert;
b. ExcelID.ActiveSheet.Columns[1].Insert;
17) 删除一行或一列：
a. ExcelID.ActiveSheet.Rows[2].Delete;
b. ExcelID.ActiveSheet.Columns[1].Delete;
18) 打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;
19) 打印输出工作表：
ExcelID.ActiveSheet.PrintOut;
20) 工作表保存：
If not ExcelID.ActiveWorkBook.Saved then
ExcelID.ActiveSheet.PrintPreview
End if
21) 工作表另存为：
ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );
22) 放弃存盘：
ExcelID.ActiveWorkBook.Saved := True;
23) 关闭工作簿：
ExcelID.WorkBooks.Close;
24) 退出 Excel：ExcelID.Quit;
25) 设置工作表密码:
ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=Tr ue, Scenarios:=True
26) EXCEL的显示方式为最大化
ExcelID.Application.WindowState = xlMaximized
27) 工作薄显示方式为最大化
ExcelID.ActiveWindow.WindowState = xlMaximized
28) 设置打开默认工作薄数量
ExcelID.SheetsInNewWorkbook = 3
29) '关闭时是否提示保存(true 保存；false 不保存) ExcelID.DisplayAlerts = False
30) 设置拆分窗口,及固定行位置
ExcelID.ActiveWindow.SplitRow = 1
ExcelID.ActiveWindow.FreezePanes = True
31) 设置打印时固定打印内容
ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
32) 设置打印标题
ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""
33) 设置显示方式(分页方式显示)
ExcelID.ActiveWindow.View = xlPageBreakPreview
34) 设置显示比例
ExcelID.ActiveWindow.Zoom = 100
35) 让Excel 响应 DDE 请求
Ex.Application.IgnoreRemoteRequests = False
用VB操作Excel(VB6.0)(整理)
用V B操作E x c e l(V B6.0)(整理) 全面控制Excel: 首先创建Excel对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application ? 1)显示当前窗口： ? ExcelID.Visible:=True; 2)更改Excel标题栏： ? ExcelID.Caption:='应用程序调用MicrosoftExcel'; 3)添加新工作簿： 4)打开已存在的工作簿： 5)设置第2个工作表为活动工作表：
? ExcelID.WorkSheets[2].Activate; 或ExcelID.WorkSheets['Sheet2'].Activate; 6)给单元格赋值： ? ExcelID.Cells[1,4].Value:='第一行第四列'; 7)设置指定列的宽度（单位：字符个数），以第一列为例： 8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 9)在第8行之前插入分页符： ? ExcelID.WorkSheets[1].Rows[8].PageBreak:=1; 10)在第8列之前删除分页符： 11)指定边框线宽度： ? 1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式： 13)设置第一行字体属性： 14)进行页面设置： a.页眉： b.页脚： c.页眉到顶端边距2cm： d.页脚到底端边距3cm：
e.顶边距2cm： f.底边距2cm： g.左边距2cm： h.右边距2cm： i.页面水平居中：j.页面垂直居中：k.打印单元格网线：
VB6.0
vb6.0中如何把EXCEL表格中的数据导入到access库中 不知道VB和VBA有什么差别啊以下是我学习VBA的代码，看看吧Public Sub 将数据库记录数据全部导入到excel 工作表ADO之一() Dim myData As String, myTable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer '清除工作表的全部数据ActiveSheet.Cells.Clear myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库myTable = "期末成绩" '指定数据表'建立与数据库的连接Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表SQL = "select * from " & myTable & " order by 性别" Set rs = New ADODB.Recordset rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic '显示查询结果MsgBox "数据库中的记录数为：" & rs.RecordCount '复制记录数据If rs.RecordCount > 0 Then '复制字段名For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据Range("A2").CopyFromRecordset rs '设置工作表格式ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing '·recordset对象的copyfromrecordset方法: '用于将一个ADO或DAO的recordset对象的内容复制到工作表中，复制的起始位置在指定区域的左上角。' 语法：expression.copyfromrecordset(data,maxrows,maxcolumns) 'expression表示一个工作表的range对象；'data为必需参数，指定复制到指定区域的recordset对象；'maxrows(可选):指定复制到工作表的记录个数上限，省略为复制所有记录；'maxcolumns(可选)：指定复制到工作表的字段个数上限，省略将复制对象的所有字段'copyfromrecordset方法只是复制记录集的记录数据，并不复制字段名，下列语句用fields集合的count属性获取字段总数，在循环中利用field对象的name属性获取字段名。'For i = 1 To rs.Fields.Count ' Cells(1, i) = rs.Fields(i - 1).Name 'Next i '复制的记录是从当前行开始的内容，复制完成之后，recordset 对象的EOF属性值为True,因此在复制recordset对象内容后，如要重新浏览记录集的话，需使用rs.movefirst将记录指针移到第一条记录。'·SQL语句: 'sqlect 字段列表from 子句（表名）where 条件group by 性别(分组) having avg(工资总额)>5000 (与group by 一起用) order by 姓名asc(升序)/desc(降序) End Sub ' 引用：microsoft activeX data objects 2.x library Public Sub 将数据库记录数据全部导入到excel工作表ADO之二() Dim myData As String, myTable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库myTable = "期末成绩" '指定数据表'建立与数据库的连接Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表SQL = "select * from " & myTable & " order by 数学" Set rs = cnn.Execute(SQL) '复制记录数据If rs.EOF And rs.BOF Then MsgBox "数据表中没有记录！", vbCritical Else '复制字段名For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据Range("A2").CopyFromRecordset rs '设置工作表格式ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub ' 引用：microsoft activex data objects 2.x library Public Sub 将数据库记录数据全部导入到Excel工作表ADO之三() Dim myData As String, myTable As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer ActiveSheet.Cells.Clear '清除工作表的全部数据myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库myTable = "期末成绩" '指定数据表'建立与数据库的连接Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表Set rs = New ADODB.Recordset rs.Open myTable, cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect '显示查询结果MsgBox "数据库中的记录数为：" & rs.RecordCount ' 复制记录数据If rs.RecordCount > 0 Then '复制字段名For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据Range("A2").CopyFromRecordset rs '设置工作表格式ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing '·注之一1与之三的区别：'实例3-1中语句rs.open sql,cnn,adopenkeyset,adlockoptimistic和实例3-3中语句rs.open mytable,cnn,adopenkeyset,adlockoptimistic,adcmdtabledirect的区别：前者使用了sql语句来实现对数据
用VB操作Excel详解
用VB操作Excel详解 一、VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用 EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值'给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对 EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL 对象，则VB程序会产生自动化错误。形成 VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。 二、EXCEL的宏功能： EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个 "模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()） ，另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭 宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令 xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。 三、VB与EXCEL的相互勾通： 充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下： 在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在
word2003、excel2003及vb6.0操作知识点
word2003操作知识点 一、“格式” 1、字体对话框： （1）“字体”选项卡：字形、字号、字体颜色、下划线线型及颜色、着重号、效果（删除线，双删除线，上标，下标，阴影，空心，阳文，阴文，小型大写字母，全部大写字母，隐藏文字） （2）“字符间距”选项卡：缩放，间距（标准，加宽，紧缩），位置（标准，提升，降低）。（3）“文字效果”选项卡：设置动态的文字效果。 2、“段落”对话框：对齐方式、缩进、特殊格式、间距（段前、段后、行距） 3、边框和底纹：格式-边框和底纹（其中，改边框时的顺序是：颜色-线型-设置） 4、分栏；首字下沉；背景 二、查找和替换：“编辑” 三、文件-页面设置中 （1）页边距；（2）纸张；（3）板式（包括行号）； 四、视图-页眉页脚 五、插入-图片/艺术字/自选图形/文本框 对象（包括组合对象）的格式设置：颜色与线条、大小、板式（对齐方式、图片位置、文字环绕）。 Vb6.0操作知识点 一、CommandButton：宽（width）、高（height）、标题（caption）、font（字体、字号等）、 名称（name） 二、TextBox：大小：高（height）和宽（width）；font（字体、字号等）；前景色（forecolor）； 位置：上边距（top）和左边距（left）；名称（name）；text：显示内容； 加滚动条：multiline：文本是否显示为多行（true为是） Scrollbar：0为无，1为水平滚动条，2为垂直滚动条 三、Label：标题（caption）；font（字体、字号等）；名称（name）；前景色（forecolor）； AutoSize：自动大小（决定控件是否自动改变大小以显示内容：true为控件适 应内容） 四、form：宽（width）、高（height）、标题（caption）、背景色（backcolor） 五、optionbutton：标题（caption）；默认值设置（value：true为选中）；font（字体、字号等） 六、checkbox：名称（name）；标题（caption）；默认值设置：value（0：无；1：选择；2： 选择并为灰）；font（字体、字号等） Excel2003操作知识点 一、数据录入：有规律数据用自动填充功能； 二、工作表的操作 工作表的插入：例如，在sheet2前插入一新工作表则：右击“sheet2”——“插入”——菜单中选择“工作表”——“确定” 重命名：右击标签——“重命名”——输入名称——按回车键 删除：右击标签——“删除”
用VB操作Excel的方法
用VB操作Excel的方法 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作 带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统， 如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用 EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值'给单元格（row,col）赋值
在VB6.0应用程序中调用Excel2000
Visual Basic简称(VB)是设计Windows应用程序强有力的开发工具，“全球绝大多数Windows应用程序都是用VB开发的”；Excel是目前使用最广泛的办公应用软件之一，它具有强大的数学分析与计算功能，包括很多VB没有的求值数学表达式的函数和方法。由于Excel的应用程序对象是外部可创建的对象，所以能从VB应用程序内部来程序化操纵Excel。本文结合自己的实践和体会，谈谈如何在VB6.0应用程序中调用Exce12000，供大家参考。 一、Excel对象模型 为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有： 二、调用Excel 在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 1、在VB工程中添加对Excel类型库的引用 为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下： a）从VB5“工程”菜单中选择“引用”；
b）在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"； c）单击左边小方框，使之出现“√”符号； d）按“确定”退出。 注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。 2、引用Application对象 Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量： 或直接声明为Excel对象： 在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。 a）用CreateObject函数生成新的对象引用： 字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。
vb操作excel教程
VB操作EXCEL VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值'给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB 程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL 的状况，使得VB与EXCEL脱节。 二、EXCEL的宏功能： EXCEL提供一个Visual Basic编辑器，打开V isual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。 三、VB与EXCEL的相互勾通： 充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下： 在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。 四、举例：
VB操作Excel常用语句
定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示 (5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False '关闭屏幕刷新 Application.ScreenUpdating=True '打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能 工作簿 (8) Workbooks.Add() '创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿 (10) ThisWorkbook.Save '保存工作簿 (11) ThisWorkbook.close '关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数 (13) https://www.360docs.net/doc/7e19289714.html, '返回活动工作薄的名称 (14) https://www.360docs.net/doc/7e19289714.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.360docs.net/doc/7e19289714.html,edRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后 (23) Worksheets(Array(“sheet1”,”sheet2”)).Select '同时选择工作表1和工作表2 (24) Sheets(“sheet1”).Delete或Sheets(1).Delete '删除工作表1 (25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称 (26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮 (27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示 (28) https://www.360docs.net/doc/7e19289714.html,edRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式
vb调用excel方法大全文档
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并采用 项目中的“MicrosoftExcel11.0objectlibrary ”项。因为你的Excel版本不一样，因此这个选项的版本号也是不一样的。 因为EXCEL是以层次结构组织对象的，其对象模型中含有好多不一样的对象元素。 第一层：Application对象，即Excel自己； 第二层：workbooks对象集，指Excel的工作簿文件 第三层：worksheets对象集，表示的是Excel的一个工作表； 第四层：Cells和Range对象，指向Excel工作表中的单元格。 新建立一个VB 的工程，先放一个button，名称为Excel_Out。先定义好各层：DimxlappAsExcel.Application'Excel 对象 DimxlbookAsExcel.Workbook'Di mxlsheetAsExcel.Worksheet' 工作簿工作表 我们打当作的是：打开/新建一个excel，在此中对某工作表的一些单元格更正其值，然后另存为test.xls文件。 PrivateSubExcel_Out_Click( ) Dimi,jAsInteger Setxlapp=CreateObject("Excel.Application")'创立EXCEL对象 'Setxlbook=xlapp.Workbooks.Open(App.Path&"\test.xls")'打开已经存在的test.xls工件簿文件 Setxlbook=xlapp.Workbooks.Add'新建EXCEL工件簿文件 'xlbook.RunAutoMacros(xlAutoOpen)'运转EXCEL启动宏 'xlbook.RunAutoMacros(xlAutoClose)'运转EXCEL关闭宏 xlapp.Visible=True'设置EXCEL对象可见（或不行见） Setxlsheet=xlbook.Worksheets(1)'设置活动工作表'' ''~~~当前工作簿的第一页,这里也可以换成“表名” '下边就是简单的在一些单元格内写入数字 Fori=7To15 Forj=1To10 xlsheet.Cells(i,j)=j'当前工作簿第一页的第I行第J列 Nextj Nexti Withxlsheet'设置边框为是实线 .Range(.Cells(7,1),.Cells(28,29)).Borders.LineStyle=xlContinuous EndWith '引用当前工作簿的第二页 Setxlsheet=xlapp.Application.Worksheets(2) xlsheet.Cells(7,2)=2008'在第二页的第7行第2列写入2008 xlsheet.SaveAsApp.Path&"\test.xls"'按指定文件名存盘 'Setxlbook=xlapp.Application.Workbooks.Add'新建一空白工作簿 xlapp.Quit'结束EXCEL对象 Setxlapp=Nothing'开释xlApp对象 EndSub
excelvb语法
excelvb语法 Excel VBA（Visual Basic for Applications）是一种编程语言，用于在Excel中编写宏和自定义功能。它允许用户编写脚本来 自动执行各种任务，从简单的数据处理到复杂的报告生成和用户界 面设计。以下是一些Excel VBA的基本语法： 1. Sub和End Sub，Sub是子程序的开始，End Sub标记子程序 的结束。子程序是一组执行特定任务的代码块。 2. Dim，用于声明变量。例如，Dim x As Integer声明一个名 为x的整数变量。 3. If...Then...Else语句，用于执行条件性的代码块。例如，If x > 10 Then...Else... 4. For...Next循环，用于重复执行一组语句。例如，For i = 1 To 10...Next i. 5. Do...Loop循环，另一种用于重复执行一组语句的循环结构。例如，Do While x < 10...Loop.
6. Select Case语句，用于根据表达式的值执行不同的代码块。例如，Select Case x Case 1 To 5...Case 6 To 10... 除了以上列举的基本语法外，Excel VBA还包括许多其他功能，如数组、函数、对象和事件处理等。通过灵活运用这些语法，可以 实现各种复杂的自动化和定制化任务。 总之，Excel VBA语法提供了丰富的功能和灵活性，使用户能 够以编程的方式控制Excel应用程序，从而实现更高效的数据处理 和报表生成等任务。希望这些信息能够帮助你更好地理解Excel VBA的语法和功能。
excel教程vb
excel教程vb Excel是一款功能强大的电子表格软件，广泛应用于商业、教 育和个人领域。它具有丰富的功能和灵活的操作方式，可以帮助用户高效地处理和分析数据。 在Excel中，我们可以创建表格、图表、公式等各种元素，以 便更好地整理和展示数据。在本教程中，我将介绍如何使用 VB（Visual Basic）编程语言来扩展Excel的功能，使其能够 自动化处理数据和完成复杂的计算任务。 首先，我们需要打开Excel并创建一个新的工作表。在工作表中，我们可以添加数据，设置格式，改变字体等。同时，我们还可以使用Excel提供的函数和公式来进行简单的计算和分析。 然而，当我们需要处理大量的数据或者需要进行复杂的计算时，手动操作可能会变得非常繁琐和耗时。这时，使用VB编程语 言可以帮助我们自动化这些任务，提高处理数据的效率。 在Excel中，我们可以使用VBA（Visual Basic for Applications）来编写和执行VB程序。首先，我们需要启用开发者选项卡， 然后打开Visual Basic编辑器。在编辑器中，我们可以编写和 调试VB代码，并将其应用于Excel工作表。 下面，我将介绍一些常用的VB代码和函数，以及它们在 Excel中的应用： 1. 定义变量：在VB中，我们可以使用Dim语句来定义变量。
例如，Dim x As Integer表示定义一个整型变量x。 2. 循环语句：在VB中，我们可以使用For循环和Do While 循环来重复执行某个操作。例如，For i = 1 To 10表示从1到10逐个执行操作。 3. 条件语句：在VB中，我们可以使用If语句来根据特定条件执行不同的操作。例如，If x > 0 Then表示如果x大于0，则执行某个操作。 4. 函数和子程序：在VB中，我们可以定义自己的函数和子程序来完成特定的任务。例如，Function Sum(a, b)表示定义一个求和函数，返回a和b的和。 5. 对象和方法：在Excel中，我们可以通过VB代码来操作各种对象和调用相应的方法。例如，Range("A1").Value = 10表示将单元格A1的值设为10。 通过使用上述的VB代码和函数，我们可以使用Excel自动化处理数据和完成复杂的计算任务。例如，我们可以编写一个VB程序来对大量的数据进行排序、过滤和计算等操作。 除了基本的VB代码和函数，Excel还提供了许多其他的高级功能和技巧，如宏、事件处理、图表生成等。通过深入学习和掌握这些技术，我们可以更好地发挥Excel的潜力，并将其运用到实际的工作中。 总结起来，Excel是一款强大的电子表格软件，可以帮助用户
VB操作EXCEL
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作 带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统， 如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用 EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对 EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成 VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。 二、 EXCEL的宏功能：
vb中使用excel对象的方法
vb中使用excel对象的方法 Dim ExApp As New Excel.Application Dim ExBook As Excel.Workbook Dim ExWorksheet As Excel.Worksheet Set ExApp = New Excel.Application Set ExBook = ExApp.Workbooks.Open("Excel文件路径") Set ExWorksheet = ExBook.Worksheets.Item(1)'第一个工作表 访问单元格用: ExWorksheet.Cells(row, col)'分别为行,列 结束时要: ExApp.Workbooks.Close ExApp.Quit 下面的内容来自百度文库：vb使用excel关键词搜到的内容 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Ex cel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。 因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 第一层：Application对象，即Excel本身； 第二层：workbooks对象集，指Excel的工作簿文件 第三层：worksheets对象集，表示的是Excel的一个工作表； 第四层：Cells和Range对象，指向Excel工作表中的单元格。 新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层： Dim xlapp As Excel.Application 'Excel对象 Dim xlbook As Excel.Workbook '工作簿
VB6.0 导出excel 方法源代码
VB6.0 导出excel 方法源代码 方法一： 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者写成CSV格式 方法二： 直接把查询结果导出成Excel工作表 Public Sub Export(formname As Form, flexgridname As String) Dim xlApp As Object 'Excel.Application Dim xlBook As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Screen.MousePointer = vbHourglass On Error GoTo Err_Proc Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) 'Begin to fill data to sheet Dim i As Long Dim j As Integer Dim k As Integer With formname.Controls(flexgridname) For i = 0 To .rows - 1 k = 0 For j = 0 To .Cols - 1 If .colwidth(j) > 20 Or .colwidth(j) < 0 Then k = k + 1 xlSheet.Cells(i + 1, k).Value = "'" & .TextMatrix(i, j) End If Next j Next i End With xlApp.Visible = True Screen.MousePointer = vbDefault Exit Sub Err_Proc: Screen.MousePointer = vbDefault MsgBox "请确认您的电脑已安装Excel！", vbExclamation,"提示" End Sub =================================== Public Function ExporToExcel(strOpen As String)