iceberg

_Excel UDF to ADODB

7 posts in this topic

Hi Guys,

I have the following code. But it needs Excel program to be installed on the machine in order to execute it successfully.

Can someone guide me as to how I can bypass this using ADODB?

Thank you.

#NoTrayIcon
Global $E = IniReadSection("idcollate.ini", "Events")
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $k = 1 To $E[0][0]
        Global $S = IniReadSection("idcollate.ini", "EventID")
        If @error Then
            MsgBox(4096, "", "Error occurred, probably no INI file.")
        Else
            For $j = 1 To $S[0][0]
                Global $var = IniReadSection("idcollate.ini", "Type")
                If @error Then
                    MsgBox(4096, "", "Error occurred, probably no INI file.")
                Else
                    For $i = 1 To $var[0][0]
                        Global $Serve = IniReadSection("idcollate.ini", "Servers")
                        If @error Then
                            MsgBox(4096, "", "Error occurred, probably no INI file.")
                        Else
                            For $V = 1 To $Serve[0][0]
                                $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate,(Security)}!\\" & $Serve[$V][1] & "\root\cimv2")
                                ;MsgBox(0, "", "Select * FROM Win32_NTLogEvent WHERE Logfile = " & "'" & $E[$k][1] & "'" & " AND Type = " & "'" & $var[$i][1] & "' " & "AND EventCode = " & $S[$j][1])
                                $Query_Clause = "Select * FROM Win32_NTLogEvent WHERE Logfile = " & "'" & $E[$k][1] & "'" & " AND Type = " & "'" & $var[$i][1] & "' " & "AND EventCode = " & $S[$j][1]

                                If IsObj($objWMIService) Then
                                    $colItems = $objWMIService.ExecQuery($Query_Clause)
                                    If IsObj($colItems) Then
                                        For $objEvent In $colItems
                                            $Output = ""
                                            ;$Output &= "Category: " & $objEvent.Category & @CRLF
                                            ;$Output &= "Computer Name: " & $objEvent.ComputerName & @CRLF
                                            ;$Output &= "Event Code: " & $objEvent.EventCode & @CRLF
                                            ;$Output &= "Message: " & $objEvent.Message & @CRLF
                                            ;$Output &= "Record Number: " & $objEvent.RecordNumber & @CRLF
                                            ;$Output &= "Source Name: " & $objEvent.SourceName & @CRLF
                                            ;$Output &= "Time Written: " & $objEvent.TimeWritten & @CRLF
                                            ;$Output &= "Event Type: " & $objEvent.Type & @CRLF
                                            ;$Output &= "User: " & $objEvent.User & @CRLF

                                            ;MsgBox(0, "", @ScriptDir & "\" & $Serve[$V][1] & ".txt")
                                            Local $file = FileOpen(@ScriptDir & "\" & $Serve[$V][1] & "_" & @MDAY & @MON & @YEAR & ".txt", 1)

                                            ; Check if file opened for writing OK
                                            If $file = -1 Then
                                                MsgBox(0, "Error", "Unable to open file.")
                                                Exit
                                            EndIf

                                            $Msg = StringStripWS($objEvent.Message, 4)
                                            $Msg2 = StringStripCR($Msg)

                                            FileWrite($file, $objEvent.ComputerName & ";" & $objEvent.EventCode & ";" & $Msg2 & ";" & $objEvent.SourceName & ";" & $objEvent.TimeWritten & ";" & $objEvent.Type & @CRLF)
                                            FileClose($file)

                                            ;If MsgBox(64 + 4, "Entry Found:", $Output & @CRLF & @CRLF & "Continue?") = 7 Then Exit
                                        Next
                                    Else
                                        MsgBox(16, "Error", "$colItems is not an object.")
                                    EndIf
                                Else
                                    MsgBox(16, "Error", "$objWMIService is not an object.")
                                EndIf
                            Next
                        EndIf
                    Next
                EndIf
            Next
        EndIf
    Next
EndIf
MsgBox(0, "", "End.")
Exit

mouse not found....scroll any mouse to continue.

Share this post


Link to post
Share on other sites



Where do you need Excel in this script?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

ooops.... i posted the wrong code.

here it is......

#include <Array.au3>
#include <Excel.au3>
#include <Date.au3>

Local $sShortMonthName = _DateToMonth(@MON, 1)
Local $avArray[3]
Global $Error, $Warning, $Information

Global $E = IniReadSection("count.ini", "Events")
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $k = 1 To $E[0][0]
        Global $S = IniReadSection("count.ini", "Servers")
        If @error Then
            MsgBox(4096, "", "Error occurred, probably no INI file.")
        Else
            For $j = 1 To $S[0][0]
                Global $var = IniReadSection("count.ini", "Type")
                If @error Then
                    MsgBox(4096, "", "Error occurred, probably no INI file.")
                Else
                    For $i = 1 To $var[0][0]
                        $Query_Clause = "Select * FROM Win32_NTLogEvent WHERE Logfile = " & "'" & $E[$k][1] & "'" & " AND Type = " & "'" & $var[$i][1] & "'"
                        $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate,(Security)}!\\" & $S[$j][1] & "\root\cimv2")
                        If IsObj($objWMIService) Then
                            $colItems = $objWMIService.ExecQuery($Query_Clause)
                            If IsObj($colItems) Then
                                _ArrayAdd($avArray, $colItems.Count)
                            Else
                                MsgBox(16, "Error", "$colItems is not an object.")
                            EndIf
                        Else
                            MsgBox(16, "Error", "$objWMIService is not an object.")
                        EndIf
                    Next
                EndIf

                _ArrayDelete($avArray, 0)
                _ArrayDelete($avArray, 0)
                _ArrayDelete($avArray, 0)

                Local $sFilePath1 = @ScriptDir & "\" & $S[$j][1] & ".xls"
                Local $oExcel = _ExcelBookOpen($sFilePath1, 0)

                If @error = 1 Then
                    MsgBox(0, "Error!", "Unable to Create the Excel Object")
                    Exit
                ElseIf @error = 2 Then
                    Local $oExcel = _ExcelBookNew(0)
                EndIf

                _ExcelSheetAddNew($oExcel, $sShortMonthName & "-" & @YEAR & "-" & $E[$k][1])
                _ExcelSheetDelete($oExcel, "Sheet1")
                _ExcelSheetDelete($oExcel, "Sheet2")
                _ExcelSheetDelete($oExcel, "Sheet3")
                _ExcelSheetActivate($oExcel, $sShortMonthName & "-" & @YEAR & "-" & $E[$k][1])
                _ExcelWriteArray($oExcel, @MDAY, 1, $avArray)
                _ExcelWriteFormula($oExcel, "=SUM(R1C1:R31C1)", 32, 1)
                _ExcelWriteFormula($oExcel, "=SUM(R1C2:R31C2)", 32, 2)
                _ExcelWriteFormula($oExcel, "=SUM(R1C3:R31C3)", 32, 3)
                _ExcelWriteCell($oExcel, "Total", 32, 4)
                _ExcelWriteCell($oExcel, "Error", 33, 1)
                _ExcelWriteCell($oExcel, "Warning", 33, 2)
                _ExcelWriteCell($oExcel, "Information", 33, 3)
                _ExcelBookSaveAs($oExcel, @ScriptDir & "\" & $S[$j][1] & ".xls", "xls", 0, 1)
                _ExcelBookClose($oExcel)
            Next
        EndIf
    Next
EndIf
MsgBox(0, "", "End.")
Exit

mouse not found....scroll any mouse to continue.

Share this post


Link to post
Share on other sites

There is an UDF available that creates xls files - unfortunately only the xlsx format (XML).

I'm not sure you can create Excel files using ADO without having Excel installed.

Microsoft provides some information:

How To Use ADO with Excel Data from Visual Basic or VBA

ExcelADO demonstrates how to use ADO to read and write data in Excel workbooks


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

thanks water.


mouse not found....scroll any mouse to continue.

Share this post


Link to post
Share on other sites

If you find a solution can you please post here for other users as reference?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

@water

Here is full solutions:

 

 

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now