通过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

---

我遇到的问题是无法关闭.txt或excel文件。代码的最后两行出错了

只需使用

xlbook.Close True

。谢谢您的帮助。我一直在做xlbook.close；然而，那个错误消失了，所以我切换到关闭xlbook。xls.工作簿（1）.关闭true；然而，这不起作用。Xlbook现在指的是.txt文件，所以我不知道如何关闭excel文件。那么，它是否适用于结尾为true的文件？忽略我的最后一条评论。一切都不符合事实。谢谢。@Derek请在下面的答案中添加解决问题的方法。这将帮助其他用户在访问带有答案的问题时解决相同的问题。只需使用

xlbook.Close True

。感谢您的帮助。我一直在做xlbook.close；然而，那个错误消失了，所以我切换到关闭xlbook。xls.工作簿（1）.关闭true；然而，这不起作用。Xlbook现在指的是.txt文件，所以我不知道如何关闭excel文件。那么，它是否适用于结尾为true的文件？忽略我的最后一条评论。一切都不符合事实。谢谢。@Derek请在下面的答案中添加解决问题的方法。这将帮助其他用户在访问带有答案的问题时解决相同的问题。