vb只打开办公软件excel一次
1. 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
2. vb6打开excel文档
不，两者大不一样，ecxel只有vb6中的VBA运行库，vb6是一个完整的开发环境，可以说excel除了vba运行库以外与vb6完全不同。
3. 怎样在excel中打开vb程序
①打开Excel表格，点击【开发工具】、【Visual Basic】调出VBE编辑器，或者使用【Alt+F11】组合键调出VBE编辑器。
②在Sheet1的代码框里边输入以下VBA程序，再按【F5】键运行程序。
Sub Do_Events()
Dim n
On Error Resume Next '忽略运行过程中可能出现的错误
n = 10000000 '执行的循环四次
For i = 1 To n
Application.StatusBar = "已完成：" & Round(i * 100 / n, 2) & "%"
'将结果在Excel状态栏上面显示
Next
End Sub
③回到Excel表格界面，工作表无法进行操作。
④在Sheet1代码框的For……Next循环里面加入“DoEvents”语句，再按下【F5】键运行程序。
⑤回到Excel表格界面，工作表在VBA程序运行时可以进行操作。
注意事项：转让控制权“DoEvents”需要放置在For……Next循环里面才有效。
4. vb 打开excel
快捷键alt+F11键，即可打开VB编辑界面
5. vb如何打开excel文件
你是不是安装了两个office，安装多个可以共存，但是vba无法共存。
解决方法是，需要哪个版本的重新安装就可以了。如果不是这个原因，你也可以重新安装，也能解决此问题。6. excel如何打开vb
你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。
你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。
7. excel vb怎么打开
Sub test11() Dim path, file, wb As Workbook Application.ScreenUpdating = False path = Application.ThisWorkbook.path & "\" file = Dir(path & "*.xls*") Do While file <> "" If file <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & file) wb.Worksheets("围护结构位移").Range("F5:F24").Copy ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) wb.Close savechanges:=False End If file = Dir Loop Application.ScreenUpdating = True End Sub
8. vb如何打开文件
1首先打开VB6——点击新建——选择标准EXE——点击打开。如果没有新建对话框，那么点击文件——新建工程——选择标准EXE后点击确定。
2第二步，先在左侧工具箱把commondialog 部件拖放到窗体那里，然后再点击一下命令控件并在窗体那里画一个方框，命令控件按钮就画出来——右击命令按钮，选择属性窗口——在属性窗口那里把Caption属性改为：打开。（如果工具箱那里没有commondialog 部件，右击任一控件——选择部件——然后找到common dialog control选项，勾选后点击确定就会出现了）
3第三步，添加代码。右击命令按钮——选择查看代码——然后在弹出的代码编辑界面输入如下图的代码
4第四步，检测语句。点击调试——然后选择逐语句或逐过程，就会自动检测是否有问题。如果没问题就可以点击运行——启动——然后就会弹出打开文件窗口。
5第五步，保存工程并生成工程。点击文件——选择保存工程，然后选择保存路径并命名后点击保存。同样点击文件——选择生成工程，然后选择路径——点击确定就生成工程了。
6最后，也可以工具箱那里选择 DIRLISTBOX控件，然后双击该控件并输入如下图的代码
9. 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
10. vb 打开excel文件
vb.net没用过，vb6.0的话可以用getobject这种方法，你可以改改试试，看能不能用
Dim xlApp As Object
Set xlApp = GetObject(ExcelFileName).Application '获取Excel对象
11. excel vbe怎么打开
1/6
在Excel中，窗体已经消失了，现在我们需要把窗体调出来。
2/6
按下”Alt+F11“组合键，打开VBE编辑器界面。
3/6
在VBE编辑器界面的下面找到”立即窗口“，在立即窗口中输入代码“Application.DisplayStatusBar = true”后按回车键立即执行。
4/6
这个时候鼠标会跳到立即窗口的第二行上闪烁，也不会有什么文字提示之类的，VBE编辑器界面也不会关闭。
5/6
单击VBE编辑器界面右上角的关闭按钮，将VBE编辑器关闭。
6/6
关闭VBE编辑器界面后，回到Excel界面，我们可以看到，在程序的下面又重新显示出窗体来了。