DIAdem

cancel
Showing results for 
Search instead for 
Did you mean: 

Exporting sheets with respective names

Solved!
Go to solution

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

 

0 Kudos
Message 1 of 3
(154 Views)
Solution
Accepted by topic author Sebastian-D

Hi Sebastian-D,

 

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

 

oMyReportObj.Name

 

Greetings

Walter

0 Kudos
Message 2 of 3
(111 Views)

Thank you Walter.

You helped me again!

 

Best regards

Sebastian

0 Kudos
Message 3 of 3
(98 Views)