com addin excel - user switch sheet

[Rene]

Hi all,

the following code works fine:
(vb6 code for an com addin)
-
Dim ActiveSheet As Object
Dim ActiveFolder As Object

Set ActiveFolder = App.Workbooks(fileName)
Set ActiveSheet = ActiveFolder.Sheets("test")

ActiveSheet.Range("A1").Resize(number1, number2).Value = DataArray
ActiveSheet.Range("F1").Resize(number1, number2).Value = DataArray
-

but not if the user switch between the sheets!!!

How can I make it possible that the user can switch...

any ideas???

 

[XL-Dennis]

Rene,

Why do You use the variable name "Activesheet"? It's part of Excel Object
model and therefore it should not be used. Change variable name and test.

---------------
With kind regards,
Dennis
Weekly Blog .NET & Excel: http://xldennis.wordpress.com/
My English site: http://www.excelkb.com/default.aspx
My Swedish site: http://www.xldennis.com/

 

[Rene]

Rene,

Why do You use the variable name "Activesheet"? It's part of Excel Object
model and therefore it should not be used. Change variable name and test.

---------------
With kind regards,
Dennis
Weekly Blog .NET & Excel: http://xldennis.wordpress.com/
My English site: http://www.excelkb.com/default.aspx
My Swedish site: http://www.xldennis.com/

Hi.

I have changed then name but the the problem still exist.
(its an vb com addin - not vba)

 

[Nick Hebb]

If you're using VB6, do not use App as a variable name for the
Excel.Application. App in VB6 refers to the VB6 Application - in this
case the COM DLL.

So you would want something like this:

Dim ws As Excel.Worksheet 'or Object for late binding
Set ws = gxlApp.ActiveSheet ' assumes gxlApp is a global variable
already set to Excel.Application

ws.Range("A1").Resize(number1, number2).Value = DataArray

HTH,

Nicholas Hebb
BreezeTree Software
http://www.breezetree.com

 

[Rene]

Hi.

If you're using VB6, do not use App as a variable name for the
Excel.Application. App in VB6 refers to the VB6 Application - in this
case the COM DLL.

So you would want something like this:

Dim ws As Excel.Worksheet 'or Object for late binding
Set ws = gxlApp.ActiveSheet ' assumes gxlApp is a global variable
already set to Excel.Application

ws.Range("A1").Resize(number1, number2).Value = DataArray

HTH,

Nicholas Hebb
BreezeTree Software
http://www.breezetree.com

I don´t use the keyword App. But the error still exist.
Err
Description "Anwendungs- oder objektdefinierter Fehler"
(in english: Application- or object Error)
HelpContext 1000095
HelpFile "C:\WINDOWS\Help\VBENLR98.CHM"
Number 50290

I don´t have the chm file...

 

[Rene]

Description "Application Defined or Object Defined Error"
sorry for my bad english ;-)