I found a handy LotusScript class to perform some simple functions on an Excel file.

http://www.11tmr.com/11tmr.nsf/d6plinks/MWHE-6AVMHV

I'm starting with an Excel worksheet as a template and I want to be able to insert some new column in the middle of the template.

Can anyone direct me to the proper line or two of code to insert a new column at a certain location? (so that the other columns shift to the left)

I tried recording and viewing a macro... here's what I got:

Columns("S:S").Select
Range("S4").Activate
Selection.Insert Shift:=xlToRight

The above, however, is not compatible with the code I'm trying to use. (I did find out that the "xlToRight" constant is -4161).   I'd like to add a simple "insertColumn" function to the ExcelReport class referenced in the above link, but I can't figure out how to do it.

Please help.

What I have so far is a spreadsheet with people's names as rows in the left column. I need to be able to add new columns to the spreasheet.

Because there are columns in the far right I need to keep, I need to be able to dynamically insert columns in the middle.

I am using the following an ExcelReport Class with the following functions:

Sub new( xlFilename , isVisable )
Set xlApp = CreateObject("Excel.application")
xlApp.Workbooks.Open xlFilename
xlApp.Visible = isVisable
strFilePath = Replace(xlFilename, ".xls", "2.xls")
End Sub

Function insertData( intSheet As Integer , row As Integer , column As Integer , value As String )
xlApp.Workbooks(1).Worksheets( intSheet ).Cells( row , column ).Value = value
End Function

Function getData( intSheet As Integer , row As Integer , column As Integer ) As String
On Error Goto err_hdl
getData = xlApp.Workbooks(1).Worksheets( intSheet ).Cells( row , column ).Value
End Function

***********
But I want to add the following function and don't know how:

Function insertColumn(intSheet As Integer , beforeColumn As Integer )
'??????
End Function