iSeries Access For Windows
Hi all again!
I'm busy, you see :)
Now I've got a deal with an Excel Toolbar and it's creation.
This Application (repackaged) creates an Excel toolbar, but the repackager only recognizes the change made in the Excel11.xlb (toolbar config file in userprofile).
The problem is :
- I can overwrite the target system's Excel11.xlb with this one in the new package, but doing that means deleting any previos configuration of each user. So I must find an alternative way to create the toolbar (and disable it) with NO .XLA FILE (sorry but there's no .xla file).
And that's it!
kss KrisBcn
I'm busy, you see :)
Now I've got a deal with an Excel Toolbar and it's creation.
This Application (repackaged) creates an Excel toolbar, but the repackager only recognizes the change made in the Excel11.xlb (toolbar config file in userprofile).
The problem is :
- I can overwrite the target system's Excel11.xlb with this one in the new package, but doing that means deleting any previos configuration of each user. So I must find an alternative way to create the toolbar (and disable it) with NO .XLA FILE (sorry but there's no .xla file).
And that's it!
kss KrisBcn
0 Comments
[ + ] Show comments
Answers (6)
Please log in to answer
Posted by:
revizor
18 years ago
Posted by:
KrisBcn
18 years ago
Posted by:
nheim
18 years ago
Posted by:
KrisBcn
18 years ago
Posted by:
islander222
18 years ago
Posted by:
KrisBcn
18 years ago
Hi Adrian
------------------------------
on error resume next
strPath = Session.Property ("ProgramFilesFolder")
Set objExcel = CreateObject("Excel.Application")
objExcel.Addins.Add(strPath & "IBM\Client Access\Shared\cwbtfxla.xll").Installed = True
With objExcel
.CommandBars("iSeries Access").Enabled = True
.CommandBars("iSeries Access").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
set objExcel = nothing
-----------------------------
I hope it helps you
Regards
KrisBcn
------------------------------
on error resume next
strPath = Session.Property ("ProgramFilesFolder")
Set objExcel = CreateObject("Excel.Application")
objExcel.Addins.Add(strPath & "IBM\Client Access\Shared\cwbtfxla.xll").Installed = True
With objExcel
.CommandBars("iSeries Access").Enabled = True
.CommandBars("iSeries Access").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
set objExcel = nothing
-----------------------------
I hope it helps you
Regards
KrisBcn
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.