I want to fetch macros name in excel 2007 and save it in text file automatically using vbscript -


i want fetch macros name in excel 2007 , save in text file automatically using vbscript. done using vb6

here code

private sub form_load() ' declare variables access excel workbook.      dim objxlapp excel.application      dim objxlworkbooks excel.workbooks      dim objxlabc excel.workbook      ' declare variables access macros in workbook.     dim objproject vbide.vbproject     dim objcomponent vbide.vbcomponent     dim objcode vbide.codemodule      ' declare other miscellaneous variables.     dim iline integer     dim sprocname string     dim pk vbext_prockind     dim macro_name string     dim ifileno integer     dim integer     open "d:\file\macro.txt" append #1      ' open excel, , open workbook.     set objxlapp = new excel.application     set objxlworkbooks = objxlapp.workbooks     set objxlabc = objxlworkbooks.open("c:\users\macro\macros.xls")      ' empty list box.     list1.clear      ' project details in workbook.     set objproject = objxlabc.vbproject      ' iterate through each component in project.     each objcomponent in objproject.vbcomponents          ' find code module project.         set objcode = objcomponent.codemodule          ' scan through code module, looking procedures.         iline = 1         while iline < objcode.countoflines             sprocname = objcode.procofline(iline, pk)             if sprocname <> ""                 ' found procedure. display details, , skip                 ' end of procedure.                 list1.additem objcomponent.name & vbtab & sprocname                 iline = iline + objcode.proccountlines(sprocname, pk)                 = 0 list1.listcount - 1                     print #1, list1.list(i)                 next                 close #1             else                 ' line has no procedure, go next line.                 iline = iline + 1             end if         loop         set objcode = nothing         set objcomponent = nothing     next      set objproject = nothing      ' clean , exit.     objxlabc.close     objxlapp.quit  end sub

how convert code vbscript or how find macro names in excel using vbscript???


Comments

Post a Comment

Popular posts from this blog

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more