Jump to content
Smigacznr1

Check for macros in excel

Recommended Posts

Smigacznr1

Hi everyone,

I'm writing script for searching empty excel files in share folders.

I now how to check if is any text, value or formula in file but how to check for macros?

 

Regards

Smigacznr1

 

Share this post


Link to post
Share on other sites
javiwhite

Hi Smigacznr1,

You could always check the extension of the workbook?

I'm no excel wizard, but i believe macro's can only be stored in xlsm workbooks (macro enabled), with the exception of workbooks created on your local machine (as the macro's can be saved to your personal workbook (Which wouldn't be applicable in a shared folder anyway, as only the author of the macro, by default has access to his/her own personal workbook)

Hope this helps

Javi


give a man an application, and he'll be frustrated for the day, Teach him how to program applications and he'll be frustrated for a lifetime.

Share this post


Link to post
Share on other sites
JLogan3o13

Hi, Smigacznr1. There are a couple ways to do it. Remember that you will always have a default module with the "ThisWorkbook", "Sheet1", "Sheet2", and "Sheet3" in every workbook. I use this quick and dirty to check which modules or macros I have in a workbook, may give you some ideas.

#include <Excel.au3>

Local $aTemp[1] = [""]

Const $ProcedureName = "*"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, @DesktopDir & "\Test.xls")
    $vbProj = $oWorkbook.VBProject

    For $vbComp In $vbProj.VBComponents
        _ArrayAdd($aTemp, $vbComp.Name)
    Next

    $aTemp[0] = UBound($aTemp) - 1

    For $i = 1 To $aTemp[0]
        Switch $aTemp[$i]
            Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
                ;
            Case Else
                MsgBox(0, "", $aTemp[$i])
        EndSwitch
    Next

_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel)

 

 

 

Edited by JLogan3o13

√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
Smigacznr1

Hi JLogan3o13

I'm getting error:

"Variable must be of type "Object".:
For $vbComp In $vbProj.VBComponents
For $vbComp In $vbProj^ ERROR"

 

I rebuilded your saample to:

#include <Excel.au3>

Local $aTemp[1] = [""]

Const $ProcedureName = "*"

$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oExcel.WorkBooks.Open (@DesktopDir & "\Huis-3D-Excel-Pendulum_97.xls")

    $vbProj = $oExcel.WorkBooks.VBProject

    For $vbComp In $vbProj.VBComponents
        _ArrayAdd($aTemp, $vbComp.Name)
    Next

    $aTemp[0] = UBound($aTemp) - 1

    For $i = 1 To $aTemp[0]
        Switch $aTemp[$i]
            Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
                ;
            Case Else
                MsgBox(0, "", $aTemp[$i])
        EndSwitch
    Next


$oExcel.WorkBooks.Close(false)
$oExcel.Quit()

and I'm getting exactly this same error. I'm not good with object coding...

I'm using newest stable version of Autoit, fully patched Win 7 x64 and Office 2007.

Share this post


Link to post
Share on other sites
water

Add some error checking:

#include <Excel.au3>

Local $aTemp[1] = [""]
Const $ProcedureName = "*"
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oExcel.WorkBooks.Open (@DesktopDir & "\Huis-3D-Excel-Pendulum_97.xls")
    $vbProj = $oExcel.WorkBooks.VBProject
    If @error Or Not IsObj($vbProj) Then Exit ; Exit if no projects exist
    For $vbComp In $vbProj.VBComponents
        _ArrayAdd($aTemp, $vbComp.Name)
    Next
    $aTemp[0] = UBound($aTemp) - 1
    For $i = 1 To $aTemp[0]
        Switch $aTemp[$i]
            Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
                ;
            Case Else
                MsgBox(0, "", $aTemp[$i])
        EndSwitch
    Next
$oExcel.WorkBooks.Close(false)
$oExcel.Quit()

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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

BTW:

"ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"

is only true on English systems.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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

Check (by adding _ArrayDisplay) if there are any components at all.

#include <Excel.au3>

Local $aTemp[1] = [""]
Const $ProcedureName = "*"
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oExcel.WorkBooks.Open (@DesktopDir & "\Huis-3D-Excel-Pendulum_97.xls")
    $vbProj = $oExcel.WorkBooks.VBProject
    If @error Or Not IsObj($vbProj) Then Exit ; Exit if no projects exist
    For $vbComp In $vbProj.VBComponents
        _ArrayAdd($aTemp, $vbComp.Name)
    Next
    _ArrayDisplay($aTemp) ; Display components
    $aTemp[0] = UBound($aTemp) - 1
    For $i = 1 To $aTemp[0]
        Switch $aTemp[$i]
            Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
                ;
            Case Else
                MsgBox(0, "", $aTemp[$i])
        EndSwitch
    Next
$oExcel.WorkBooks.Close(false)
$oExcel.Quit()

 

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Smigacznr1

Nope. It's not working at all.

Exiting on line 9

If @error Or Not IsObj($vbProj) Then Exit ; Exit if no projects exist

Share this post


Link to post
Share on other sites
water

Ok, then let's check this line:

#include <Excel.au3>

Local $aTemp[1] = [""]
Const $ProcedureName = "*"
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oExcel.WorkBooks.Open (@DesktopDir & "\Huis-3D-Excel-Pendulum_97.xls")
    $vbProj = $oExcel.WorkBooks.VBProject
    If @error Or Not IsObj($vbProj) Then
        MsgBox(0, "", "@error: " & @error & @CRLF & "IsObj: " & IsObj($vbProj))
        Exit
    EndIf
    For $vbComp In $vbProj.VBComponents
        _ArrayAdd($aTemp, $vbComp.Name)
    Next
    _ArrayDisplay($aTemp) ; Display components
    $aTemp[0] = UBound($aTemp) - 1
    For $i = 1 To $aTemp[0]
        Switch $aTemp[$i]
            Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
                ;
            Case Else
                MsgBox(0, "", $aTemp[$i])
        EndSwitch
    Next
$oExcel.WorkBooks.Close(false)
$oExcel.Quit()

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Smigacznr1

Error:

@error: -2147352570
IsObj: 0

Share this post


Link to post
Share on other sites
water

#include <Excel.au3>

Local $aTemp[1] = [""]
Const $ProcedureName = "*"
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oWorkbook = $oExcel.WorkBooks.Open(@DesktopDir & "\Huis-3D-Excel-Pendulum_97.xls")
$vbProj = $oWorkbook.VBProject
If @error Or Not IsObj($vbProj) Then
    MsgBox(0, "", "@error: " & @error & @CRLF & "IsObj: " & IsObj($vbProj))
    Exit
EndIf
For $vbComp In $vbProj.VBComponents
    _ArrayAdd($aTemp, $vbComp.Name)
Next
_ArrayDisplay($aTemp) ; Display components
$aTemp[0] = UBound($aTemp) - 1
For $i = 1 To $aTemp[0]
    Switch $aTemp[$i]
        Case "ThisWorkbook", "Sheet1", "Sheet2", "Sheet3"
            ;
        Case Else
            MsgBox(0, "", $aTemp[$i])
    EndSwitch
Next
$oExcel.WorkBooks.Close(false)
$oExcel.Quit()

​The VBProject collection is a member of the Workbook object, not the Workbooks collection.

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Smigacznr1

I have not notice but after correction, I have still error:

@error: 1
IsObj: 0

Share this post


Link to post
Share on other sites
water

Looks much better. Could you please add

#include <Debug.au3>
_DebugSetup()
_DebugCOMError()

at the top of your script so we get more detailed error information?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Smigacznr1

Sure. I didn't know that in Autoit is any debugging include :)

Result:

@@ DEBUG COM Error encountered in excel_macro_search.au3 (11) :
    Number            = 0x80020006 (-2147352570)
    WinDescription    = Unknown name
    Description       =
    Source            =
    HelpFile          =
    HelpContext       =
    LastDllError      = 0
    Retcode           = 0x00000000

Share this post


Link to post
Share on other sites
water

Is this a Workbook with a macro?
If no, could you please test with a Workbook with a macro?
So we know: @error = 1 means: no macro, @error = 0 means: go on checking for macros.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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

Will check as soon as I'm on a PC with Windows and Excel.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Smigacznr1

Bump!

Could someone else help or show right direction?

Share this post


Link to post
Share on other sites
water

Only found this on the web to check if an Excel File has macros.
Could you please run the VB code and if it works it should be easy to translate to AutoIt.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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

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

  • Similar Content

    • nooneclose
      By nooneclose
      My program has to first search for names in Column D that do not match up with column C. I got that search to work using arrays. It was slow and I could not figure out how to delete them so I just manually put coded the names that do not belong. I found their cell location but I do not know how to store that location and delete it.
      This is what I have so far.
      Local $NameToDelete1[6]  = _Excel_RangeFind($OpenWorkbook, "Smith, Bill") _ArrayDisplay($NameToDelete1, "Excel UDF: _Excel_RangeFind Example 1", "", 0, "|", "Sheet|Name|Cell|Value|Formula|Comment") _Excel_RangeDelete($OpenWorkbook.ActiveSheet, $NameToDelete1[2], $xlShiftUp)  
      Please help, I wanted to have this program done yesterday but I did not see this problem until yesterday. 
    • nooneclose
      By nooneclose
      I need to perform a subtotal in excel and I would like to automate this process using Autoit if possible like always any and all help will be greatly appreciated. 
      I can not find a good example but the two from Microsoft. Here is one of the two from msdn.microsoft.com/en-us/vba/excel-vba/articles/range-subtotal-method-excel
      I do not really understand how to translate this into AutoIt, but I gave it a try and here is what I have.
      $OpenRange      = "A1:E200" $xlSum          = -4157 $Added_Array[2] = [2, 3] $OpenRange.Subtotal("B1", $xlSum, $Added_Array, True, False, True) I just need to perform a subtotal on a range based on a header called department, and then perform a sum on the results.
    • nooneclose
      By nooneclose
      How to use _Excel_RangeSort to sort my excel file by three different headers Column A1, B1, and C1 have headers on which I want to sort by. The headers on which I want to sort are department, employee type, and name.
      I still really new to AutoIt so I do not actually know how to properly start this line or lines of code, to be honest. The example code is the best I can do.
      _Excel_RangeSort($OpenWorkbook, Default, "A1:C1", "1:1", $xlDescending, Default, $xlYes, Default, $xlSortRows) I just need to sort by those three headers in that order of department, employee type, and name, plus in descending order.
       
      any and all help would be greatly appreciated.  Thank you!
    • Daniza
      By Daniza
      It works fine on my Excel 2007, but after I Emailed My Area Manager he told me after he Enable Macro Security nothing happen's, can someone test this to run on Excel 2016? My AM can't provide me more information 

      Thank You in Advance,
      Please see attachment.
      <snip>
    • tuffgong
      By tuffgong
      Good morning. I have a system I am trying to automate that works like this: user fills a column in an Excel spreadsheet with values they would like printed and saves it to a folder on their desktop, they start the script and it formats their data into a text file (adding a prefix) and sends the text file as a .bch file where it needs to go. This is working:
      #include <Array.au3> #include <Excel.au3> #include <File.au3> #include <MsgBoxConstants.au3> Global $sSTCArray Global $sFilename = @DesktopDir & "\Labels\print.txt" Global $sWorkbook = @DesktopDir & "\Labels\Labels.xlsx" Global $oExcel = _Excel_Open(False,False,False,False,True) barcodePrint() Func barcodePrint() $Read = _Excel_BookOpen($oExcel, $sWorkbook, True, False, Default, Default, Default) FileOpen($sFilename, $FO_OVERWRITE) ;Global $oWorkbook = _Excel_BookAttach($oExcel) Global $sSTCArray = _Excel_RangeRead($Read) For $i = 0 to UBound($sSTCArray, 1) - 1 FileWriteLine($sFilename, "!StaticShelving1x3_ZPL," & $sSTCArray[$i]) Next _Excel_Close($oExcel) FileMove($sFilename, "***file path***\print.bch") EndFunc However, it only works if the user first formats the spreadsheet to text. I want to automate that. From what I have read it appears AutoIt does not like formatting cells that already have values. True? Can I pull the values from an un-formatted (default GENERAL format) spreadsheet and go straight to my text file? I have also considered opening a second spreadsheet, formatting it, and copying the values over. Like this:
        
      Global $sPrefix Global $oPath Global $sSTCArray Global $sFilename = @DesktopDir & "\Labels\print.txt" Global $sWorkbook = @DesktopDir & "\Labels\Labels.xlsx" Global $oExcel = _Excel_Open(False,False,False,False,True) Global $aArray Global $bExcel _Excel_BookNew($bExcel) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $aArray = IniReadSection("***File path***\barcode.ini", "stc/rvt/mgm") $sPrefix = $aArray[1][1] $oPath = $aArray[2][1] barcodePrint() EndSwitch WEnd Func barcodePrint() $oWorkbook = _Excel_BookOpen($bExcel, @DesktopDir & "\Labels\print.xlsx") $oWorkbook.ActiveSheet.Columns("A").NumberFormat = "@" Local $Read = _Excel_BookOpen($oExcel, $sWorkbook, True, False, Default, Default, Default) $oCopy = _Excel_RangeRead($sWorkbook) _Excel_RangeWrite($oWorkbook, Default, $oCopy) FileOpen($sFilename, $FO_OVERWRITE) $sSTCArray = _Excel_RangeRead($Read,"Default","Default",3) ;_ArrayDisplay($sSTCArray) For $i = 0 to UBound($sSTCArray, 1) - 1 FileWriteLine($sFilename, $sPrefix & $sSTCArray[$i]) Next _Excel_Close($oExcel) ;FileMove($sFilename, $oPath) Exit EndFunc This does not like the formatting of $oWorkbook: "Variable must be of type 'Object'".  Do I need this second sheet? If so, how can I format it? Is there a better way to get the Excel values into a .txt file? Any ideas would be appreciated. Thanks!
×