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.
Option Explicit Private Sub CommandButton1_Click() Dim objExcel As New Excel.Application Dim wb As Excel.Workbook Dim FName As Variant Dim x As Long Dim LastRow As Long FName = objExcel.GetOpenFilename("Excel Files (*.xls), *.xls") If FName = "" Or FName = False Then GoTo Canceled: End If Set wb = objExcel.Workbooks.Open(FName) With wb.Sheets(1) LastRow = .Range("A65536").End(xlUp).Row For x = 1 To LastRow Me.ComboBox1.AddItem (.Range("A" & x).Text) Next x End With Canceled: objExcel.Quit End Sub
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.