Automatic Data Export

[Anonym]

Is it possible to automate the following export process using FP Script or i need to use VBA for the same ?

There are multiple folders containg the measured files .

I need to export the processed document with the same name as that of the folder’s name .

The process is first folder to be activated, updated & the document to be exported to a local drive with the same name as that of the folder.

And then the next folder to be activated & the above process will follow for the rest of the files in the ascending order.

I tried the same with macro but am unable to update the export file name.

Kindly help me in this .

Thanks in advance.

[Anonym]

Is it possible to automate the following export process using FP Script or i need to use VBA for the same ?

There are multiple folders containg the measured files .

I need to export the processed document with the same name as that of the folder’s name .

The process is first folder to be activated, updated & the document to be exported to a local drive with the same name as that of the folder.

And then the next folder to be activated & the above process will follow for the rest of the files in the ascending order.

I tried the same with macro but am unable to update the export file name.

Kindly help me in this .

Thanks in advance.

[Bernhard Kantz]

The export task described has to be done via VBA programming.
The approach can be as follows: Accumulate all measurement folders (e.g. with the .Objects() property of the containing folder) in a FPObjects collection. In the loop over these folders, use .BlendIn to activate them in their parent folder. Update the document and export it using the .Name of the folder.

[Anonym]

Thanks a lot for your quick reply .

And i am using the following code without a loop

But still i didn’t get the correct way to update the export files name as that of the folder name .

Sub Export()
‘
‘ Export
‘
ActiveDatabase.TaskWindows(fpTaskWindowFolders).Activate
ActiveDatabase.Selection.SelectObject _
“\3_Import_Data\140512ECA-MPTRT7V0Mot1195e.FLD”
ActiveDatabase.SelectedObject.BlendIn
Application.UpdateAll
ActiveDatabase.TaskWindows(fpTaskWindowEventLog).Activate
Windows(“10_Export_Dokument”).Activate
Databases(“E:\ED_EEI\PP 12032014\C_Sample_Final_Auto.FPD”).Activate
Windows(“10_Export_Dokument”).Activate
ActiveDatabase.ActiveObject.Selection.Export fpExportFormatJPEG, _
“C:\Users\KLS5KOR\Desktop\10_Export_Dokument.jpg”
End Sub

[Bernhard Kantz]

An implementation of the proposed approach may be as following:

Option Explicit

Private Const sPath = "C:\Users\KLS5KOR\Desktop\"

Public Sub ExportDocuments()
    ' get document to be exported
    Dim oDoc As Document
    Set oDoc = ActiveDatabase.RootFolder("Document", fpObjectTypeDocument)
    ' collect all folders
    Dim coFolders As FpObjects
    Set coFolders = ActiveDatabase.RootFolder.Objects(fpObjectTypeFolder)
    ' loop over folders
    Dim oFldr As Folder
    For Each oFldr In coFolders
        oFldr.BlendIn
        oDoc.Update
        oDoc.Export fpExportFormatPNG, sPath & oFldr.Name & ".png"
    Next oFldr
End Sub

The subroutine will export the document \Document consecutively for all folders blended in. If one wants to export only a subset of folders one has to use a regular expression instead of the type specifier.

A final remark: Synthetic pictures (as diagrams or text) look better when exported in the (lossless) Portable Network Graphics (.png) format. The JPEG format is better suited for photographs.

[Autor]

Beiträge