在Access中,不僅可以把數據導出到excel,也可以讀取excel的數據
有時有做好的表格,我們希望通過窗體的功能把數據導入Access中
下面分享一段代碼,把excel數據添加到列表框中
Dim xlWbk As Excel.Workbook Dim xlWsh As Excel.Worksheet Dim i As Integer '打開表格 Set xlWbk = GetObject(CurrentProject.Path & "\示例1.xlsx") Set xlWsh = xlWbk.Worksheets("sheet1") '將列表框的行來源類型設置為值列表 LstName.RowSourceType = "Value List" LstName.RowSource = "" '獲取工作表中指定單元格的數據 For i = 2 To 19 LstName.AddItem xlWsh.Cells(i, 2) Next i '保存並關閉工作簿 xlWbk.Save: xlWbk.Close Set xlWsh = Nothing Set xlWbk = Nothing Exit Sub