VBS qui déclenche une macro via HTA (ne peut pas exécuter la macro)

J'ai un script HTA qui déclenche finalement la partie vbs du code pour appeler une macro VBA, mais pour une raison quelconque, je reçois cette erreur:VBS qui déclenche une macro via HTA (ne peut pas exécuter la macro)

J'ai déjà fait en sorte que l'accès Trust à VBA soit activé, donc j'ai l'impression que c'est quelque chose dans mon code qui n'est pas compatible HTA. Voici le code: Merci d'avance pour votre temps.

<html> 
<title>Report Generation</title> 
<head> 
<HTA:APPLICATION 
APPLICATIONNAME="Report Generation" 
ID="objHTA" 
SCROLL="yes" 
SINGLEINSTANCE="yes" 
WINDOWSTATE="normal"> 
</head> 

<style> 
BODY 
{ 
background-color: buttonface; 
Font: arial,sans-serif 
margin-top: 10px; 
margin-left: 20px; 
margin-right: 20px; 
margin-bottom: 5px; 
} 
.button 
{ 
width: 91px; 
height: 25px; 
font-family: arial,sans-serif; 
font-size: 8pt; 
} 
td 
{ 
font-family: arial,sans-serif; 
font-size: 10pt; 
}      
#scroll 
{ 
height:100%; 
overflow:auto; 
} 
SELECT.FixedWidth 
{ 
width: 17em; /* maybe use px for pixels or pt for points here */ 
} 
</style> 

<script language="vbscript"> 
Option Explicit  

Dim WinWidth : WinWidth = 350 
Dim WinHeight : WinHeight = 250 
Window.ResizeTo WinWidth, WinHeight 


Sub Sleep(lngDelay) 
    CreateObject("WScript.Shell").Run "Timeout /T " & lngDelay & " /nobreak", 0, True 
End Sub 

Sub CheckBoxChange 
    If CheckBox(0).Checked Then 
    ExecuteScoreCard 
    Else 
    MsgBox "CheckBox is not checked" 
    End If 
End Sub 

Sub ExecuteScoreCard() 
    Dim sitecode 
    Dim objExcel 
    Dim objWorkbook 
    Dim objSheet 

    dim fso: set fso = CreateObject("Scripting.FileSystemObject") 
    dim path: path = fso.GetAbsolutePathName(".") 

    Set objExcel = CreateObject("Excel.Application") 
    Set objWorkbook = objExcel.Workbooks.Open(path & "\Scorecard.xlsm") 
    Set objSheet = objWorkbook.Worksheets("Cover Tab") 

    sitecode = document.getElementById("sitecode").value 

    objSheet.Cells(4, 2) = sitecode 
    objExcel.Run "RefreshConns" 
    Sleep 75 

    objExcel.ActiveWorkbook.SaveAs path & "\Scorecards\" & "Scorecard_" & sitecode & "_" & Year(Now()) & Month(Now()) & Day(Now()) & "_" & Hour(Now()) & Minute(Now()) &".xlsm", 52 
    objExcel.ActiveWorkbook.Close 
    objExcel.Quit 

    MsgBox("Successfully generated scorecard.") 

End Sub 

Sub ExitProgram 
    window.close() 
End Sub 

</script> 

<body> 
    Site Code: <input type="inputbox" name="sitecode" id="sitecode"> 
<br> 
    <input type="checkbox" name="CheckBox"> Scorecard 
<br> 
    <input type="checkbox" name="CheckBox"> Report2 
<br> 
    <input type="checkbox" name="CheckBox"> Report3 
<br> 
<br> 
    <input type="submit" name="accept" value="Submit" onclick="CheckBoxChange"> 
    <input type="button" value="Exit" onClick="ExitProgram"> 
</body> 
</html>

Source

2016-05-24 midiman

Où ** exactement ** dans le classeur se trouve la routine 'RefreshConns'? – Rory

@Rory c'est dans un module dans le dossier VBAProject du classeur – midiman

** Which ** module? – Rory

objWorkbook.RunAutoMacros (1)

ci-dessus comprennent ligne de code dans le code de HTA avant la ligne objExcel.Run "de RefreshConns".

Source

2016-06-10 12:53:59

Comme je connais plus longtemps l'accès à la VBS, je ne peux pas tester si cela fonctionne ou pas, mais je vais en prendre note si je dois la mettre à jour à nouveau. apprécié. – midiman

VBS qui déclenche une macro via HTA (ne peut pas exécuter la macro)

Répondre

Questions connexes