田螺姑娘 霏霏: PrivateSubForm_Load()SetXlApp=CreateObject("Excel.Application")XlApp.Workbooks.OpenApp.Path&"\123.xls"'文件位置Fori=1ToXlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count'从第一行到尾行List1.AddItemXlApp.Workbooks(1).Worksheets(1).Cells(i,1).TextN....