VB打开EXCEL地方法..

VB打开EXCEL的方法

一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open("文件名")

这种语法同样要求excel已经存在才能操作。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook

Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets.Add

xlSheet.Cells(1, 1) = "测试" '写入内容

xlBook.SaveAs ("FILENAME") '保存文件

xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlA pp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。

★打开相对路径下的文件

Private Sub Command1_Click()

Shell App.Path & "\aaa.bat"

End Sub

还有更简单的:

Private Sub Command1_Click()

Shell "aaa.bat"

End Sub

aaa.bat就是那个BAT的名字.

那就不一定......

因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件(包括文件夹)

代码:

Private Sub Command1_Click()

Shell "explore.exe aaa.jpg"

End Sub

★VB调用EXCEL自带的查询功能在表格中查找内容

Private Sub ComCx_Click()

On Error GoTo 50

i = xlBook.Worksheets("代码").Range("A:A").Find(Trim(TexDm.Text)).Ro w

★将程序中所有这一类的对象的某一属性全部更改为需要的属性

Dim Item As Object '定义对象

For Each Item In Me

If TypeOf Item Is TextBox Then Item.Text = "" '将所有TextBox的Tex t属性值变为空

If TypeOf Item Is ComboBox Then Item.ListIndex = -1 '将所有的Co mboBox的ListIndex属性值变为“-1”

Next

If Not i = 0 Then

Dm = Trim(TexDm.Text)

Sm = Trim(xlBook.Worksheets("代码").Cells(i, "B").Value)

Dw = Trim(xlBook.Worksheets("代码").Cells(i, "D").Value)

TexSm.Text = Sm & " " & "(" & Dw & ")"

ComQd.Visible = True

GoTo 100

End If

50

TexSm.Text = "没有找到相匹配的信息！"

100

End Sub

★如何使编的程序可以调用excel

首先要引用

再定义对象及其类型

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("D:\检包组\合金厂代码查询\xls\合金JDE代码.xls")

xlApp.Visible = False

Set xlSheet = xlBook.Worksheets("确认信息")

★另存为

ChDir "D:\"

ActiveWorkbook.SaveAs Filename:="D:\合金厂产品质检明细表.xls", Fil eFormat:=xlExcel8, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=F alse, _

CreateBackup:=False

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作

带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，

如何把它们有机地结合在一起，是一个值得我们研究的课题。

一、VB读写EXCEL表：

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Librar y（EXCEL2000），然后选择"确定"。表示在工程中要引用

EXCEL类型库。