Need help to run script in Photoshop or Illustrator from vba Excel

[Roli001]

I'm trying to build a database in Access/Excel that would help me categorize all my downloaded vector art. The files that I have are generically named and I would like to rename them using hierarchy i.e. a stove would be 012345000 where 01 stands for household, 02-kitchen, 03-appliance 000 - next consecutive number.

To do so I need to open each picture to view it and decide into which category it falls, input it into the database with additional information and then save the picture under the new name.

Excel and Access don't support vector illustrations so I need to open them in another application i.e. Adobe Photoshop or Adobe Illustrator. Both of these applications support scripts so I could use those to open, rename and close the picture while controlling all the actions from my database.

I should be able to build the Access/Excel part fairly easily. I'm looking for a piece of code that would allow VBA to start a script in Adobe products.

Appreciate any help.

Thanks,
Roli

 

[Roli001]

I figured it out...actually quite simple.

The below code uses an existing instance of illustrator to upen a document and then close it once I'm done viewing it.

I will rename it using vba in Excel after the hierarchy has been added to the illustration

Sub openillustrator()

Set appref = CreateObject("Illustrator.Application")
Set docref = appref.Open("C:\Users\MyName\Desktop\Test.eps")

'.....me viewing and hierarchy set here...

docref.Close

Set appref = Nothing
Set docref = Nothing

'...additional code in VBA to rename file based on hierarchy and loop to next file.

End Sub

Thanks.