Skip to main content

VBScript Code for Excel formatting

By
VBScripting is capable of providing us will enormous amounts of information. The problem that we with VBScript is how to present that information? One way to do this is to use MS Excel to display our output. The following lines of code will open an Excel workbook. It will then enumerate and display some of the potential property values for borders in Excel. By looking through this script, you will get an idea of how to format the cells, enter data, and selecting the cell that you want to place data in.

' =============================================================================
' Boarder1
' File: Border1.vbs
' Author: Jason A. Yoder
' Version 1.0 Status: Completed
' -----------------------------------------------------------------------------
' Test script for Creating boarders in Excel.
' =============================================================================


' == Main Code ==============================================================
Set objExcel = CreateObject("Excel.Application")

' Open the spreadsheet
OpenExcelWorksheet

' Worksheet Title
WorksheetTitle

' Border Thickness
BorderThickness

' Border Position
BorderPosition

' Line Style
LineStyle

' Line Color
LineColor


' == End Main Code ==========================================================


' ++ Procedures +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' ++ OpenExcelWorksheet +++++++++++++++++++++++++++++++++++++++++++++++++++++
' Opens the spreadsheet specified in the variable 'TargetWorksheet'.
Sub OpenExcelWorksheet

objExcel.Visible = True
objExcel.Workbooks.Add



End Sub ' OpenExcelWorksheet
' ++ End OpenExcelWorksheet +++++++++++++++++++++++++++++++++++++++++++++++++

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub WorksheetTitle
' Creates a page title
objExcel.Cells(1,1).Value = "Excel Cell Formatting Referance Chart"
objExcel.Cells(1,1).Font.Size = 20
End Sub ' WorksheetTitle
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub BorderThickness
' Creates borders of various thickness
objExcel.Cells(2,2).Value = "Weight"
For X = 3 to 6
'Set objRange = ObjExcel.Range(1,1)
ObjExcel.Cells(X,2).Borders.Weight = X - 2
ObjExcel.Cells(X,2).Value = X - 2
Next ' X
End Sub ' BorderThickness

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub BorderPosition
' Creates borders at different positions
objExcel.Cells(2,4).Value = "Posiitons"
Y = 1
For X = 3 to 26 Step 2
'Set objRange = ObjExcel.Range(1,1)
ObjExcel.Cells(X,4).Borders(Y).Weight = 2
ObjExcel.Cells(X,4).Value = Y
Y = Y + 1
Next ' X
End Sub ' BorderPosition
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub LineStyle
' Changes the line style
objExcel.Cells(2,6).Value = "Style"
Y = 1
For X = 3 to 28 Step 2
'Set objRange = ObjExcel.Range(1,1)
ObjExcel.Cells(X,6).Borders(9).Weight = 2
ObjExcel.Cells(X,6).Borders(9).LineStyle = Y
ObjExcel.Cells(X,6).Value = Y

Y = Y + 1
Next ' X
End Sub ' LineStyle
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub LineColor
' Changes the line color
objExcel.Cells(2,8).Value = "Color"
Z = 0
For X = 8 to 11
For Y = 3 to 29 Step 2
'Set objRange = ObjExcel.Range(1,1)
ObjExcel.Cells(Y,X).Borders(9).Weight = 4
ObjExcel.Cells(Y,X).Borders(9).ColorIndex = Z
ObjExcel.Cells(Y,X).Value = Z
Z = Z + 1
Next ' Y
Next ' x
End Sub ' LineStyle
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



' ++ End Procedures +++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' == End of Script ==========================================================
Labels:

Comments

Post a Comment

Popular posts from this blog

With the AD Recycle Bin Turned on, What Happens when you Create a User Account with a Password that does not meet the Password Policy?

By
This was an interesting observation from one of my Windows Server 2012 classes.  While working with the AD Recycle bin in a lab, one of my students discovered some interesting accounts that were created. When he created user accounts that did not meet password complexity requirements, an account is temporarily made and then deleted.  When a new password is provided that meets the password requirements, then a new account is made. We discovered this in two places.  First off in the Active Directory Administrative Center.  This is what caused the initial confusion.  Take a look.  This is in the Deleted Objects OU. You can see multiple deleted accounts for Test2 and one for Test3.  Test3 is a valid, functioning user account.  Using the PowerShell command Get-ADObject –IncludeDeletedObjects –Filter * –Properties ObjectSID we can see that indeed, two accounts were created, with one of them deleted. Notice the RID portion of the SID is different. ...
Post a Comment
Read more

How to run GPResult on a remote client with PowerShell

By
In the past, to run the GPResult command, you would need to either physically visit this client, have the user do it, or use and RDP connection.  In all cases, this will disrupt the user.  First, you need PowerShell remoting enabled on the target machine.  You can do this via Group Policy . Open PowerShell and type this command. Invoke-Command –ScriptBlock {GPResult /r} –ComputerName <ComputerName> Replace <ComputerName> with the name of the target.  Remember, the target needs to be online and accessible to you.
Post a Comment
Read more

Sticky Key problem between Windows Server 2012 and LogMeIn

By
This week I instructed my first class using Windows Server 2012 accessed via LogMeIn and discovered a Sticky Key problem every time you press the Shift key. Here is my solution to resolve this.  First off, in the Preferences of LogMeIn for the connection to the Windows Server, click General . Change the Keyboard and mouse priority to Host side user and click Apply at the bottom. On the Windows 2012 server, open the Control Panel – Ease of Access – Change how your keyboard works . Uncheck Turn on Sticky Keys . Click Set up Sticky Keys . Uncheck Turn on Sticky Keys when SHIFT is pressed five times . Click OK twice. If you are using Windows Server 2012 as a Hyper-V host, you will need to redo the Easy of Use settings on each guest operating system in order to avoid the Sticky Key Problem. Updated Information: March 20, 2013 If you continue to have problems, Uncheck Turn on Filter Keys .
6 comments
Read more