View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ina ina is offline
external usenet poster
 
Posts: 120
Default 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