Попытка вызвать документ Excel из документа Word - PullRequest
Новая
       43

Попытка вызвать документ Excel из документа Word

0 голосов
/ 23 марта 2020

У меня есть настроенная вкладка в Word, где пользователи могут щелкнуть по имени конкретного документа, и он откроется как новый документ Word. Мне нужно добавить шаблон Excel, который будет вызываться таким же образом, но я думаю, что мне нужно определить его каким-то образом, чтобы Word это сделал.

Вот процедура и все .dot и. Шаблоны dotm вызываются без проблем. Но в случае «btnHR7» есть шаблон Excel, и он не работает так, как он у меня: 

Sub SplitHR_OnAction(ByVal control As IRibbonControl)
    Select Case control.ID
        Case "btnHR1"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\ACCIDENT INCIDENT FORM.dotm", NewTemplate:=False
        Case "btnHR2"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\ACCIDENT INCIDENT FORM.dotm", NewTemplate:=False
        Case "btnHR3"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\AD-HOC TIME TAKEN.dot", NewTemplate:=False
        Case "btnHR4"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\Application for Leave.dot", NewTemplate:=False
        Case "btnHR5"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\Application for RDOs - AD.dot", NewTemplate:=False
        Case "btnHR6"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\Application for RDOs - IN.dot", NewTemplate:=False
        Case "btnHR7"
            Documents.Add Template:=oExcel.Workbooks.Open("\\FAPVM\sstu_shared\Templates\SSTUWA Normal\Time Sheet Casual.xltm"), NewTemplate:=False
        Case "btnHR8"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\ADMIN - ELECT WORKING HRS.dotm", NewTemplate:=False
        Case "btnHR9"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\NEW EMPLOYEE INFORMATION.dotm", NewTemplate:=False
        Case "btnHR10"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\Overtime Application.dot", NewTemplate:=False
        Case "btnHR11"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\PD APPLICATION FORM.doc", NewTemplate:=False
        Case "btnHR12"
             Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\RDO Alteration.dotm", NewTemplate:=False
        Case "btnHR13"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\REQUEST FOR TRAVEL.dot", NewTemplate:=False
        Case "btnHR14"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\TOIL APPLICATION - CL.dot", NewTemplate:=False
        Case "btnHR15"
            Documents.Add Template:="\\FAPVM\sstu_shared\Templates\SSTUWA Normal\TOIL APPLICATION - IN.dot", NewTemplate:=False
        End Select

End Sub

Я убедился, что в разделе «Ссылки» отмечена галочка для библиотеки объектов Microsoft Excel 14.0.

Фактическая вкладка в слове использует MyRibbon. xml для отображения значков для различных документов, а подпрограмма, содержащая вышеприведенное, выглядит следующим образом: 


        <button id="btnHR9" label="NEW EMPLOYEE INFORMATION " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" />     
        <button id="btnHR10" label="Overtime Application " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" /> 
                    <button id="btnHR11" label="PD APPLICATION FORM " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" />
                    <button id="btnHR12" label="RDO Alteration " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" /> 
        <button id="btnHR13" label="REQUEST FOR TRAVEL " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" />
        <button id="btnHR14" label="TOIL APPLICATION - CLERICALS " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" />
                    <button id="btnHR15" label="TOIL APPLICATION - INDUSTRIAL " imageMso="MasterDocumentShow" onAction="Module1.SplitHR_OnAction" />  
    </menu> 
</splitButton>

Как позвонить шаблон Excel из рутин? Нужно ли добавлять подпрограмму, определяющую документ Excel?

...