Lines Matching refs:xl
1824 Dim xl As Excel.application
1825 Set xl = New Excel.application
1826 xl.Visible = True
1827 xl.Workbooks.Open resultsFile
1830 Set xl = Nothing
2786 Dim xl As Excel.application
2801 Set xl = GetExcelInstance
2802 If val(xl.Version) < CSUPPORTED_VERSION Then
2804 TOPIC_STR, xl.Version, CR_STR, Chr(13))
2811 If Not CheckForAccesToExcelVBProject(xl) Then
2813 If Not GiveAccessToMacroProject(APP_EXCEL, xl.Version, RegValue) Then
2828 Set aWb = xl.Workbooks.Open(fileName:=sExcelDriverDocPath)
2833 xl.Run ("AnalysisTool.AnalysisDriver.AnalyseDirectory")
2838 SetDefaultRegValue APP_EXCEL, xl.Version, RegValue
2841 DeleteRegValue APP_EXCEL, xl.Version
2845 If xl.Workbooks.count = 1 Then
2846 xl.Visible = False
2852 If Not xl Is Nothing Then
2853 If xl.Workbooks.count = 0 Then
2854 xl.Quit
2858 Set xl = Nothing
2866 Set xl = Nothing
3301 Dim xl As Excel.application
3304 Set xl = GetObject(, "Excel.Application")
3306 Set xl = CreateObject("Excel.Application")
3308 Set xl = Nothing
3312 Set GetExcelInstance = xl
3313 Set xl = Nothing
3323 Dim xl As Excel.application
3324 Set xl = GetExcelInstance
3327 For Each aWb In xl.Workbooks
3336 If Not xl Is Nothing Then
3337 If xl.Workbooks.count = 0 Then
3338 xl.Quit
3342 Set xl = Nothing
3347 Set xl = Nothing
3360 Dim xl As Excel.application
3361 Set xl = GetExcelInstance
3364 If xl.Workbooks.count > 0 Then
3369 If Not xl Is Nothing Then
3370 If xl.Workbooks.count = 0 Then
3371 xl.Quit
3375 Set xl = Nothing
3380 Set xl = Nothing