vb调用excel打开(vb调用excel打开文件)

1. vb调用excel打开文件

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；

2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；

3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:\book1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing

2. excel vb 打开文件

首先，工程－引用microsoftExcel11.0)bjectLibrary然后代码如下：

DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application"

)SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他操作excel的代码，可以在excel中，点击菜单的工具——宏——录制新宏。

然后你手动对excel操作，操作完成后停止录制。

再点击工具——宏——visualbasic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的操作对应的vb代码了。

3. VB调用Excel

1.用Shell函数打开指定的文件夹

代码如下：

Sub exceloffice()

'*****************

'上面一连串代码

'最后打开文件夹看下效果

Dim sPath As String

sPath = "c:\test"

Shell "explorer.exe " & sPath, vbMaximizedFocus

End Sub

Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。

使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。

在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。

方法二：用Shell对象打开指定的文件夹

代码如下：

Sub exceloffice()

'*****************

'上面一连串代码

'最后打开文件夹看下效果

Dim sPath As String

sPath = "c:\test"

Dim oShell As Object

Set oShell = VBA.CreateObject("shell.application")

With oShell

.Open (sPath)

End With

End Sub

其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。

比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示

Sub exceloffice()

Set oShell = CreateObject("shell.application")

With oShell

'切换到桌面

.ToggleDesktop

'打开运行对话框

.FileRun

'关闭电脑，记得保存文件

.ShutdownWindows

End With

End Sub

4. vb 打开excel

Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next

5. vb6打开excel文档

Workbooks("XXXX.xls").Close False/True 将XXXX.xls换成你要关闭的文件名（必须确保已经打开），如果不保存关闭，则参数用False，反之用TRUE

6. vb如何打开

把vb编的软件导入到手机本地，然后用手机打开软件即可。

7. excel vbe怎么打开

需要在VBE界面上引用Excel库才能打开Excel文件。最简单的语句如下所示：

Sub test()

Dim xcl As New Excel.Application

Dim wbk As Workbook

Set wbk = xcl.Workbooks.Open("E:\1.xls")

xcl.Visible = True

End Sub

8. vb怎么实现打开文件

改名是不可以的。

VBP是VB的工程文件，双击可以打开。

FRM是窗体文件，一般是在VB中打开的。

如果打不开，应该检查VB安装的正确与否。不行可以修复安装一次。

----------------- 第二次答复的分割线 ----------------------------

我没看到你的问题中提到VS2010啊？VB6就是VS6.0的组件之一。

.net 环境在打开VB6的工程时，会问你是否要转化升级。

让它自动转化就行。最后生成的代码中凡是无法直接替换的部分都会有注释标出来。

9. 怎样在excel中打开vb程序

在视图中打开本地窗口，然后按f8键一句一句执行，可以在本地窗口中看到每一步执行的结果。如果有什么问题可以进行调整。

10. 打开excel会进行vb调试

电脑上新建Excel文件，例如命名为“Excel 工作表”~！！！

双击“Excel 工作表”，打开excel文件~！！！

键盘上按下Alt+F11，即可弹出VB的编程界面

VB编程界面的上方就是工具栏，和一般工具栏分布一样

VB编程界面的左上方就是所有Sheet的列表

VB编程界面的左下方就是某一Sheet的详细信息

VB编程界面的正中间就是编程的主要区域