Problem saving file as xls

  • Thread starter Thread starter Duane Reynolds 322310
  • Start date Start date
D

Duane Reynolds 322310

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
 
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
Click to expand...

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
 
Thanks the save feature works great.
have not tried the delete rows yet. Basicly what this macro does is import a
spreedsheet with addresses - seattle,wa columns, I add this to 40 or so rows
not kmowing how many addresses there are from one day to the next. then
delete the extra rows with empty addresses.

Duane
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

File Name changes with dates and Deleting Rows of Zeros 0
Cleanup this macro please 3
variable number of rows. 2
Excel Macro to use cells as a autofilter 0
Macro to fill to next field with data 4
exporting to Excel without overwriting the macros 4
Run a procedure in all the sheets of the workbook. 1
Help Fixing a Macro 2

Back
Top