General

Re: Passing Data To object in MS-Excel 2003

tuna — Wed, 16 Mar 2005 09:20:11 GMT

Hello Patrick,

I could solve my problem. I'm thanks a lot for your helpness. I will send source code to be knowledge for other people.

function dolink()
{
var para1 = XDocument.DOM.selectSingleNode("/my:myFields/my:para1");
var oExcel = new ActiveXObject("Excel.Application");

oExcel.Workbooks.Add ("c:\\temp\\excel1.xls");
oExcel.Sheets("sheet1").Select;

//link data to optionbutton
oExcel.ActiveSheet.OLEObjects("OptionButton1").Object.Value = 1;

//insert data to row 10
oExcel.Range("A10").value = para1.text;
oExcel.Rows(10).Insert;
oExcel.Range("A10").value = "test insert new row";

oExcel.Visible = 1;

}

Bye *^-^*

Re: Passing Data To object in MS-Excel 2003

tuna — Thu, 10 Mar 2005 08:43:21 GMT

Thanks for your reply. I would like to pass value from Infopath's Optionbutton to OptionButton in MS-Excel's Visual Basic tool.
And I have another question is I want to send data from repeat table to MS-Excel by inserting new row automatically which I will code jsscript program in submit button. And I have my coding in following,

function dolink()
{
var para1 = XDocument.DOM.selectSingleNode("/my:myFields/my:para1");
var oExcel = new ActiveXObject("Excel.Application");
oExcel.Workbooks.Add ("D:\\infopath\\excel1.xls");
oExcel.Sheets("sheet1").Select;

// test link data to optionbutton
oExcel.ActiveSheet.Shapes("OptionButton1").Select; //this line error
oExcel.Selection.Value = True;

// test insert new row in MS-EXCEL
oExcel.Rows("10:10").Select;
oExcel.Selection.Insert Shift:=xlDown; //this line error
oExcel.Range("A10").value = para1.text;

oExcel.Visible = 1;
}

If you have the best solution,please tell me.
Thank you very much. :)

Re: Passing Data To object in MS-Excel 2003

Patrick Halstead — Thu, 10 Mar 2005 08:08:39 GMT

Hi Tuna,
Can you please give more details? What is the user scenario? What is the option button? Have you tried Export to Excel from InfoPath or using schemas from Excel to load the xml files?
Patrick

Passing Data To object in MS-Excel 2003

tuna — Thu, 10 Mar 2005 03:53:00 GMT

Would you help me about passing data from infopath (office 2003) to optionbutton in MS-Excel 2003?
Thanks a lot. :)