| 1 | #include <Excel.au3>
|
|---|
| 2 | #include <Array.au3>
|
|---|
| 3 |
|
|---|
| 4 | func _openSourceData()
|
|---|
| 5 | $sourcefile=FileOpenDialog("Please select source file",@ScriptDir,"All (*.*)")
|
|---|
| 6 | If @error Then
|
|---|
| 7 | ; Display the error message.
|
|---|
| 8 | MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
|
|---|
| 9 | else
|
|---|
| 10 | ; Create application object
|
|---|
| 11 | Local $oAppl = _Excel_Open()
|
|---|
| 12 | If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
|
|---|
| 13 | ; *****************************************************************************
|
|---|
| 14 | ; Open an existing workbook and return its object identifier.
|
|---|
| 15 | ; *****************************************************************************
|
|---|
| 16 | Local $sWorkbook = $sourcefile
|
|---|
| 17 | $oWorkbook = _Excel_BookOpen($oAppl, $sWorkbook, Default, Default, True)
|
|---|
| 18 | If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Error opening '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
|
|---|
| 19 | $sourceArray=_Excel_RangeRead($oWorkbook)
|
|---|
| 20 | _ArrayDisplay($sourceArray)
|
|---|
| 21 | $unique=_ArrayUnique($sourceArray)
|
|---|
| 22 | _ArrayDisplay($unique)
|
|---|
| 23 | EndIf
|
|---|
| 24 | EndFunc
|
|---|
| 25 | _openSourceData()
|
|---|
