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

I

ina

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>
<TITLE>Launch Excel</Title>
</HEAD>
<BODY>
<INPUT TYPE=BUTTON NAME=Btn1 VALUE="Openfunction Sheet">
</BODY>
</HTML>

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

any help is appreciated.

thanks

Ina
 
T

Tom Ogilvy

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.
 
I

ina

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
 
C

Chip Pearson

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top