Hi

I want to open an Excel workbook, sort the data, remove subtotals and save
it.
Then I want to import the data into a dataset - I can do that using ADO or
perhaps reading each row and inserting it into a datatable.

I have used Excel VBA to outline what I want to achieve but I am having
difficulty translating the syntax.
Any assistance translating this code would be greatly appreciated.

Thanks in advance

REgards
Habib


----------- VBA Code: -----

Sub Cleanfile()
Dim l As Long
Worksheets(1).Select
Range("A1:O1").Value = Array("Name", "Address1", "Address2", "Address3",
"City", "State", "Zip", "StartDate" "Num")
l = Range("A65536").End(xlUp).Row
Range("A" & l).Select

Rows(2).Resize(l - 1).Sort Key1:=Range("H2"), order1:=xlDescending,
Header:=xlNo

l = Range("A65536").End(xlUp).Row
Range("A" & l).Select

For i = 2 To l
If Not IsDate(Cells(i, 8).Value) Then Cells(i, 8).Value = Date
If Not IsNumeric(Cells(i, 9).Value) Then
Rows(i).ClearContents

Else
If Cells(i, 9).Value = 0 Then Rows(i).ClearContents

If Left(Cells(i, 1).Value, 8) = "SubTotal" Then
Rows(i).ClearContents

ElseIf Left(Cells(i, 1).Value, 11) = "Grand_Total" Then
Rows(i).ClearContents

End If
End If
Next

l = Range("A65536").End(xlUp).Row
Range("A" & l).Select

Rows(2).Resize(l - 1).Sort Key1:=Range("H2"), order1:=xlDescending,
Header:=xlNo
Rows(l).Select
ActiveWorkbook.SaveAs "Demo.xls"

End Sub