Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Option Explicit Sub CreateExcel3() Dim objExcel As Object Dim objFSO As Object Dim objFolder As Object Dim sExcelFolderPath As String, sExcelFileName As String Set objFSO = CreateObject("Scripting.FileSystemObject") sExcelFolderPath = "e:\temp\vba\" 'Folder path sExcelFileName = "test.xlsx" 'File name Set objExcel = CreateObject("excel.application") On Error Resume Next Set objFolder = objFSO.GetFolder(sExcelFolderPath) 'Set the folder path On Error GoTo 0 If objFolder Is Nothing Then objFSO.createfolder (sExcelFolderPath) 'Create the folder if not present objExcel.Workbooks.Add objExcel.DisplayAlerts = False objExcel.ActiveWorkbook.SaveAs (sExcelFolderPath & sExcelFileName) objExcel.Quit objExcel.DisplayAlerts = True Set objExcel = Nothing Set objFSO = Nothing Set objFolder = Nothing End Sub
|VB loop to open the file from the network drive||30||67|
|Help with Journey Roadmap Graphic||11||48|
|Is there any risk my Excel 2007 workbook is corrupted when it suddenly begins being saved as xlsx when always earlier always being saved as xlsm?||2||18|
|remove data validation/drop downs when moving row to another sheet||8||22|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!