Thread: Problem saving file as xls
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Duane Reynolds 322310 Duane Reynolds 322310 is offline
external usenet poster
  
Posts: 8
Default Problem saving file as xls
I just dabble with this programming stuff, I can bet there are lots of ways
to clean up my code below and i would be glad for any help. the big issue
is the radgridimport file is saved from a excel web page format by the IT
dept. When I save the file after running my code (I am importing this info
to mappoint to route out stops) it keeps saving as web page format, i need
normal xls file format
Thanks
Duane Reynolds





Sub RadGridImport()
Kill ("d:\duane docs\StreetsImportTemplate.xls")
Workbooks.Open Filename:="RadGridExport.xls"
Worksheets("RadGridExport").Columns("j:q").Delete
Worksheets("RadGridExport").Columns("g:h").Delete
Worksheets("RadGridExport").Columns("j:q").Delete
Worksheets("RadGridExport").Columns("g:h").Insert
Range("g1").Value = "City"
Range("h1").Value = "State"
Range("g2").Select
ActiveCell.FormulaR1C1 = "seattle"
Range("h2").Select
ActiveCell.FormulaR1C1 = "wa"
Range("g2:h2").Select
Selection.Copy
Range("g3:g54").Select
ActiveSheet.Paste
Application.CutCopyMode = False
clearlastrow
ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate.xls"

End Sub

Sub clearlastrow()
Range("f2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 1).Select
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
Range("g2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 1).Select
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
ActiveCell.Rows.Delete
End Sub




Reply With QuoteReply With Quote