| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Problem saving a file | Excel Discussion (Misc queries) | |||
| problem saving as txt file | Excel Discussion (Misc queries) | |||
| File saving problem | Excel Discussion (Misc queries) | |||
| problem saving csv file | Excel Discussion (Misc queries) | |||
| problem when saving CSV file | Excel Worksheet Functions | |||
Threaded Mode
