The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Featured on the ACEDS blog.
Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
VBA Code to Run Search on the New York State eCourts Site
December 4, 2016
Here's some VBA code posted below that I edited to run a search for a case number on the web site of New York State Unified Court System - at least for cases filed with the New York Supreme Court - the court of original jurisdiction for most civil cases in New York.
The VBA code will search for the index number you have listed in cell A2 of Sheet1.
This is based on the code posted to mrexcel.com by snowboy001. Insert it in a module in the VBA Project list of your workbook and give it a try. You will have to enter the CAPTCHA ("Completely Automated Public Turing test to tell Computers and Humans Apart") code for the NYS court site before proceeding.
Note that there is a brief delay between the initial input of the case number and the move to the case details page.
I'm hoping this will lead to bigger things soon . . .
Sub Login() Dim appIE As InternetExplorer Dim sURL As String Dim UserN As Variant, Pw As Variant Dim Element As HTMLButtonElement Dim btnInput As MSHTML.HTMLInputElement Dim ElementCol As MSHTML.IHTMLElementCollection Application.ScreenUpdating = False Set appIE = New InternetExplorer sURL = "https://iapps.courts.state.ny.us/webcivil/FCASSearch?param=I" With appIE .navigate sURL .Visible = True End With Do While appIE.Busy Loop Application.Wait (Now + #12:00:05 AM#) Set UserN = appIE.document.getElementsByName("txtIndex") If Not UserN Is Nothing Then UserN(0).Value = Sheets("Sheet1").Range("A2")
Set ElementCol = appIE.document.getElementsByTagName("btnFindCase") With appIE .document.forms(0).submit End With Do While appIE.Busy Loop Application.ScreenUpdating = True Set appIE = Nothing