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"）。激活
**** Hidden Message *****

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

试试这个...
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

krampaul82 发表于 2013-1-18 15:40:51

它表示调用的对象已与其客户端断开连接。

krampaul82 发表于 2013-1-18 16:02:47

马特＜br＞我成功了！这是用户错误！想象一下
马克

Matt__W 发表于 2013-1-20 06:23:30

别客气！：kewl：
页: [1]
查看完整版本: 宏