Automatic Data Export
- This topic has 4 replies, 2 voices, and was last updated 10 years, 7 months ago by .
Viewing 5 posts - 1 through 5 (of 5 total)
Viewing 5 posts - 1 through 5 (of 5 total)
- You must be logged in to reply to this topic.
Accueil > Community > Automation and VBA > Automatic Data Export
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.
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.
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.
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
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.
Notifications