'-------------------------------------------------------------------------------
'-- VBS-Script-Datei
'-- Neu erstellt am 30.01.2015 12:54:42
'-- Ersteller: Ghislain
'-- Kommentar: ---
'-------------------------------------------------------------------------------
Option Explicit 'Erzwingt die explizite Deklaration aller Variablen in einem Script.
Dim MyFolders()
Call InitMyFolders
'Dim oText
'Set oText = Report.Sheets("Blatt 1").Objects("Text1")
'oText.Text = "testqdfgfdsg"
'-------------------------------------------------------------------------------
Sub InitMyFolders
ReDim MyFolders(4)
MyFolders(0)="C:\Users\GYimga\Desktop\Hilfe_Diadem\Data\TDM\TDM\"
MyFolders(1)="C:\Program Files (x86)\National Instruments_LV7\DIAdem 2014\libr\Documents\"
MyFolders(2)="C:\Users\GYimga\Desktop\Hilfe_Diadem\layout\"
MyFolders(3)="C:\Users\GYimga\Desktop\Hilfe_Diadem\Script\"
End Sub
'-------------------------------------------------------------------------------
Call Data.Root.Clear()
Call DataFileLoad(MyFolders(0)&"Export.tdm","TDM","Load")
Call Report.LoadLayout(MyFolders(1)&"Template.TDR")
Call Report.Refresh
Call Report.LoadLayout(MyFolders(2)&"testlayout01.TDR")
Call Report.Refresh
Call Report.AppendLayout(MyFolders(3)&"basiclayout01.TDR")
Call Report.Refresh
