[ChicagoIan]

Ok, so I'm using VB 6.0 to create an Excel spreadsheet and once the data has been entered into the sheet, I'd like to sort it before I save the document. Here is the code I have so far when I sort...


Public Sub SortNames(oSheet As Object)

oSheet.Rows("9:32").Select
ActiveWindow.SmallScroll Down:=0
Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Key2:=Range("B9") _
, Order2:=xlAscending, Key3:=Range("C9"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub


My problem is that once the code runs through the sort, it leaves the Excel.exe running in the background and when my program loops back in again to create another spreadsheet and hits the sorting function, it errors out. So right now only the first spreadsheet is being created, and after that it only errors out. Any help on getting the Excel.exe to close so I can create another spreadsheet?

[lpmtv]

I have saved data to an Excel spreadsheet a lot of times and have not
had the problem of Excel remaining running. This code seems to work
every time for me.

On Error Resume Next
MySheet.SaveAs strMyXLSInSpec
Set MySheet = Nothing
MyWorkbook.Close
Set MyWorkbook = Nothing
End

Does this work for you?

However, now I am trying to sort the spreadsheet and code that works fine as an Excel VBA macro doesn't work for me in VB.

I cannot get it to select (tried your code, too) and I cannot get it to select.
I get a message "Select method of object class fails."

A range seems to have a sort method.
I tried creating a datarange = datasheet.range(1,93) and then doing
datarange.sort but that does not work either.

Private Sub DoSortDataRowsByDate(datasheet As Worksheet)
Dim strcoords As String
Call DoGetColAlpha(intDataColCt, strColAlpha)
strcoords = "1:" & intDataRowCt
datasheet.Rows(strcoords).Select
Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
End Sub

Thanks for any tips you can give. Best, Lamont