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

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

马特，我成功了！这是用户错误！想象一下
谢谢你的帮助

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

你&#039；欢迎再次光临&nbsp&nbsp；：kewl：
页: [1]
查看完整版本: 宏