| 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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Problem saving file as xls
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 wrote in message oups.com... 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 |
| 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 | |||
Linear Mode
