donpick
asked on
Expand Excel columns using VBscript
Running Excel 2000 on a pc running Windows XP pro. I want to expand the columns. My code is below. The command:
objExcel.Range("A3:H3")Col umns.AutoF it
Does not work. What is the correct syntax to expand the columns so the data will fit?
Thank you.
objExcel.Range("A3:H3")Col
Does not work. What is the correct syntax to expand the columns so the data will fit?
Thank you.
' ============== DiskDriveFileList.vbs ========================
' Purpose: List files and folders from a disk drive to an Excel spreadsheet
' =========================================================================
Option Explicit
Dim objExcel 'Reference to Excel
Dim strSheetName
Dim strFolderName
Set objExcel = WScript.CreateObject("Excel.Application") 'Instantiate Excel
'Main Function
strSheetName = "\\sbs2003server\E-drive\TVDeleteFiles\Test.xls"
strFolderName = "\\sbs2003server\E-drive\TVDeleteFiles\"
fnCreateNewSheet()
fnWriteExcelData(strFolderName)
fnSaveExcelSheet(strSheetName)
fnCloseSheetAndExcel()
fnTerminateScript()
Function fnCreateNewSheet()
' == Workbooks is a collection. Add() is a method belonging to Workbooks collection
' == Open new worksheet
objExcel.Workbooks.Add
End Function
Function fnWriteExcelData(strFldName)
With objExcel.Range("A1")
.Formula = "Folder Contents"
.Font.Bold = True
.Font.Size = 12
End With
objExcel.Range("A3").Formula = "File Name:"
objExcel.Range("B3").Formula = "File Size:"
objExcel.Range("C3").Formula = "File Type:"
objExcel.Range("D3").Formula = "Date Created:"
objExcel.Range("E3").Formula = "Date Last Accessed"
objExcel.Range("F3").Formula = "Date Last Modified"
objExcel.Range("G3").Formula = "Attributes"
objExcel.Range("H3").Formula = "Short File Name"
objExcel.Range("A3:H3").Font.Bold = True
objExcel.Range("A3:H3")Columns.AutoFit
subListFilesInFolder strFldName, True
End Function
' == List files in folders and sub folders
Sub subListFilesInFolder(strSourceFldrName, bolSubFolders)
End Sub
Function fnSaveExcelSheet(strSheetNm)
' == Use the ActiveWorkBook property to reference the current workbook.
' == Use the WorkBook object SaveAs function
objExcel.ActiveWorkBook.SaveAs(strSheetNm)
End Function
Function fnCloseSheetAndExcel()
' == Use the Workbook object Close() Method
objExcel.ActiveWorkbook.Close()
objExcel.Quit()
End Function
Function fnTerminateScript()
WScript.Quit() 'Terminate script execution
End Function
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.