VBS running Userform issue
0
I have a VBS that downloads an .xlsm file from a server and opens it.
When the .xlsm file opens, it shows a UserForm.
When I run a button on this UserForm it should fill a ComboBox, but instead of working properly the whole UserForm shuts down.
When I run the downloaded .xlsm file manually it works properly.
What can be the issue?
Here is my VBS
strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:WorkTestingTool.xlsm"
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)
This is what happens when I open the .xlsm file:
Private Sub Workbook_Open()
Site.Show vbModeless
End Sub
excel vba vbscript userform
edited Nov 24 '18 at 15:57
Theo
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
add a comment |
0
I have a VBS that downloads an .xlsm file from a server and opens it.
When the .xlsm file opens, it shows a UserForm.
When I run a button on this UserForm it should fill a ComboBox, but instead of working properly the whole UserForm shuts down.
When I run the downloaded .xlsm file manually it works properly.
What can be the issue?
Here is my VBS
strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:WorkTestingTool.xlsm"
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)
This is what happens when I open the .xlsm file:
Private Sub Workbook_Open()
Site.Show vbModeless
End Sub
excel vba vbscript userform
edited Nov 24 '18 at 15:57
Theo
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16
add a comment |
0
0
0
I have a VBS that downloads an .xlsm file from a server and opens it.
When the .xlsm file opens, it shows a UserForm.
When I run a button on this UserForm it should fill a ComboBox, but instead of working properly the whole UserForm shuts down.
When I run the downloaded .xlsm file manually it works properly.
What can be the issue?
Here is my VBS
strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:WorkTestingTool.xlsm"
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)
This is what happens when I open the .xlsm file:
Private Sub Workbook_Open()
Site.Show vbModeless
End Sub
excel vba vbscript userform
edited Nov 24 '18 at 15:57
Theo
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
I have a VBS that downloads an .xlsm file from a server and opens it.
When the .xlsm file opens, it shows a UserForm.
When I run a button on this UserForm it should fill a ComboBox, but instead of working properly the whole UserForm shuts down.
When I run the downloaded .xlsm file manually it works properly.
What can be the issue?
Here is my VBS
strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:WorkTestingTool.xlsm"
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)
This is what happens when I open the .xlsm file:
Private Sub Workbook_Open()
Site.Show vbModeless
End Sub
excel vba vbscript userform
excel vba vbscript userform
edited Nov 24 '18 at 15:57
Theo
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
edited Nov 24 '18 at 15:57
Theo
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
edited Nov 24 '18 at 15:57
Theo
6,0973521
edited Nov 24 '18 at 15:57
Theo
6,0973521
edited Nov 24 '18 at 15:57
Theo
6,0973521
6,0973521
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
asked Nov 23 '18 at 10:58
Aleksandar PanicAleksandar Panic
1
1
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16
add a comment |
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16
add a comment |
0
active
oldest
votes
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53445393%2fvbs-running-userform-issue%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53445393%2fvbs-running-userform-issue%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Do you have error reporting on so it reports errors thrown in Excel's VBA?
– Riley Carney
Nov 26 '18 at 18:16