宏

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

下午好
是否可以从MSword vba应用程序打开Excell文档？
到目前为止的代码
SubGet_Req_for_WEBS（）
'
'Get_Req_for_WEBS
'这将打开特定于Mark的WEBS信息表
'
ChangeFileOpenDirectory"C：\gtc_proj\VBA_word\Excel_2007_doc\Mark\"
Documents.OpenFileName：=_
"C：\gtc_proj\VBA_word\Excel_2007_doc\Mark\EXCEL。*"_这是我想启动Excel文件
的地方，确认转换：=False， ReadOnly：=False， AddToRecentFiles：=False，_
PasswordDocument：="， PasswordTemboard：="， Revert：=False，_
WritePasswordDocument：="， WritePasswordTemboard：="， Format：=_
wdOpenFormatAuto， XMLTransform：="
'Windows（"Document1"）。激活

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

下午好
找到这段代码：
SubOpenExcel_Letter_of_trans（）
Public Declare Function ShellExecute Lib"shell32.dll"Alias"ShellExecuteA"（ByVal hwnd As Long， ByVal lpAction As String， ByVal lpFile As String， ByVal lpParameters As String， ByVal lpDirectory As String， ByVal nShowCmd As Long）As Long
strDir="V：\gtc_proj\VBA_word\Excell_2007_doc\"
strFile="_MasterTransmittal.xls"
ShellExecute 0，"OPEN"， strDir&strFile，"， strDir，1
结束Sub
不工作不喜欢Declare函数有什么想法吗？
任何帮助赞赏
Mark

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