Dim arrFileLines()
'##############################################################################
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
userDesktopPath = objShell.SpecialFolders("Desktop")
userDesktopFullPath = userDesktopPath & "\test.xlsx"
Set objWorkbook = objExcel.Workbooks.Open(userDesktopFullPath)
Set objWorksheet = objWorkbook.Worksheets(1)
'###################################################################|
' Start main section of code
'~~~~~~~~~~~~~~~|||~~~~~~~~~~~~~~~~~
t = 0
readSpreadsheet
firstB = True
'~~~~~~~~~~~~~~~|||~~~~~~~~~~~~~~~~~
' End main section of code
' Read Excel spreadsheet, insert cell values into script
'##############################################################################
Sub readSpreadsheet
If (fso.FileExists(userDesktopFullPath)) Then
' MsgBox userDesktopFullPath
Else
MsgBox "You are Missing the Router List Text File", 48, "Start Over"
WScript.Quit
End If
intRow = 1
Do Until objExcel.Cells(intRow,1).Value = ""
netName = Trim(objExcel.Cells(intRow,1).Value)
blah33 netName,intRow
intRow = intRow + 1
Loop
j=1
For Each word In arrFileLines
MsgBox word & vbCrLf & "This is the final array"
objExcel.Cells(j,2).Value = word
j = j + 1
Next
End Sub
'###################################################################|
'##############################################################################
Sub blah33 (xx, yy)
myVar = objExcel.Cells(yy,1).Value
buildArray myVar, t
End Sub
'###################################################################|
'##############################################################################
Sub buildArray (zz,tt)
ReDim Preserve arrFileLines(tt)
arrFileLines(tt) = zz
MsgBox arrFileLines(tt) & vbCrLf & tt
tt = tt+1
End Sub
'###################################################################|
