宏

krampaul82 · 发表于 2013-1-18 12:38:50

下午好，可以从MSword vba应用程序打开Excel文档吗
迄今为止的代码
Sub Get_Req_for_WEBS（）
&039
&039；Get_Req_for_Web；这将打开特定于标记的Web信息表
；ChangeFileOpenDirectory；C： \gtc\u proj\VBA\u word\Excel\u 2007\u doc\Mark \“
&nbsp；文件。打开文件名：&nbsp&nbsp&nbsp&引用；C： \gtc\u proj\VBA\u word\Excel\u 2007\u doc\Mark\Excel*&quot我想在这里启动Excel文件&nbsp&nbsp&nbsp，ConfirmConversions:=假，只读：=假，AddToRecentFiles:=假&nbsp&nbsp&nbsp；密码文档：=“quot&quot；，密码模板：=“quot&quot；，恢复：=假，_&nbsp&nbsp&nbsp；WritePasswordDocument:=“quot&quot；，WritePasswordTemplate:=“quot&quot；，格式：&nbsp&nbsp&nbsp；wdOpenFormatAuto，XMLTransform:=“quot&引用
&nbsp'Windows（“Document1”）。激活&nbsp；结束
结束Sub
感谢您的帮助

Matt__W · 发表于 2013-1-18 12:49:10

也许这会有帮助
http://windowssecrets.com/forums/showthread.php/36036-Open-Excel-Wbk-from-Word-Doc-（VBA-Excel-Word-2000）

krampaul82 · 发表于 2013-1-18 13:04:49

谢谢你的轻推，马特

krampaul82 · 发表于 2013-1-18 15:03:51

下午好找到以下代码：
Sub OpenExcel\u Letter\u of\u trans（）
公共声明函数ShellExecute Lib；shell 32.dll“；别名；ShellExecuteA“；（ByVal hwnd As Long，ByVal lpOperation As String，ByVal lpFile As String、ByVal lpParameters As String和ByVal lpDirectory As String以及ByVal nShowCmd As Long）只要长
strDir=；五： \gtc\u proj\VBA\u word\Excell\u 2007\u doc \“
strFile=_主送文函。xls“
ShellExecute 0，&quot；“打开”；，strDir&amp；strFile，“&quot；，strDir，1 End Sub不起作用；不喜欢声明函数有什么想法吗
感谢任何帮助

Matt__W · 发表于 2013-1-18 15:22:58

试试这个…

copy

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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
Sub OpenExcel_Letter_of_trans()
   strDir = "V:\gtc_proj\VBA_word\Excell_2007_doc"
   strFile = "_Master Letter of Transmittal.xls"
   ShellExecute 0, "OPEN", strDir & strFile, "", strDir, 1
End Sub