Created
November 23, 2013 17:18
-
-
Save facebookegypt/7617370 to your computer and use it in GitHub Desktop.
VB6 Excel2003 Part 2
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 'Visual Basic Online Course | |
| 'Automate Excel2003 from VB6 | |
| 'Using CommonDialogBox to Save As ... new Excel *.xls | |
| Dim FileNm As String | |
| Cdl1.Filter = "Microsoft Excel 2003 (.Xls)*.Xls" | |
| Cdl1.ShowSave | |
| FileNm = Cdl1.FileName | |
| oXL.DisplayAlerts = False | |
| oXL.ActiveWorkbook.Close True, FileNm |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment