With the recent changes to Office 2003 SP3 (not liking files of .wk?)
I’m looking to rewrite my export to excel Action Buttons. Up to now I’ve been pretty lazy on views and just done the following:
@Command([FileExport];“Lotus 1-2-3”;“c:\123temp.wk4”);
@Command([ToolsRunMacro];“(Create LS Excel)”)
The macro does nothing more than:
filepath = Inputbox$(“Please enter where you would like the file to be saved and it’s name, eg. c:\temp\export.xls”)
Set xlapp = createobject(“Excel.application”)
xlapp.visible = True
xlapp.workbooks.open “C:\123temp.wk4”
xlapp.ActiveWindow.displaygridlines = True
xlapp.Rows(“1:1”).Select
xlapp.Selection.Font.Bold = True
xlapp.cells.select
xlapp.selection.Font.Name = “Arial”
xlapp.selection.Font.Size = 9
xlapp.selection.columns.Autofit
xlapp.referencestyle = 2
xlapp.Range(“A1”).Select
Const xlWorkbookNormal = -4143
xlapp.activeworkbook.saveas filepath, xlWorkbookNormal, , , , True
kill “C:\123temp.wk4”
I would like to develop somethig much nicer where, the user can open a standard windows file window to select the location and if possible create the 1-2-3 file instead directly writing to excel.
I’m sure I can write something, but I thought I would ask if anyone else has already done this and willing to share? Is there something in the Sandbox or OpenNTF than I may have missed?
Thanks.