The Origin Forum
File Exchange
The Origin Forum
Home | Profile | Register | Active Topics | Members | Search | FAQ | Send File to Tech support
Username:
Password:
Save Password
 All Forums
 Origin Forum for Programming
 Forum for Automation Server/COM and LabVIEW
 Excel VBA - copy range & execute labtalk script
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic

psoso

3 Posts

Posted - 07/29/2018 :  3:54:06 PM  Show Profile  Edit Topic  Reply with Quote  View user's IP address  Delete Topic
Origin Ver. and Service Release (Select Help-->About Origin): 9.1
Operating System: winxp

while being an absolute beginner isn't very helpful at all, I am still taken aback how I can't even get simple tutorial copies to work:

beginner project: from an open excel sheet, copy a range of strings into a new book in a new origin project. then run a labtalk script, save and exit.

While I can select my excel range, I cannot assign it to a variable that I can then insert into the origin range.

I also just cannot get the labtalk script to run with what I think should work.

Dim org As Origin.Application
Dim orgWkBk As Origin.WorksheetPage
Dim orgWks As Origin.Worksheet
Dim strPathName As Variant
Dim rangeexcel As Excel.range
Dim rangeori As Origin.DataRange

sheetname = ActiveSheet.Name
Range("c3", ActiveSheet.Range("c3").End(xlDown)).Select

' Create the Origin COM object, folder wkbk sheet and column works fine
Set org = New Origin.Application
org.NewProject
org.Execute ("sec -poc 1.5")
org.RootFolder.Folders.Add("Folder1").Activate 'add new folder
Set orgWkBk = org.WorksheetPages.Add
Set orgWks = orgWkBk.Layers(0)
orgWks.Columns.Add



Set rangeori = Wks.NewDataRange(0, 1)
rangeori.SetData = (ActiveSheet.range("c3", ActiveSheet.range("c3").End(xlDown)).Select)


org.Execute (name_of_custom_labtalkscript)


'saving also works
strPathName = Application.GetSaveAsFilename(sheetname, "Project files (*.OPJ),*.OPJ", 0)
org.Save (strPathName)
org.Execute ("sec -poc 1.5")
org.Exit

End Sub


Edited by - psoso on 07/29/2018 3:56:11 PM

YimingChen

174 Posts

Posted - 08/01/2018 :  4:48:45 PM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
Hi Psoso,

Can you try the following script to set excel range to a variable and copy that into Origin worksheet. Please make sure [Book1]Sheet1 exists in Origin :


    Set rngDataAndParam = ActiveSheet.Range("c3", ActiveSheet.Range("c3").End(xlDown))
    pws = app.PutWorksheet("[Book1]Sheet1", rngDataAndParam.Value)


Please also check the webpage:
https://www.originlab.com/doc/COM/Classes/Application/PutWorksheet

Thank,

James
Go to Top of Page

psoso

3 Posts

Posted - 08/09/2018 :  3:30:19 PM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
thank you. with the additional help of some of the examples in the /SAMPLES folder I think I have ranges figured out.
I still don't understand the limitations of the execute command.
https://www.originlab.com/doc/COM/Classes/Application/Execute
In origin I have made a custom labtalk script many lines long (variable definitions, IFs and loops etc.) and would like to start it via vba.
Documentation makes it sound like it should work like:
app.Execute (name_of_custom_labtalkscript).
However, I can only get single x-functions to work this way.
I just assumed it would work similar to "excel.run(name_of_customexcelmacro)" ?
Go to Top of Page

nidhishedge

India
3 Posts

Posted - 06/19/2019 :  07:35:17 AM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
Thanks for such an excellent piece of information..Keep Up!
https://online.crbtech.in/courses/online-java-training-course/

Edited by - nidhishedge on 06/19/2019 07:35:50 AM
Go to Top of Page
  Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
The Origin Forum © 2008 Originlab Corporation Go To Top Of Page
Snitz Forums 2000