Expanding Column width

[PpsSupport]

Hi everybody,

I'm a intermediary programmer and is evaluating AutoIt. As so far I do have great achievement with this language. But nevertheless I have one struggle point with AutoIt.

In VB (VBA and VBS) I could change the width of column in Excel, but I could figure out to do this with Auto It. I could use a combination of autoIT with vbs, but I like to avoid that practice.

Another program that I'm running, display result of database queries in grid window, like Excel. I try everything to change to column width of this program but with no success.

Therefore, if someone could help me with one of this options:

1 - Function that could help change the column width of running program

or

2 function to click on menu when right click the column header.

I will highly appreciate your input.

Edited August 3, 2011 by PpsSupport

[taietel]

For no.1:

#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

For $i = 1 To 5 ;Loop
 _ExcelWriteCell($oExcel, $i, $i, 1) ;Write to the Cell Vertically using values 1 to 5
Next

ToolTip("Inserting Column(s) Soon...")
Sleep(3500) ;Pause to let user view action

_ExcelColumnInsert($oExcel, 1, 1) ;Insert 1 Column at column 1

$ColA = $oExcel.Columns("A");get the column 1
$ColA.ColumnWidth = 40; set width to 40 for the column 1

MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out

[JoHanatCent]

Another program that I'm running, display result of database queries in grid window, like Excel. I try everything to change to column width of this program but with no success.

Why another program if you can use AI to do it for you?

Adding to the example from taietel:

#include <Excel.au3>
#Include <Array.au3>
Local $oExcel = _ExcelBookNew() ;Create new book, make it visible
For $i = 1 To 5 ;Loop
 _ExcelWriteCell($oExcel, $i, $i, 1) ;Write to the Cell Vertically using values 1 to 5
Next
ToolTip("Inserting Column(s) Soon...")
Sleep(2500) ;Pause to let user view action
_ExcelColumnInsert($oExcel, 1, 1) ;Insert 1 Column at column 1
$ColA = $oExcel.Columns("A");get the column 1
$ColA.ColumnWidth = 40; set width to 40 for the column 1
MsgBox(0, "Exiting", "Press OK to Save File and Exit")
$aArray1 = _ExcelReadSheetToArray($oExcel)
_ArrayDisplay($aArray1, "Info in a Grid like Excel?")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out

[DanielTyrkiel]

This function didn't work for me. Columns got expanded 7 times more than I set it to and then the script crashed

[BrewManNH]

This thread is 2 years old, who are you supposed to be commenting to?

[DanielTyrkiel]

Sorry, being lazy here. Was looking through threads to find a way to resize columns in my script.

I used:

$ColA = $oExcel.Columns("A");get the column 1
$ColA.ColumnWidth = 40; set width to 40 for the column 1

but modified it for my excel and multiplied it for columns A thro P and it crashed my script

So I'll give it up for now, got more important things to do. When I get a moment, I'll get back to making the sheets look nice

thanks

Sorry for the trouble Govner

Dan