Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Remove all hidden metadata properties of MS .Docx Files||7||35|
|Getting error in connectionstring with Excel.||30||31|
|Consolidate multiple worksheets from different workbooks into single sheet where columns are differently structured||2||28|
|Why do I often "Too many different cell formats" error message in Excel2010?||2||23|