Remove some rows in excel from vb.net 1

[myrgir]

Hi I update an excel worksheet from vb.net.
Sometime, I would like to take off some rows in this worksheet for example, row 20 to row 32.
How can I make it?

Dim exPoolSchedule As New Excel.Application
Dim wbPoolSchedule As Excel.Workbook
Dim wsPoolSchedule As Excel.Worksheet

wbPoolSchedule = exPoolSchedule.Workbooks(1)
wsPoolSchedule = wbPoolSchedule.Worksheets(1)
wsPoolSchedule.Cells(2, 4) = String.Format("{0:MMMM dd yyyy}", Today)
wsPoolSchedule.Cells(4, 2) = JobDr.Item("ProjectName")
wsPoolSchedule.Cells(5, 2) = JobDr.Item("ProjectLocation")
wsPoolSchedule.Cells(6, 2) = JobDr.Item("Room_volume")
...
exPoolSchedule.Visible = False
wsPoolSchedule.SaveAs(Path & "\" & "PoolSchedule Master May 20061.xls")
exPoolSchedule.Workbooks.Close()

 

[firefytr]

Should be something like this ...

wsPoolSchedule.Range("20:32").Delete

HTH

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci

 

[SkipVought]

Hi,

What does your code have to do with your question?

By "take of" do you mean ...

DELETE the ROWS?

wsPoolSchedule.Range(wsPoolSchedule.cells(20, 1), wsPoolSchedule.Cells(32,1)).EntireRow.Delete Shift:=xlup

DELETE the DATA in the rows?

wsPoolSchedule.Range(wsPoolSchedule.cells(20, 1), wsPoolSchedule.Cells(32,1)).EntireRow.ClearContents

COPY the ROWS?

wsPoolSchedule.Range(wsPoolSchedule.cells(20, 1), wsPoolSchedule.Cells(32,1)).EntireRow.Copy

CUT the ROWS?


Skip,
[sub]
[red][/red]
[/sub]

 

[myrgir]

Skip, Sorry for the confusion, I meant delete de rows.

Fire, I tried this but it gives me the error that says
"Exeption from HRESULT: 0x800A02EC
Check the ErrorCode property of the exception to determine the HRESULT returned by the COM object.
Get general help for this exception.

 

[myrgir]

Skip
xlup make me an error that is not declared...

 

[firefytr]

Hmm, what about ..

wsPoolSchedule.Range("A20:A32").EntireRow.Delete

Does that work? Can you do anything with that range?

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci

 

[myrgir]

Fire
Thanks
This is working!