25 posts in this topic
i have an error:
==> The requested action with this object has failed.: $iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count $iRowCount = .Range(^ ERROR
My code is:
$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell) Sleep(1000) $iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count Sleep(1000) _Excel_RangeWrite($oWorkbook_1, $oWorkbook_1.ActiveSheet,$aFileList[$i] , "AB3:AB"&$iRowCount) I have added some sleep because the application was crashing more often before, so i thought to slow down the code execution.
But i didn't solve the issue.
Has anyone an idea of what the problem might be?
Thanks in advance.
Extensive library to control and manipulate Microsoft Excel charts.
Written by GreenCan and water.
Theads: General Help & Support - Example Scripts
BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort
KNOWN BUGS (last changed: 2017-07-21)
None. The COM error handling related bugs have been fixed.
i have a problem with the deletion of an empty row in Excel.
If $vRow_2 = "" Then _Excel_RangeDelete($oWorkbook_1.ActiveSheet,"2", $xlShiftUp,1) EndIf I want to delete the second row. $vRow_2 is an empty cell, "A2".
After running the code, the second row is not deleted.
I have tried also:
If $vRow_2 = Null Then _Excel_RangeDelete($oWorkbook_1.ActiveSheet,"2", $xlShiftUp,1) EndIf But it doesn't work.
Thanks in advance.
Create modern looking borderless and resizable GUIs with control buttons (Close,Maximize/Restore,Minimize, Fullscreen, Menu) True borderless, resizeable GUI with full support for aerosnap etc. Many color schemes/themes included. See MetroThemes.au3 for more details. 3 type of Windows 8/10 style buttons. Modern checkboxes, radios, toggles and progressbar. All buttons, checkboxes etc. have hover effects! Windows 10 style modern MsgBox. Windows 10/Android style menu that slides in from left. Windows 10 style right click menu
Credits: @UEZ, for the function to create buttons with text using GDIPlus. @binhnx for his SSCtrlHover UDF
Download UDF with example:
I'm trying to insert the following formula in cell A2 using my script:
=if(A1=""; "YES"; "NO")
To my understanding, the line of code should be similar to this:
_Excel_RangeWrite($MasterFile, Default, "=if(A1=""; "YES"; "NO")", "A2")
However, it does not work, probably due to the multiple quotation marks that confuse the script :C
How do I avoid this problem?