Spec86 Posted December 22, 2021 Posted December 22, 2021 expandcollapse popup#include <file.au3> #include <Excel.au3> #include <Array.au3> opt("WinTitleMatchMode", 2) $path = "C:\Users\User\Desktop\Nezavisimai\Papka2\" $FileListShort = _FileListToArray($path, "*.xlsx", 1, True) $ProgExcel = _Excel_Open() $BookDestiny = _Excel_BookNew($ProgExcel) Global $arr = [] $LineDestiny = 1 _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $FileListShort[0] $BookSource = _Excel_BookOpen($ProgExcel, $FileListShort[$i], False, False) $aArray = _Excel_RangeRead($BookSource, $BookSource.Activesheet, "A2:B4") _ArrayAdd($arr, $aArray) _Excel_BookClose($BookSource, False) Next Global $numRows = UBound($arr[0], 1) Global $numCols = UBound($arr[0], 2) Global $fArray = [] ReDim $fArray [0 To ($numRows * (Ubound($arr) - 1))] [0 to $numCols] rT = 0 For $p = 0 To UBound($arr) - 1 For r = 0 To $numRows rT = rT + 1 For c = 0 To $numCols $fArray[rT][c] = $p[r][c] Next c Next r Next $p _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, $fArray, "A2") Hello, what is Autoit equivalent for VBA Collection object? Dim CollArrays As New Collection 'VBA Collection How can create collection of 2D arrays with Autoit? This code write error.
ajag Posted December 22, 2021 Posted December 22, 2021 ReDim $fArray [0 To ($numRows * (Ubound($arr) - 1))] [0 to $numCols] try this: ReDim $fArray[($numRows * (Ubound($arr) - 1))][$numCols] A-Jay Rule #1: Always do a backup Rule #2: Always do a backup (backup of rule #1)
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 On 12/22/2021 at 2:14 PM, ajag said: ReDim $fArray [0 To ($numRows * (Ubound($arr) - 1))] [0 to $numCols] try this: ReDim $fArray[($numRows * (Ubound($arr) - 1))][$numCols] A-Jay Expand Write Error.
water Posted December 22, 2021 Posted December 22, 2021 What do you mean by "Write Error"? Can you please post the error message you get? My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
water Posted December 22, 2021 Posted December 22, 2021 BTW: You try to use a lot of "variables" without the leading $; rt, r, c. "Next $p" is not a valid statement. Should be "Next" My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 On 12/22/2021 at 3:26 PM, water said: BTW: You try to use a lot of "variables" without the leading $; rt, r, c. "Next $p" is not a valid statement. Should be "Next" Expand $rT = 0 For $p = 0 To (UBound($arr) - 1) For $r = 0 To $numRows $rT = $rT + 1 For $c = 0 To $numCols $fArray[$rT][$c] = $p[$r][$c] Next Next Next Error. Line 4397 (File"C:\Users\Users\Desktop\Test2.exe"): Error: Array variable has incorrect number of subscript or subscript dimension range exceeded.
Developers Jos Posted December 22, 2021 Developers Posted December 22, 2021 (edited) $p is a number not an Array ...right? Edited December 22, 2021 by Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
TheXman Posted December 22, 2021 Posted December 22, 2021 On 12/22/2021 at 12:48 PM, Spec86 said: How can create collection of 2D arrays with Autoit? Expand Here's a conceptual example of how to create a collection (array) of 2D arrays: #include <Array.au3> array_of_2d_arrays_example() Func array_of_2d_arrays_example() Const $2D_ARRAY_1 = [["A1 Row 0/Col 0", "A1 Row 0/Col 1"], ["A1 Row 1/Col 0", "A1 Row 1/Col 1"]], _ $2D_ARRAY_2 = [["A2 Row 0/Col 0", "A2 Row 0/Col 1"], ["A2 Row 1/Col 0", "A2 Row 1/Col 1"]] Local $aArrayOf2dArrays[0] ;Display 2d array 1 & 2 _ArrayDisplay($2D_ARRAY_1, "$2D_ARRAY_1") _ArrayDisplay($2D_ARRAY_2, "$2D_ARRAY_2") ;Add 2d array 1 & 2 to the array of 2d arrays _ArrayAdd($aArrayOf2dArrays, $2D_ARRAY_1, 0, "", "", $ARRAYFILL_FORCE_SINGLEITEM) _ArrayAdd($aArrayOf2dArrays, $2D_ARRAY_2, 0, "", "", $ARRAYFILL_FORCE_SINGLEITEM) ;Display array of 2d arrays _ArrayDisplay($aArrayOf2dArrays, "$aArrayOf2dArrays") ;Display the rows of array of 2d arrays _ArrayDisplay($aArrayOf2dArrays[0], "Row 0 of $aArrayOf2dArrays") _ArrayDisplay($aArrayOf2dArrays[1], "Row 1 of $aArrayOf2dArrays") EndFunc CryptoNG UDF: Cryptography API: Next Gen jq UDF: Powerful and Flexible JSON Processor | jqPlayground: An Interactive JSON Processor Xml2Json UDF: Transform XML to JSON | HttpApi UDF: HTTP Server API | Roku Remote: Example Script About Me How To Ask Good Questions On Technical And Scientific Forums (Detailed) | How to Ask Good Technical Questions (Brief) "Any fool can know. The point is to understand." -Albert Einstein "If you think you're a big fish, it's probably because you only swim in small ponds." ~TheXman
water Posted December 22, 2021 Posted December 22, 2021 Can you please tell us what you try to do with your script? Do you need to create the array at all? My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 (edited) On 12/22/2021 at 3:53 PM, Jos said: $p is a number not an Array ...right? Expand Yes, VBA has "For Each". Autoit has "For". I cannot use "For Each" in Autoit. Edited December 22, 2021 by Spec86
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 On 12/22/2021 at 4:00 PM, TheXman said: Here's a conceptual example of how to create a collection (array) of 2D arrays: #include <Array.au3> array_of_2d_arrays_example() Func array_of_2d_arrays_example() Const $2D_ARRAY_1 = [["A1 Row 0/Col 0", "A1 Row 0/Col 1"], ["A1 Row 1/Col 0", "A1 Row 1/Col 1"]], _ $2D_ARRAY_2 = [["A2 Row 0/Col 0", "A2 Row 0/Col 1"], ["A2 Row 1/Col 0", "A2 Row 1/Col 1"]] Local $aArrayOf2dArrays[0] ;Display 2d array 1 & 2 _ArrayDisplay($2D_ARRAY_1, "$2D_ARRAY_1") _ArrayDisplay($2D_ARRAY_2, "$2D_ARRAY_2") ;Add 2d array 1 & 2 to the array of 2d arrays _ArrayAdd($aArrayOf2dArrays, $2D_ARRAY_1, 0, "", "", $ARRAYFILL_FORCE_SINGLEITEM) _ArrayAdd($aArrayOf2dArrays, $2D_ARRAY_2, 0, "", "", $ARRAYFILL_FORCE_SINGLEITEM) ;Display array of 2d arrays _ArrayDisplay($aArrayOf2dArrays, "$aArrayOf2dArrays") ;Display the rows of array of 2d arrays _ArrayDisplay($aArrayOf2dArrays[0], "Row 0 of $aArrayOf2dArrays") _ArrayDisplay($aArrayOf2dArrays[1], "Row 1 of $aArrayOf2dArrays") EndFunc Expand I'm first time in coding )) I cannot use Functions )))
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 (edited) On 12/22/2021 at 4:02 PM, water said: Can you please tell us what you try to do with your script? Do you need to create the array at all? Expand Target: combine 2D arrays. And create final 2D array. insert final 2D array into sheet. This script combine data from folder. I'm first time in coding. I understand this code. Loop files is work. Combine 2D arrays is not work. Edited December 22, 2021 by Spec86
mLipok Posted December 22, 2021 Posted December 22, 2021 ah.... here you are... https://stackoverflow.com/questions/70417461/what-is-autoit-equivalent-for-vba-collection-object Signature beginning:* Please remember: "AutoIt"..... * Wondering who uses AutoIt and what it can be used for ? * Forum Rules ** ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button: Reveal hidden contents Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 * My contribution to others projects or UDF based on others projects: * _sql.au3 UDF * POP3.au3 UDF * RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * Useful links: * Forum Rules * Forum etiquette * Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX IE Related: * How to use IE.au3 UDF with AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions * EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *I also encourage you to check awesome @trancexx code: * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors * HTML editor * winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/ "Homo sum; humani nil a me alienum puto" - Publius Terentius Afer"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming" , be and \\//_. Anticipating Errors : "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty." Signature last update: 2023-04-24
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 (edited) On 12/22/2021 at 4:26 PM, mLipok said: ah.... here you are... https://stackoverflow.com/questions/70417461/what-is-autoit-equivalent-for-vba-collection-object Expand I am ))) Edited December 22, 2021 by Spec86
water Posted December 22, 2021 Posted December 22, 2021 (edited) There is no need to create an array. I suggest something like this: #include <File.au3> #include <Excel.au3> Global $LineDestiny = 1, $oBookDestiny, $aArraySource, $oBookSource Global $sPath = "H:\Local\TEST" ; "C:\Users\User\Desktop\Nezavisimai\Papka2\" Global $aFileListShort = _FileListToArray($sPath, "*.xlsx", $FLTA_FILES, True) Global $oExcel = _Excel_Open() Global $oBookDestiny = _Excel_BookNew($oExcel) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $aFileListShort[0] $oBookSource = _Excel_BookOpen($oExcel, $aFileListShort[$i], False, False) $aArraySource = _Excel_RangeRead($oBookSource, $oBookSource.Activesheet, "A2:B4") ; Calculate the last used row $iLastUsedRow = $oBookDestiny.Activesheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArraySource, "A" & $iLastUsedRow+1) _Excel_BookClose($oBookSource, False) Next Edited December 22, 2021 by water My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 On 12/22/2021 at 5:00 PM, water said: There is no need to create an array. I suggest something like this: #include <File.au3> #include <Excel.au3> Global $LineDestiny = 1, $oBookDestiny, $aArraySource, $oBookSource Global $sPath = "H:\Local\TEST" ; "C:\Users\User\Desktop\Nezavisimai\Papka2\" Global $aFileListShort = _FileListToArray($sPath, "*.xlsx", $FLTA_FILES, True) Global $oExcel = _Excel_Open() Global $oBookDestiny = _Excel_BookNew($oExcel) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $aFileListShort[0] $oBookSource = _Excel_BookOpen($oExcel, $aFileListShort[$i], False, False) $aArraySource = _Excel_RangeRead($oBookSource, $oBookSource.Activesheet, "A2:B4") ; Calculate the last used row $iLastUsedRow = $oBookDestiny.Activesheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArraySource, "A" & $iLastUsedRow+1) _Excel_BookClose($oBookSource, False) Next Expand Thank you. I still have an interest ))) I would like to have code version with final array ))) How is create final array? How do my first code working?
water Posted December 22, 2021 Posted December 22, 2021 #include <File.au3> #include <Excel.au3> Global $sPath = "H:\Local\TEST" ; "C:\Users\User\Desktop\Nezavisimai\Papka2\" Global $aFileListShort = _FileListToArray($sPath, "*.xlsx", $FLTA_FILES, True) Global $oExcel = _Excel_Open() Global $oBookDestiny = _Excel_BookNew($oExcel) Global $LineDestiny = 1, $oBookDestiny, $aArraySource, $oBookSource, $aArrayOutput[1][2] = [["Weather", "Temp"]] _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $aFileListShort[0] $oBookSource = _Excel_BookOpen($oExcel, $aFileListShort[$i], False, False) $aArraySource = _Excel_RangeRead($oBookSource, $oBookSource.Activesheet, "A2:B4") _ArrayConcatenate($aArrayOutput, $aArraySource) $iLastUsedRow = $oBookDestiny.Activesheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArraySource, "A" & $iLastUsedRow+1) _Excel_BookClose($oBookSource, False) Next _ArrayDisplay($aArrayOutput) My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Spec86 Posted December 22, 2021 Author Posted December 22, 2021 On 12/22/2021 at 5:37 PM, water said: #include <File.au3> #include <Excel.au3> Global $sPath = "H:\Local\TEST" ; "C:\Users\User\Desktop\Nezavisimai\Papka2\" Global $aFileListShort = _FileListToArray($sPath, "*.xlsx", $FLTA_FILES, True) Global $oExcel = _Excel_Open() Global $oBookDestiny = _Excel_BookNew($oExcel) Global $LineDestiny = 1, $oBookDestiny, $aArraySource, $oBookSource, $aArrayOutput[1][2] = [["Weather", "Temp"]] _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $aFileListShort[0] $oBookSource = _Excel_BookOpen($oExcel, $aFileListShort[$i], False, False) $aArraySource = _Excel_RangeRead($oBookSource, $oBookSource.Activesheet, "A2:B4") _ArrayConcatenate($aArrayOutput, $aArraySource) $iLastUsedRow = $oBookDestiny.Activesheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArraySource, "A" & $iLastUsedRow+1) _Excel_BookClose($oBookSource, False) Next _ArrayDisplay($aArrayOutput) Expand #include <File.au3> #include <Excel.au3> Global $sPath = "C:\Users\User\Desktop\Nezavisimai\Papka2\" Global $aFileListShort = _FileListToArray($sPath, "*.xlsx", $FLTA_FILES, True) Global $oExcel = _Excel_Open() Global $oBookDestiny = _Excel_BookNew($oExcel) Global $LineDestiny = 1, $oBookDestiny, $aArraySource, $oBookSource, $aArrayOutput[1][2] = [["Weather", "Temp"]] _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Weather", "A" & $LineDestiny) _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, "Temp", "B" & $LineDestiny) For $i = 1 to $aFileListShort[0] $oBookSource = _Excel_BookOpen($oExcel, $aFileListShort[$i], False, False) $aArraySource = _Excel_RangeRead($oBookSource, $oBookSource.Activesheet, "A2:B4") _ArrayConcatenate($aArrayOutput, $aArraySource) ;$iLastUsedRow = $oBookDestiny.Activesheet.UsedRange.SpecialCells($xlCellTypeLastCell).Row ;_Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArraySource, "A" & $iLastUsedRow+1) _Excel_BookClose($oBookSource, False) Next _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, $aArrayOutput, "A2") _ArrayDisplay($aArrayOutput) Your code is work. But when insert $aArrayOutput in one iteration all array, write error. I am normal ))) But i would like to insert final array = 1 object. _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, $aArrayOutput, "A2")
water Posted December 22, 2021 Posted December 22, 2021 I have modified the variable names to adhere to the hungary notation. So _Excel_RangeWrite($BookDestiny, $BookDestiny.Activesheet, $aArrayOutput, "A2") should be _Excel_RangeWrite($oBookDestiny, $oBookDestiny.Activesheet, $aArrayOutput, "A2") My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
water Posted December 22, 2021 Posted December 22, 2021 Once again: If you get an error and ask for help, please post the full error message! My UDFs and Tutorials: Reveal hidden contents UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now