vb打开指定excel文件?1、调用Excel对象打开EXCEL文件后,读取文件内容\x0d\x0a***\x0d\x0a在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项。那么,vb打开指定excel文件?一起来了解一下吧。
1、调用Excel对象打开EXCEL文件后,读取文件内容\x0d\x0a***************************************\x0d\x0a在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。\x0d\x0a \x0d\x0a因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。\x0d\x0a第一层:Application对象,即Excel本身;首慧\x0d\x0a第二层:workbooks对象集,指Excel的工作簿文件\x0d\x0a第三层:worksheets对象集,表示的是Excel的一个工作表;\x0d\x0a第四层:Cells和Range对象,梁芹郑指向Excel工作表中的单元格。\x0d\x0a新建立一个VB的工程,先放一个button,名称为Excel_Out。先定义好各层:\x0d\x0aDim xlapp As Excel.Application 'Excel对象\x0d\x0aDim xlbook As Excel.Workbook '工作簿\x0d\x0aDim xlsheet As Excel.Worksheet '工作表\x0d\x0a我们打算做的是:打开/新建一个excel,在其中对某工作表的一些单元格修改其值,然后另存为test.xls文件。
打开有VB程序的excel表,再打开你迅散需要的excel表,按alt+F8就嫌搜可以了,然后点击执行选择你需要执行的excel表亩者氏哈
1、在工程中引用Microsoft Excel类型库:
从"工程"菜单中选择"引用"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声拍氏明过程中定义EXCEL对象:
Dim xlApp AsExcel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet AsExcel.Worksheet
3、在程序中操作EXCEL表常用命令:
Set xlApp = CreateObject("Excel.Application")'创建EXCEL对象
Set xlBook =xlApp.Workbooks.Open("文件名")'打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet =xlBook.Worksheets("表名") '设置活动工作表
xlApp.Cells(row, col) =值蚂搏 '给单元格(row,col)赋值
XLApp.Cells(i, 1).Interior.ColorIndex= i'设计单元格颜色i=1--56
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros(xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros(xlAutoClose) '运行EXCEL关闭宏
自己用代码就可以获取颜色袭物散列表了
Sub yansecode()
For i = 1 To 56
XlApp.Cells(i, 1) = i
xlapp.Cells(i,1).Interior.ColorIndex = i
Next
End Sub
VB的Shell函数,就是启动exe文消敏件用的。
其格式是:
Shell(文件标识符[,windowstyle])
例如:在我的计算机里启动excel 2010
Dim n
n = Shell("C:\陪迟Program Files\Microsoft Office\Office14\excel.exe", 1)
这里:C:\Program Files\Microsoft Office\Office14\excel.exe,是我计算机里EXCEL的安装路径
1 ---- 是芦桥李指以最大化窗口启动
可以利用中的excel打开 excel文件槐没。
excel 本身是支持参数的敏明宴桥银。
你可以参照。
Private Sub Command1_Click()
Dim a
a = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\aa.xls", vbNormalFocus)
End Sub
以上就是vb打开指定excel文件的全部内容,此外,你需要在 VBA 编辑器中的适当模块中插入此代码。通过按下 Alt + F11,可以打开 VBA 编辑器,并在其中的适当位置创建一个模块。将代码复制粘贴到该模块中,然后运行代码即可自动打开 Excel 文件。请注意。