I have imported huge log file (35 MB size) into a worksheet. One of its column contain some data.
There is a Main Sheet which contains "ComboBoxStartTime" ActiveX Combo control.
I am populating data from a range into this combobox. The number of rows containing data are huge because of size of file (let say: 506390 or more) However i am getting an error:
Run-time error '-2147467259 (80004005)
The code for populating combobox is:
Expand|Select|Wrap|Line Numbers
- Public Sub FillStartTimeComboBox(Datasheet As Worksheet, ByVal FirstDataRow As Long)
- Application.ScreenUpdating = False
- Dim myRange As Range
- Dim r As Range
- Dim LastDataRow As Long
- Dim LValue As String
- 'Sheet1.ComboBoxStartTime.Clear
- Datasheet.Activate
- LastDataRow = Cells(1000000, 1).End(xlUp).row
- 'Set the range of cells, whose values will be put into the combobox
- Set myRange = Range(Cells(FirstDataRow, 1), Cells(LastDataRow, 1))
- 'work through each cell in the range and put the value in the Spectrum combobox.
- Cells(FirstDataRow, 1).Select
- For Each r In myRange
- 'add cell value to combobox list if it is not a blank cell.
- If r.Value <> "" Then
- LValue = Format(r, "dd/mm/yyyy hh:mm:ss")
- Sheet1.ComboBoxStartTime.AddItem LValue
- End If
- Next r
- Application.ScreenUpdating = True
- End Sub
Error is coming at line:
Expand|Select|Wrap|Line Numbers
- Sheet1.ComboBoxStartTime.AddItem LValue
Thanks
Prashant Dixit