How can I register channels imported using DataFileLoad function in DIAdem 2012?

Question

Hallo,
I would like to import data from Excel into the DIAdem 2012.
I newly use DataFileLoad and ufi file to define import plugin.
But when I want to copy a the imported channels to another group, I get err: The Channel argument of the AddChannel method must be IChannel.
How can I register/convert/refersh channels, so I can work with them?
I'm showing code sample I took from standard example collection, from: "Loading Excel Files with a DataPlugin", script file A_172132_ExcelDataPlugin.vbs
Note: to get to worky my example you have to set proprely used paths
If Not ItemInfoGet("sPathDocuments") Then
Call GlobalDim("sPathDocuments")
Call GlobalDim("sPathData")
End If
sPathDocuments = CurrentScriptPath
sPathData = CurrentScriptPath & "..\Data\"
call PrepareAndLoadDataset
sub PrepareAndLoadDataset()
Call Data.Root.Clear()
If Not FileFilterExist("A_172132_Example") Then
Call Navigator.RegisterDataPlugin(sPathDocuments&"A_172132_Example.uri",True)
End If
set MyGroup = DataFileLoad(sPathData & "A_172132.xlsx", "A_172132_Example","")
set MyTemp = Data.Root.ChannelGroups.Add("temp")
Call MyTemp.Channels.AddChannel(MyGroup.Item(1).ChannelGroups(1).Channels(1))
end sub
Thank you for advance.
Radek
Solved!
Go to Solution.

Answer 1

Hello Codr,
Your script works fine on with my DIAdem 2012. I just defined "Dim MyGroup, MyTemp"
The result is a new channel group with one channel. The channel is the first channel of the first group of the loaded dataset.
In case you would like to register the Excel file (and not load it) you need toexpand the copied channel. This looks like this:
sub PrepareAndLoadDataset()
Call Data.Root.Clear()
If Not FileFilterExist("A_172132_Example") Then
Call Navigator.RegisterDataPlugin(sPathDocuments&"A_172132_Example.uri",True)
End If
dim MyGroup, MyTemp, oChn
set MyGroup = DataFileLoad(sPathData & "A_172132.xlsx", "A_172132_Example","Register")
set MyTemp = Data.Root.ChannelGroups.Add("temp")
set oChn = MyTemp.Channels.AddChannel(MyGroup.Item(1).ChannelGroups(1).Channels(1))
call ChnValExpand(oChn)
end sub
Greetings
Walter