From: David Morrison <davesruby@...>
Date: 2014-11-11T07:21:27-06:00
Subject: [ruby-core:66203] Excel saveas using a variable

--089e011767c9183e1a05079528dc
Content-Type: text/plain; charset=UTF-8

When I run this code in Sketchup, it performs it's duties, then opens
excel, enters the info, then I want it to save as the Address.

And that is where I am having the problem.

Thanks.

 ents=Sketchup.active_model.active_entities
>         prompts = ["Company Name", "Address","One","Two","Three","Four"]
>     defaults = ["My Co","69 Your Street",1.0,2.0,3.0,4.0]
>     input = UI.inputbox prompts, defaults, "Risers"
>         a,b,c,d,e,f=input
> ent = Sketchup.active_model.entities
>  pts = []
>
> pts[0] = [0,c,0]
> pts[1] = [0,d,0]
> pts[2] = [0,0,e]
> pts[3] = [0,0,f]
>
>  # Add the face to the entities in the model
> face = ent.add_face pts
>  face.pushpull 4
> #Open excel and enter info
>   require('win32ole')
>    excel = WIN32OLE.new('Excel.Application')
>    excel.Visible = true
>   workbook = excel.Workbooks.Open('C:\TestFolder\Test.xlsx')
>    ws = workbook.Worksheets(1)
>
> ws.Cells(1,1).Value = a
> ws.Cells(1,2).Value = b
> ws.Cells(1,3).Value = c
> ws.Cells(1,4).Value = d
> ws.Cells(1,5).Value = e
> ws.Cells(1,6).Value = f
>
>   # workbook.SaveAs("C:\TestFolder\" + b + ".xlsx")#trying to get
> 'Customer Address' as the saved workbook
>
>
>

--089e011767c9183e1a05079528dc
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">When I run this code in Sketchup, it performs it&#39;s dut=
ies, then opens=20
excel, enters the info, then I want it to save as the Address.<br>
<br>
And that is where I am having the problem.<br>
<br>
Thanks.<br><br><blockquote style=3D"margin:0px 0px 0px 0.8ex;border-left:1p=
x solid rgb(204,204,204);padding-left:1ex" class=3D"gmail_quote">=C2=A0ents=
=3DSketchup.active_model.active_entities<br>=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=
=C2=A0 prompts =3D [&quot;Company Name&quot;, &quot;Address&quot;,&quot;One=
&quot;,&quot;Two&quot;,&quot;Three&quot;,&quot;Four&quot;]<br>=C2=A0=C2=A0=
=C2=A0 defaults =3D [&quot;My Co&quot;,&quot;69 Your Street&quot;,1.0,2.0,3=
.0,4.0]<br>=C2=A0=C2=A0=C2=A0 input =3D UI.inputbox prompts, defaults, &quo=
t;Risers&quot;<br>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 a,b,c,d,e,f=3D=
input<br>ent =3D Sketchup.active_model.entities<br>=C2=A0pts =3D []<br><br>=
pts[0] =3D [0,c,0]<br>pts[1] =3D [0,d,0]<br>pts[2] =3D [0,0,e]<br>pts[3] =
=3D [0,0,f]<br><br>=C2=A0# Add the face to the entities in the model<br>fac=
e =3D ent.add_face pts<br>=C2=A0face.pushpull 4<br>#Open excel and enter in=
fo<br>=C2=A0 require(&#39;win32ole&#39;)<br>=C2=A0=C2=A0 excel =3D WIN32OLE=
.new(&#39;Excel.Application&#39;)<br>=C2=A0=C2=A0 excel.Visible =3D true<br=
>=C2=A0 workbook =3D excel.Workbooks.Open(&#39;C:\TestFolder\Test.xlsx&#39;=
)<br>=C2=A0=C2=A0 ws =3D workbook.Worksheets(1)<br><br>ws.Cells(1,1).Value =
=3D a<br>ws.Cells(1,2).Value =3D b<br>ws.Cells(1,3).Value =3D c<br>ws.Cells=
(1,4).Value =3D d<br>ws.Cells(1,5).Value =3D e<br>ws.Cells(1,6).Value =3D f=
<br><br>=C2=A0 # workbook.SaveAs(&quot;C:\TestFolder\&quot; + b + &quot;.xl=
sx&quot;)#trying to get &#39;Customer Address&#39; as the saved workbook<br=
><br><br></blockquote></div>

--089e011767c9183e1a05079528dc--