Thread: Problem saving file as xls
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] meh2030@gmail.com is offline
external usenet poster
  
Posts: 135
Default Problem saving file as xls
On Jul 5, 1:00 pm, "Duane Reynolds 322310"
wrote:
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

Here is some code of things that you can look into doing. Be sure to
use the VBE Help to see how the properties and methods work as well as
the parameter inputs for the corresponding options.

Matt

Sub test()

myary = Array("a:b", "d:f")

For a = LBound(myary) To UBound(myary)
Columns(myary(a)).Delete
Next

With Worksheets("RadGridExport")
.Columns("a:b").Delete
.Columns("e:g").Delete
.Rows("1:15").Delete
End With

ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate",
FileFormat:=xlNormal

End Sub

Reply With QuoteReply With Quote