Private Sub Command1_Click()
Dim xl As Excel.Application
Dim xlbook As Excel.Workbook
Set xl = CreateObject("excel.application")
xl.Visible = False
Dim st As Excel.Worksheet
Set xlbook = xl.Workbooks.Open(App.Path & "\date.xlsx")
Set st = xlbook.Worksheets(1)
Dim i As Integer
i = 1
Do While st.Cells(i, 1).Value <> ""
List1.AddItem st.Cells(i, 1).Value
i = i + 1
Loop
Set xl = Nothing
Set xlbook = Nothing
End Sub
温馨提示:内容为网友见解,仅供参考