肿么在vb中打开excel ppt文件-ZOL问答

8个回答默认排序

默认排序

按时间排序

没找到满意答案？去问豆包AI智能助手

取消复制问题

已采纳

打开Excel文件的VB代码示例：
```
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlWorkbook = xlApp.Workbooks.Open("d:hao1.xls")
Set xlSheet = xlWorkbook.Sheets(1)
```
打开PPT文件的VB代码示例：
1. 使用Windows的函数ShellExecute来打开文件。在程序中声明该函数，并通过以下代码来打开PPT文件：
```vb
Public Declare Function ShellExecute Lib "shell32" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
ShellExecute(Me.hwnd, vbNullString, "d:emp827.ppt", vbNullString, vbNullString, vbNullString, 1)
```
2. 使用VB自带的函数SHELL来打开文件。以下代码展示了如何使用SHELL来打开PPT文件：
```vb
Public Declare Function SHELL Lib "user32" ( _
ByVal cmd As Long, _
ByVal args As String, _
ByVal application As Long, _
ByVal flags As Long) As Long
SHELL 1, "d:emp827.ppt", 1, 0
```
其中，第一参数cmd表示使用SHELL打开文件的操作码，第二参数args表示打开时的参数字符串，第三参数application表示应用程序句柄，第四参数flags表示打开选项。

取消评论

PPT模板推荐

首先得获取X盘是移动盘

取消评论

1019hu

选项卡是Word和Excel都有的是:
文件、开始、视图、格式、工具

取消评论

sdasadsda

shell C:\Program Files\vc6.6\vc.exe d:\ti\xxx.xxx
xxx.xxx就是你的VC题

取消评论

645249242

【问题描述】：
Word，excel等无法正常打开一般是由于文件本身损坏，或者office程序出现故障导致的。如果是个别文档打不开，最好是在其他电脑试试这些文档，排除文档本身损坏的可能。如果在其他电脑可以正常打开，这个可以尝试修复office文件，或者安装openoffice、wps等办公软件解决。假如您电脑本身没有安装相关的办公软件，建议您直接尝试方案三。
【解决方案】：
方案一：删除office模板文件
1.
C:Documents
and
Settings用户名Application
DataMicrosoftTemplatesNormal.dot
删除该文件即可。
方案二：如果您自己有office安装程序，可以尝试卸载office后重新安装看看。由于该程序涉及到微软版权等相关法律问题，目前这边没有相关资料无法为您提供下载信息，请您谅解；
方案三：

1.打开‘360软件管家’，搜索免费的OpenOffice下载安装使用，此免费版本可以支持常用的Word、Excel、PPT。
也可以下载安装wps软件
http://www.wps.cn/

取消评论