excel setup sheet possibilities

[Roger Peterson]

Gismo, I've been playing again with little success. Here is what I have in my string select from your first setup sheet example:

code:

---

s0 'Dim xs'

s01 'set wb = getobject("F:mcam91MillNCProcess Sheet for Carbon.xls")'

s02 'set sheet("toollist").select = true'

s03 ##"Set newBook = xs.Workbooks.Add"

s04 'With ws.activesheet'

s05 '.cells(1,1).value="Tool Number"'

s06 '.cells(1,2).value="Tool Name"'

s07 '.cells(1,3).value="Tool Diameter"'

s08 '.cells(1,4).value="Tool Corner Radius"'

s09 '.range("A1:G1").Select'

s10 "xs.selection.font.bold=true"

s11 '.Columns("A:G").Select'

s12 "xs.selection.HorizontalAlignment = -4108"

s13 '.Columns("A:G").EntireColumn.AutoFit'

s14 '.range("A2").Select'

s15 "End With"

s16 ".cells("

s17 ').value="'

s18 '"'

s19 ","

svbs

fstrsel s0 line svbs

---

Basically I am trying to do exactly what your first example of a setup sheet did but open an existing setup sheet and select the toollist sheet as my active sheet to write my tool info on. I would appreciate any help you can give. So far I am pretty excited about being able to place all of the tool info into a spreadsheet.

 

Thanks again for all the help,

[Roger Peterson]

bump...

[Günther Massimo - GMCCS]

Hi Roger,

 

sorry for my late reply.

Here is the answer.

code:

---

 s0 'Dim xs'

s01 'Set xs=CreateObject("Excel.Application")'

s02 "xs.visible=true"

s03 'xs.Workbooks.Open("c:t.xls")

s04 'With xs.Workbooks("t.xls").Worksheets("Test")'

s05 '.cells(1,1).value="WZ-Nr."'

s06 '.cells(1,2).value="WZ-Name"'

s07 '.cells(1,3).value="WZ-Durchmesser"'

s08 '.cells(1,4).value="WZ-Eckradius"'

s09 '.range("A1:G1").Select'

s10 "xs.selection.font.bold=true"

s11 '.Columns("A:G").Select'

s12 "xs.selection.HorizontalAlignment = -4108"

s13 '.Columns("A:G").EntireColumn.AutoFit'

s14 '.range("A2").Select'

s15 "End With"

s16 ".cells("

s17 ').value="'

s18 '"'

s19 ","

---

Note: "Test" is the required sheet name. In my excel book it's the second sheet.

 

Hope this helps you.

 

regards

[Roger Peterson]

gismo, you da man...

 

Thank you, again

 

looks like I need to take a vbs class somewhere...