06-11-2022
12:23 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-11-2022
12:23 PM
Herewith attached code below.
'Save Excel files as current folder patch oPath = ThisDoc.Path oFolder = oPath If Not System.IO.Directory.Exists(oFolder) Then System.IO.Directory.CreateDirectory(oFolder) End If myXLS_File = oFolder & "\" & xlDocID & ".xls" xlWB.SaveAs(myXLS_File) = True GoExcel.DisplayAlerts = True myXLS_File.close