vb中对excel编程操作实例

❶ 使用vb编程对excel进行读写运算

在VB6中，添加引用“Microsoft Excel object Library”
过程中加入下列代码，就能读写EXCEL单元格了：
Set FileSys = CreateObject("scripting.filesystemobject")
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置Excel不可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") '打开Excel工作簿 temp.xls
Set xlsheet = xlBook.Worksheets(1) '打开Excel工作表(Sheet1)
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "日期"
xlsheet.Cells(1, 2) = "时间"
程序结束时要用以下代码关闭EXCEL：
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象

❷ 如何通过VB操作EXCEL

Private Sub Command1_Click()
If ZID(Text1) = 0 Then
MsgBox "对不起，没找到您输入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\客户资料.xls")
Text2 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Text3 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
End If
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
Function ZID(ID As String) As Integer
Dim I As Integer
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\学生信息.xlsx")
I = 1
Do
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = "" Then
ZID = 0
Exit Function
End If
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = Form1.Text1 Then
ZID = I
Exit Do
End If
I = I + 1
Loop
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
End Function
Private Sub Command2_Click()
If ZID(Text1) = 0 Then
MsgBox "对不起，没找到您输入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\学生信息.xlsx")
Val(Text2) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Val(Text3) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
xlBook.Save
End If

On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
请参阅我的博客：http://hi..com/zgmg/blog/item/ab8d2dd1888dbcdf572c84bf.html

❸ vb 操作EXCEL 源代码 实现功能以下

一、先建立一个窗口
1、新建一工作表。
2、点击“工具→宏→Visual Basic编辑器”。
3、点击“插入→用户窗体”。
4、在窗体上添加1个“文字框”（用来输入要搜索的数字）；2个“命令按钮”（1个为搜索按钮，1个为删除按钮）。

二、编写代码
1、搜索A列是不是存在数字框的数字，如下：

Private Sub 搜索_Click()

If TextBox1 = "" Then
MsgBox "请输入要搜索的数字。"
Exit Sub
End If

Set r = ActiveSheet.Range("A:A").Find(TextBox1)
If r Is Nothing Then
MsgBox "在A列没有找到要搜索的数字。"
Exit Sub
End If

ActiveSheet.Range(r.Address).Select
MsgBox "在" & r.Address & "发现要搜索的数字“" & TextBox1 & "”，若要删除此行请点击“删除”。"

End Sub

2、搜到的哪一行删除，如下：

Private Sub 删除_Click()
Selection.Rows.Delete
End Sub

❹ VB操作EXCEL，在vb界面中对指定的excel文件写入数据

可以的。
1楼办法还行，不过要是已经有1万行了，那就要先循环1万次在添加数据。
所以，要先获取最后一行的行数，然后加1，这个就是那个空单元格，就在这个单元格里填写数据了。

❺ 如何在EXCEL里用VB编程用VB操作，不用公式了

公式和VBA其实各有各的适用情况，当然大部分的情况下公式能完成的VBA都能完成，不过VBA也有缺点，就是需要触发，很多情况下，由于没有触发条件，你需要点击按钮或手工运行VBA。而公式的优点就是能自动重算。这个情况在数据删除时特别明显，因为VBA对行列或区域删除不敏感。还有就是VBA会降低Excel应用的安全性，这个也是平时要特别注意的。

❻ vb调用excel方法大全

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 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 '工作簿
Dim xlsheet As Excel.Worksheet '工作表

我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。

Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
''~~~当前工作簿的第一页,这里也可以换成“表名”

'下面就是简单的在一些单元格内写入数字
For i = 7 To 15
For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列
Next j
Next i

With xlsheet '设置边框为是实线
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
End With

'引用当前工作簿的第二页
Set xlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008
xlsheet.SaveAs App.Path & "\test.xls" '按指定文件名存盘
'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close

Set xlapp = Nothing '释放xlApp对象

End Sub

这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：

1．创建Excel对象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．设置第3个工作表为激活工作表
eole.Worksheets(〃sheet3〃).Activate
4．打开指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5．显示Excel窗口
eole.visible=.t.
6．更改Excel标题栏
eole.Caption=〃VB应用程序调用Microsoft Excel〃
7．给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名)
8．设置指定列的宽度(单位：字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．设置指定行的高度(单位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(设定行高为1厘米，1磅=0.035厘米)
10．在第18行之前插入分页符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11．在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13．设置四个边框线条的类型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
14．设置页眉
eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃
15．设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃
16．设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．设置顶边距为2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．设置底边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．设置左边距为2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．设置右边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．设置页面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．设置页面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．设置页面纸张大小(1－窄行8�5�11 39－宽行14�11)
eole.ActiveSheet.PageSetup.PaperSize=1
25．打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷贝整个工作表
eole.ActiveSheet.UsedRange.Copy
27．拷贝指定区域
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28．粘贴
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．设置字体
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃
32．设置字体大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．设置字体为斜体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．设置整列字体为粗体
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除单元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．打印预览工作表
eole.ActiveSheet.PrintPreview
37．打印输出工作表
eole.ActiveSheet.PrintOut
38．工作表另存为
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39．放弃存盘
eole.ActiveWorkbook.saved=.t.
40．关闭工作簿
eole.Workbooks.close
41．退出Excel
eole.quit

❼ 用VB在excel中编程

打开开发工具窗口，然后新建一个模块就可以写vb代码了
或者按住alt+F11就打开vba编辑窗口了。

❽ 怎样利用Excel进行VB编程

ConstC1=10'连续数调整值
ConstC2=15'非连续数调整值
ConstS=10'设定连续范围
Subprocess()
Dima,i!,j!,d!,n
Range("A1").Sortkey1:=Range("A1"),order1:=xlAscending
a=WorksheetFunction.Transpose(Range("A1:A"&[A65536].End(xlUp).Row))
Fori=1ToUBound(a)
d=a(i)+S
Forj=iToUBound(a)
Ifj+1>UBound(a)ThenExitFor
Ifa(j+1)>dThenExitFor
Next
Ifi=jThen'非连续数
a(i)=a(i)-C2
Else'连续数
n=a(i)-C1
Fork=iToj
a(k)=n
Next
i=j
EndIf
Next
Range("B1").Resize(UBound(a))=WorksheetFunction.Transpose(a)
EndSub

❾ vb如何调用excel函数

1. 单元格地址，在VBA公式中，应该用：range("f1:f400")例：=sum(f1:f400)写成 =application.sum(range("f1:f400")) worksheetfunction是可以省略的。

   初学时不省最好，因为有些函数在VBA中是不可用的，不省它，就会提示你有哪些函数可用。

   offset是表示区域的。

   在VBA写公式的时候，可以用resize来代替另：以上功能，建议不要用工作表公式来写。

2. 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

3. 因为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 '工作簿

Dim xlsheet As Excel.Worksheet '工作表

4. 我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。

Private Sub Excel_Out_Click()

Dim i, j As Integer

Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象

'Set xlbook = xlapp.Workbooks.Open(App.Path & " est.xls") '打开已经存在的test.xls工件簿文件

Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件

'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

xlapp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''

''~~~当前工作簿的第一页,这里也可以换成“表名”

'下面就是简单的在一些单元格内写入数字

For i = 7 To 15

For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列

Next j

Next i

With xlsheet '设置边框为是实线

.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous

End With

'引用当前工作簿的第二页

Set xlsheet = xlapp.Application.Worksheets(2)

xlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008

xlsheet.SaveAs App.Path & " est.xls" '按指定文件名存盘

'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close

Set xlapp = Nothing '释放xlApp对象

End Sub

5， 这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：

1．创建Excel对象

eole=CREATEOBJECT(′Excel.application′)

2．添加新工作簿

eole.Workbooks.add

3．设置第3个工作表为激活工作表

eole.Worksheets(〃sheet3〃).Activate

4．打开指定工作簿

eole.Workbooks.Open(〃c: empll.xls〃)

5．显示Excel窗口

eole.visible=.t.

6．更改Excel标题栏

eole.Caption=〃VB应用程序调用Microsoft Excel〃

7．给单元格赋值

eole.cells(1,4).value=XM(XM为数据库字段名)

8．设置指定列的宽度(单位：字符个数)

eole.ActiveSheet.Columns(1).ColumnWidth=5

9．设置指定行的高度(单位：磅)

eole.ActiveSheet.Rows(1).RowHeight=1/0.035

(设定行高为1厘米，1磅=0.035厘米)

10．在第18行之前插入分页符

eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1

11．在第4列之前删除分页符

eole.ActiveSheet.Columns(4).PageBreak=0

12．指定边框线宽度(Borders参数如下)

ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3

13．设置四个边框线条的类型

eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1

(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)

14．设置页眉

eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃

15．设置页脚

eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃

16．设置页眉到顶端边距为2厘米

eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035

17．设置页脚到底边距为3厘米

eole.ActiveSheet.PageSetup.FooterMargin=3/0.035

18．设置顶边距为2厘米

eole.ActiveSheet.PageSetup.TopMargin=2/0.035

19．设置底边距为4厘米

eole.ActiveSheet.PageSetup.BottomMargin=4/0.035

20．设置左边距为2厘米

veole.ActiveSheet.PageSetup.LeftMargin=2/0.035

21．设置右边距为2厘米

eole.ActiveSheet.PageSetup.RightMargin=2/0.035

22．设置页面水平居中

eole.ActiveSheet.PageSetup.CenterHorizontally=.t.

23．设置页面垂直居中

eole.ActiveSheet.PageSetup.CenterVertically=.t.

24．设置页面纸张大小(1－窄行8?5?11 39－宽行14?11)

eole.ActiveSheet.PageSetup.PaperSize=1

25．打印单元格网线

eole.ActiveSheet.PageSetup.PrintGridlines=.t.

26．拷贝整个工作表

eole.ActiveSheet.UsedRange.Copy

27．拷贝指定区域

eole.ActiveSheet.Range(〃A1:E2〃).Copy

28．粘贴

eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial

29．在第2行之前插入一行

eole.ActiveSheet.Rows(2).Insert

30．在第2列之前插入一列

eole.ActiveSheet.Columns(2).Insert

31．设置字体

eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃

32．设置字体大小

eole.ActiveSheet.Cells(1,1).Font.Size=25

33．设置字体为斜体

eole.ActiveSheet.Cells(1,1).Font.Italic=.t.

34．设置整列字体为粗体

eole.ActiveSheet.Columns(1).Font.Bold=.t.

35．清除单元格公式

eole.ActiveSheet.Cells(1,4).ClearContents

36．打印预览工作表

eole.ActiveSheet.PrintPreview

37．打印输出工作表

eole.ActiveSheet.PrintOut

38．工作表另存为

eole.ActiveWorkbook.SaveAs(〃c: emp22.xls〃)

39．放弃存盘

eole.ActiveWorkbook.saved=.t.

40．关闭工作簿

eole.Workbooks.close

41．退出Excel

eole.quit

❿ vb编写excel程序

Dim XlApp as New Excel.Application '生成新的Excel实例。这是关键的步聚。
新的Excel实例可以不受系统中其他Excel进程的影响。
还有、退出时释放Excel的Application哦。就是QUIT方法执行后加上设置为Nothing。
修改如下：
Private Sub Commandaa_Click()
Dim xlApp As New Excel.Application
'这下面这个就不要了。需要在工程中引用Excel对象。
'Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Open CommonDialog9.FileName
.Workbooks(CommonDialog9.FileTitle).Sheets("输配系统气量日报").Cells(1, 1) = "165641649496161654984945"
.Workbooks(CommonDialog9.FileTitle).SaveAs "F:\ddddd.xls"
.Workbooks("ddddd.xls").close
.Quit
End With
MsgBox "您的报表已生成，并放置在F盘下，谢谢使用本软件", , "友情提示"
set xlApp=nothing

End Sub