We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|any combination of this numbers||9||33|
|Word 2013 : style menu and default style set||2||26|
|Display Excel gridlines when called from Access||7||19|
|Opening a word doc from Excel and having fields populated in word from Excel when open||2||31|