Private Sub matData()
'-------Declare
Dim lngColumn As Long
Dim xlx As Object, xls As Object, xlc As Object, xlw As Object
Set xlx = CreateObject("Excel.Application")
xlx.Visible = True
Set xlw = xlx.Workbooks.Open("C:\access\matlevels.xls") ',,True
Set xls = xlw.Worksheets("sheet1")
'---...