Exporting sheets with respective names

[Sebastian-D]

Hello,

I'm using DIAdem 2020.

I want to use a script, that generates .emf Files with correct sheet names.

So far I only managed to create files where all sheets get the same name "Accelerations" with a number at the end.

This is the script I use:

Option Explicit

Dim MyFolders()

Sub InitMyFolders
ReDim MyFolders(1)
MyFolders(0) = "C:\Data"
End Sub
Call InitMyFolders

Dim oMyReportObj, oMyReportObjects, i

i = 0
Set oMyReportObjects = Report.Sheets
For Each oMyReportObj in oMyReportObjects
Call oMyReportObj.ExportToImage(MyFolders(0) & "Accelerations_" & i, eImageExportTypeEMF)
i = i+1
Next

Can someone please help me?

Sebastian

[Walter_Rick · Accepted solution]

Hi Sebastian-D,

For your script code you find the name of the sheet here:

oMyReportObj.Name

Greetings

Walter

[Sebastian-D]

Thank you Walter.

You helped me again!

Best regards

Sebastian