Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim objApp As New Excel.Application Dim objBook As Excel.Workbook Dim objSheet As Excel.Worksheet Try objBook = objApp.Workbooks.Open(Application.StartupPath & "\Book1.xlsx") objSheet = objBook.Worksheets(1) Dim range As Excel.Range Dim usedRows As Integer = objSheet.UsedRange.Rows.Count Dim usedColumns As Integer = objSheet.UsedRange.Columns.Count range = objSheet.Range("A1").Resize(usedRows, usedColumns) Dim Day1Info(,) As Object Day1Info = range.Value MsgBox(Day1Info(0, 0).ToString) Catch ex As Exception MsgBox(ex.Message) Finally objApp.Quit() End Try
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.