一、excel中如何通过VBA打开word文件和ppt文件？

wo.Documents.Open ThisWorkbook.Path & \流程.doc

wo.Visible = True

二、打开ppt文件代码：方法1：

Set wo = CreateObject(Powerpoint.Application)

wo.Visible = True

wo.Presentations.Open ThisWorkbook.Path & filename方法2：Sub dd()Dim filepath$, filename$

filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)

Shell POWERPNT.EXE & filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。

这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。

二、excel vba做出一个打开文件对话框：

Sub SelectFile()

Application.DisplayAlerts = False

fil = ThisWorkbook.Name

Filename = Application.GetOpenFilename(Excel 文件 ,*.xls;*.xlsx)

If Filename <> False Then

aFile = Split(Filename, \)

sfilename = aFile(UBound(aFile))

End If

Workbooks.Open (Filename)

Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells

Workbooks(sfilename).Close

Application.DisplayAlerts = True

End Sub

三、excel vba 关于打开一个excel文件的问题

Dim f As String

f = d:\book2.xls

If Dir(f) = Then

MsgBox 文件不存在

Exit Sub

Else: GoTo fileexist

End If

fileexist:

'以下是你的代码

四、excel2013关于VBA密码破解的教程

在 Excel 中可能有些重要数据需要修改，但遗憾的是忘记了密码。这个时候就需要进行对文件密码的。下面是我带来的关于excel2013关于VBA密码的教程，欢迎阅读!

excel2013关于VBA密码的教程 教程1：将你要的Excel文件关闭，切记一定要关闭呀!然后新建一个Excel文件

excel2013关于VBA密码的教程图1 教程2：打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示

excel2013关于VBA密码的教程图2 教程3：将代码复制到这个模块中，代码如下：

Private Sub VBAPassword() '你要解保护的Excel文件路径

Filename = Application.GetOpenFilename(Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt, , VBA)

If Dir(Filename) = Then

MsgBox 没找到相关文件,清重新设置。

Exit Sub

Else

FileCopy Filename, Filename & .bak '备份文件。

End If

Dim GetData As String * 5

Open Filename For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = CMG= Then CMGs = i

If GetData = [Host Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox 请先对VBA编码设置一个保护密码..., 32, 提示

Exit Sub

End If

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不 配对 符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox 文件解密成功......, 32, 提示

Close #1

End Sub

excel2013关于VBA密码的教程图3 教程3：然后点击运行按钮，如图所示，绿色的小三角就是

excel2013关于VBA密码的教程图4 教程4：你会看到，打开了一个文件夹，找到我们要的这个文件，然后点击打开

excel2013关于VBA密码的教程图5 教程5：稍等几分钟你就会看到成功的提示了

excel2013关于VBA密码的教程图6