Options
  • Locked Locked
  • Replies 13 replies
  • Subscribers 9 subscribers
  • Views 672 views
  • Users 0 members are here
Related
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

(Workflow Script) Edit Excel File within the Object

Former Member
Former Member
Sorry to bother you again, but I need another help from you..

I want to set a Workflow Action, where it should open a File within the Object where Workflow is set. Then it should write something into the Excel Sheet.

I have put some Code together but it doesn't work.. Before I execute the script, I manually check out the object (I didn't manage to check it out via VB).. When I want to check it in again it doesn't do it, I have to undo the Checkout.. Also I don't think the changes were actually made while checked out..


Dim objFiles : Set objFiles = Vault.ObjectFileOperations.GetFiles(objVer)

Set XLS = CreateObject("Excel.Application")
Set WB = XLS.Workbooks.Open(objFiles(1))
Set WS = WB.Sheets(1)
WS.Range("A1").Formula="TEST"

XLS.DisplayAlerts = False
WB.Save
XLS.DisplayAlerts = True
XLS.Quit
Parents
  • Former Member
    Former Member
    Now I tried to edit a related Document with Excel but I still don't get it :( Maybe you can look at it again, I think it is only a small Problem..


    Dim related : Set related = Vault.ObjectOperations.GetRelationships(objVer,MFRelationshipsModeAll)
    Dim obj : Set obj = CreateObject("MFilesAPI.ObjVer")

    For Each obj in related.GetAsObjVers
          If obj.type = 0 Then
    					 Set XLS = CreateObject("Excel.Application")
    					 Set WB = XLS.Workbooks.Open(obj)
    					 Set WS = WB.Sheets(1)
    				 	 WS.Range("A1").Formula="TEST"
          End if
    Next


    It won't even open the Excel File..
Reply
  • Former Member
    Former Member
    Now I tried to edit a related Document with Excel but I still don't get it :( Maybe you can look at it again, I think it is only a small Problem..


    Dim related : Set related = Vault.ObjectOperations.GetRelationships(objVer,MFRelationshipsModeAll)
    Dim obj : Set obj = CreateObject("MFilesAPI.ObjVer")

    For Each obj in related.GetAsObjVers
          If obj.type = 0 Then
    					 Set XLS = CreateObject("Excel.Application")
    					 Set WB = XLS.Workbooks.Open(obj)
    					 Set WS = WB.Sheets(1)
    				 	 WS.Range("A1").Formula="TEST"
          End if
    Next


    It won't even open the Excel File..
Children
No Data
M-Files
M-Files Support


© 2025 M-Files, All Rights Reserved.