← Back to branch summary

~siggi-bjarnason/siggivbscript/vbscript

« back to all changes in this revision

Viewing changes to CiscoASR5KPools.vbs

  • Committer: Siggi Bjarnason
  • Date: 2012-09-17 05:23:07 UTC
  • Revision ID: siggi@bjarnason.us-20120917052307-7vbfbglilx3dm32u
ASR5K Pool fixes

Show diffs side-by-side

added added

removed removed

Lines of Context:
CiscoASR5KPools.vbs
19
19
'-------------------------------------------------------------------------------------------------'
20
20
 
21
21
Const strLink = "http://docs.eng.t-mobile.com/InfoRouter/docs/~D3405019"
22
 
const DefFolder = "C:\Cisco5KCfg"
23
 
const DefFile = "C:\temp\ASR5KPools.xlsx"
 
22
const DefFolder = "C:\HPNAConfigs\GGSN"
 
23
const DefFile = "C:\Users\sbjarna\Documents\Projects\ASR5KPools.xlsx"
 
24
'const DefFile = "C:\temp\ASR5KPools.xlsx"
24
25
 
25
26
Const xlHAlignCenter  = -4108
26
27
Const xlHAlignGeneral = 1
381
382
                row6 = row6 + 1
382
383
        wend
383
384
        
384
 
        ws4.Range(ws4.Cells(1, 1), ws4.Cells(1, 9)).EntireColumn.AutoFit
385
 
        ws6.Range(ws6.Cells(1, 1), ws6.Cells(1, 9)).EntireColumn.AutoFit
386
 
        wsAPN.Range(wsAPN.Cells(1, 1), wsAPN.Cells(1, 9)).EntireColumn.AutoFit
387
 
        ws4.activate
388
 
        ws4.cells(1,1).activate
 
385
        'ws6.Range(ws6.Cells(1, 1), ws6.Cells(1, 9)).EntireColumn.AutoFit
 
386
        with ws6
 
387
           .Range(ws6.Cells(1, 1), ws6.Cells(1, 9)).EntireColumn.AutoFit
 
388
           .activate
 
389
           .cells(1,1).activate
 
390
     .Application.ActiveWindow.SplitRow = 2
 
391
     .Application.ActiveWindow.FreezePanes = True
 
392
        end with 
 
393
        'wsAPN.Range(wsAPN.Cells(1, 1), wsAPN.Cells(1, 9)).EntireColumn.AutoFit
 
394
        with wsAPN
 
395
           .Range(wsAPN.Cells(1, 1), wsAPN.Cells(1, 9)).EntireColumn.AutoFit
 
396
           .activate
 
397
           .cells(1,1).activate
 
398
     .Application.ActiveWindow.SplitRow = 2
 
399
     .Application.ActiveWindow.FreezePanes = True
 
400
        end with 
 
401
        with ws4
 
402
           .Range(ws4.Cells(1, 1), ws4.Cells(1, 9)).EntireColumn.AutoFit
 
403
           .activate
 
404
           .cells(1,1).activate
 
405
     .Application.ActiveWindow.SplitRow = 2
 
406
     .Application.ActiveWindow.FreezePanes = True
 
407
        end with 
 
408
 
389
409
        on error resume next
390
410
        if right(strOutFileName,5) = ".xlsx" then wb.SaveAs strOutFileName
391
411
        if right(strOutFileName,4) = ".xls" then wb.SaveAs strOutFileName, xlExcel8