通过ACCESS VBA控制Excel和TXT文件

我试图打开一个EXCEL文件，编辑它，然后通过ACCESS VBA保存为一个.txt文件。 这是我目前的代码：

Set xls = New Excel.Application Set xlbook = xls.Workbooks.Open(xlpath, ReadOnly:=True) Set xlsheet = xlbook.Sheets("Extract") xlsheet.Rows(1).EntireRow.Delete xlsheet.Range("A1:" & xlsheet.Range("A1").End(xlDown).Address).Sort xlsheet.Range("A1"), xlAscending xlbook.SaveAs OutputDir & dARR(i) & ".txt", xlText Close xlbook xls.Workbooks(1).Close 

我遇到的问题是我无法closures.txt或Excel文件。 代码的底部两行出错。