Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Getting VBA scripts from Excel worksheets
Message
 
To
22/06/2016 18:00:50
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
01637533
Message ID:
01637601
Views:
52
It should be an .xlsm file if it has vba code.

Bill Sutton


>Thanks. I had actually seen this link and it didn't work for me. Since you recommended it, I took a closer look and found that I was opening an XLS spreadsheet the didn't have workbook.vbproject.
>
>I opened an XLSX file and found the property. I'll see if this code gets me what I need.
>
>Thanks again............Rich
>
>>Hey Rich
>>
>>I think this will help you out.
>>
>>http://www.rondebruin.nl/win/s9/win002.htm
>>
>>
>>Bill Sutton
>>
>>
>>
>>>>>Hi All:
>>>>>
>>>>>We have inherited the support of a couple of dozen Excel spreadsheets. These all have a bunch of VBA methods.
>>>>>
>>>>>Is there some way we can open the spreadhseets and extract the method code so that we can build a big code database that can be searched
>>>>>
>>>>>For example ..... Which methods in which spreadsheets reference a particular drive mapping???
>>>>> Which methods in which spreadsheets use a specific DSN
>>>>> etc.
>>>>>
>>>>>How can we accumulate the VBA code to do those kinds of searches?
>>>>>
>>>>
>>>>I was sure I'd written something about this, but I can't find it. Regardless, check out the Modules collection in VBA.
>>>>
>>>>Tamar
>>>Thanks for the advice. If you have any pointers or links on how to use this it would help a great deal. So far I've tried
>>>oXl = CREATEOBJECT('excel.application')
>>>oWb = oXl.wookbooks.open(GETFILE())
>>>? oXl.modules.count --> 0
>>>? oXl.application.modules.count --> 0
>>>? oWb.modules.count --> 0
>>>? oWb.application.modules.count --> 0
>>>
>>>
>>>Google hasn't been especially useful for me either.
>>>
>>>Anything use can provide will be useful.
>>>
>>>Thanks so much.........Rich
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform