ExcelBanter - macro vbscript doesn't run !!! I am desperate! I need help

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - macro vbscript doesn't run !!! I am desperate! I need help (https://www.excelbanter.com/excel-programming/360673-macro-vbscript-doesnt-run-i-am-desperate-i-need-help.html)

macro vbscript doesn't run !!! I am desperate! I need help

Hello,

I have a problem with a vbscript code or my vba code I do not know
anymore; my vbscript code it works as I tried to others file and it
executes the macro included but the problem is when I execute one file;
the file.

if I do not execute this scripts my file; the file works well.

what I tried to do it is to open excel and execute one macro in sheet1
and another in sheet2. that's all.

but the macro is estremily compress as I need another programs to
execute it. (cause of some addins such as function for date, currency
and others stuff coming from a specific program) Do you thingk that
the problem can be the addins. I do not know what to do anynmore

this is my code:

<HTML
<HEAD
<SCRIPT LANGUAGE=VBScript
Dim objExcel 'As Excel.Application
Dim objWkB 'As Excel.Workbook
Sub Btn1_onclick()
OpenSheet "getfunctiontest.xls"
End Sub

Sub OpenSheet(strLocation)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
'Application.EnableEvents = True
objExcel.Workbooks.Open(strlocation)
<HTML
<HEAD
<SCRIPT LANGUAGE=VBScript
Dim objExcel 'As Excel.Application
Dim objWkB 'As Excel.Workbook
Sub Btn1_onclick()
OpenSheet "getfunctiontest.xls"
End Sub

Sub OpenSheet(strLocation)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
'Application.EnableEvents = True
objExcel.Workbooks.Open(strlocation)
'objExcel.run objWkB.name &"!"&"thisworkbook.workbook_open"
End Sub
</SCRIPT
<TITLELaunch Excel</Title
</HEAD
<BODY
<INPUT TYPE=BUTTON NAME=Btn1 VALUE="Openfunction Sheet"
</BODY
</HTML

End Sub
</SCRIPT
<TITLELaunch Excel</Title
</HEAD
<BODY
<INPUT TYPE=BUTTON NAME=Btn1 VALUE="Openfunction Sheet"
</BODY
</HTML

any help is appreciated.

thanks

Ina

macro vbscript doesn't run !!! I am desperate! I need help

If your code depends on addins, addins are not loaded when open excel using
automation. You have to load them specifically with your code if you want to
use them.

--
Regards,
Tom Ogilvy

"ina" wrote:

Hello,

I have a problem with a vbscript code or my vba code I do not know
anymore; my vbscript code it works as I tried to others file and it
executes the macro included but the problem is when I execute one file;
the file.

if I do not execute this scripts my file; the file works well.

what I tried to do it is to open excel and execute one macro in sheet1
and another in sheet2. that's all.

but the macro is estremily compress as I need another programs to
execute it. (cause of some addins such as function for date, currency
and others stuff coming from a specific program) Do you thingk that
the problem can be the addins. I do not know what to do anynmore

this is my code:

<HTML
<HEAD
<SCRIPT LANGUAGE=VBScript
Dim objExcel 'As Excel.Application
Dim objWkB 'As Excel.Workbook
Sub Btn1_onclick()
OpenSheet "getfunctiontest.xls"
End Sub

Sub OpenSheet(strLocation)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
'Application.EnableEvents = True
objExcel.Workbooks.Open(strlocation)
<HTML
<HEAD
<SCRIPT LANGUAGE=VBScript
Dim objExcel 'As Excel.Application
Dim objWkB 'As Excel.Workbook
Sub Btn1_onclick()
OpenSheet "getfunctiontest.xls"
End Sub

Sub OpenSheet(strLocation)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
'Application.EnableEvents = True
objExcel.Workbooks.Open(strlocation)
'objExcel.run objWkB.name &"!"&"thisworkbook.workbook_open"
End Sub
</SCRIPT
<TITLELaunch Excel</Title
</HEAD
<BODY
<INPUT TYPE=BUTTON NAME=Btn1 VALUE="Openfunction Sheet"
</BODY
</HTML

End Sub
</SCRIPT
<TITLELaunch Excel</Title
</HEAD
<BODY
<INPUT TYPE=BUTTON NAME=Btn1 VALUE="Openfunction Sheet"
</BODY
</HTML

any help is appreciated.

thanks

Ina

macro vbscript doesn't run !!! I am desperate! I need help

and do you have any idea how or where can I such information

thank a lot Tom

at least I know a little more now :D

Ina

macro vbscript doesn't run !!! I am desperate! I need help

Ina,

You can install add-ins with code like

Application.AddIns("Analysis ToolPak").Installed = True

Change "Analysis ToolPak" to the name that appears in the Add-Ins
dialog box (under the Tools menu).

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"ina" wrote in message
oups.com...
and do you have any idea how or where can I such information

thank a lot Tom

at least I know a little more now :D

Ina

macro vbscript doesn't run !!! I am desperate! I need help

thanks Does it work even if my addins is protected?

Ina

macro vbscript doesn't run !!! I am desperate! I need help

It should.

--
Regards,
Tom Ogilvy

"ina" wrote:

thanks Does it work even if my addins is protected?

Ina

macro vbscript doesn't run !!! I am desperate! I need help