I need an complex example for Excel.au3

[gil900 84]

Hello,

I'm trying to do something complicated compared to what I've done so far with the function Excel.au3.

Until now I did not need much help to do what I wanted because all the examples in UDF ..

But now there are things I do not have examples in UDF and I need examples ..

That's what I want to do:

There are some things I do not know:

1) What combine calls

2) how to write in the center

3) How to set background color

4) How to increase the size of the letters.

5) how to define the The black lines..

Hope not missed anything ..

it looks scary .. It's much more serious than what I did so far ..

Hope you understand and help me ..

Thank you.

[water 1,888]

Some examples:

1) $oExcel.ActiveSheet.Range("A1:A3").Merge()

2) $oExcel.ActiveSheet.Range("A1:A3").HorizontalAlignment($xlCenter)

3) $oExcel.ActiveSheet.Range("A1:A3").Interior.ColorIndex = 8 ; Cyan

4) $oExcel.ActiveSheet.Range("A1:A3").Font.Size = 10

5) With $oExcel.ActiveSheet.Range("A1:A3").Borders($xlEdgeBottom)

.LineStyle = $xlContinuous

.Weight = $xlThin

.ColorIndex = 3

EndWith

[gil900 84]

Some examples:

1) $oExcel.ActiveSheet.Range("A1:A3").Merge()

2) $oExcel.ActiveSheet.Range("A1:A3").HorizontalAlignment($xlCenter)

3) $oExcel.ActiveSheet.Range("A1:A3").Interior.ColorIndex = 8 ; Cyan

4) $oExcel.ActiveSheet.Range("A1:A3").Font.Size = 10

5) With $oExcel.ActiveSheet.Range("A1:A3").Borders($xlEdgeBottom)

.LineStyle = $xlContinuous

.Weight = $xlThin

.ColorIndex = 3

EndWith

Thanks but nothing works except

$oExcel.ActiveSheet.Range("A1:A3").Merge()

..

I examine these lines of code through this Test:

#include <Excel.au3>

$oExcel = _ExcelBookOpen(@ScriptDir & "" & "test.xls")

$oExcel.ActiveSheet.Range("A1:A3").Merge() ; <---------------------------- Here I put the line of code.
;_ExcelBookSaveAs($oExcel, @ScriptDir & "" & "test.xls", "xls")
$file = "test.xls"
;ExelClose()


Func ExelClose()
Sleep(500)
   If $oExcel.Application.Workbooks.Count > 1 Then
    $oExcel.Close
    $oExcel = ''
    $oExcel = ObjGet("", "Excel.Application")
    ; Restore the users specified settings
    $oExcel.Application.DisplayAlerts = $fDisplayAlerts
    $oExcel.Application.ScreenUpdating = $fScreenUpdating
    $oExcel = ''
   Else
    $oExcel.Application.Quit
    EndIf
EndFunc

Edited December 17, 2012 by gil900

[water 1,888]

How do you set the variables used in my last post?

Example:

2) You have to use the following enumeration for alignment. Center = -4108

[gil900 84]

I changed the line:

$oExcel.ActiveSheet.Range("A1:A3").HorizontalAlignment($xlCenter)

to

$oExcel.ActiveSheet.Range("A1:A3").HorizontalAlignment(-4108)

but still not works..

Edited December 17, 2012 by gil900

[water 1,888]

I will test and post the results as soon as I'm in my office again tomorrow.

[gil900 84]

I will test and post the results as soon as I'm in my office again tomorrow.

Thank you

[water 1,888]

BTW: Which version of Excel do you run?

[gil900 84]

BTW: Which version of Excel do you run?

Excel 2010

But it would be better if it also will work for Excel 2013

[water 1,888]

This works fine for me running Excel 2010:

#include 

$oExcel = _ExcelBookOpen(@ScriptDir & "" & "test.xls")

$oRange = $oExcel.ActiveSheet.Range("A1:C1")
$oRange.Merge()
MsgBox(0, "Excel", "Cells A1:C1 have been merged")
$oRange = $oExcel.ActiveSheet.Range("A2:C2")
$oRange.Value = "*****"
$oRange.HorizontalAlignment = $xlCenter
MsgBox(0, "Excel", "Horizontal formatting for cells A2:C2 set to centered")
$oRange.Interior.ColorIndex = 8 ; Cyan
MsgBox(0, "Excel", "Color for cells A2:C2 set to Cyan")
$oRange.Font.Size = 14
MsgBox(0, "Excel", "Font size for cells A2:C2 set to 14")
With $oRange.Borders($xlEdgeBottom)
    .LineStyle = $xlContinuous
    .Weight = $xlThin
    .ColorIndex = 3
EndWith
MsgBox(0, "Excel", "Bottom borders (line style, weight, color) for cells A2:C2 set")