ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Error trying to close down dbase IV file used for input to excel (https://www.excelbanter.com/excel-programming/363228-error-trying-close-down-dbase-iv-file-used-input-excel.html)

don

Error trying to close down dbase IV file used for input to excel
 
I am getting errors trying to close down a dbase file.
In the code below:
at the line Windows(filename).activate
I get a Run-time error '9' subscript out of range.
I think that is because windows only works on .xls files but that is
only a guess on my part.
at the line Filename.Delete
I get a run-time error '424' subscript out of range.
I beleive somehow I need to close the file before deleting it.
Thanks in advance for any help.
Don


Workbooks.Open Filename:="C:\My Documents\export.dbf"
Filename = "C:\My Documents\export.dbf"
' do stuff here
Application.DisplayAlerts = False
Windows(Filename).Activate ' Close down imported file before exiting
ActiveWorkbook.Close
Application.DisplayAlerts = True
Filename.Delete

Dave Peterson

Error trying to close down dbase IV file used for input to excel
 
Windows(Filename).Activate

Can't have the path included:

Filename = "export.dbf"
Windows(Filename).Activate

may work ok.



don wrote:

I am getting errors trying to close down a dbase file.
In the code below:
at the line Windows(filename).activate
I get a Run-time error '9' subscript out of range.
I think that is because windows only works on .xls files but that is
only a guess on my part.
at the line Filename.Delete
I get a run-time error '424' subscript out of range.
I beleive somehow I need to close the file before deleting it.
Thanks in advance for any help.
Don

Workbooks.Open Filename:="C:\My Documents\export.dbf"
Filename = "C:\My Documents\export.dbf"
' do stuff here
Application.DisplayAlerts = False
Windows(Filename).Activate ' Close down imported file before exiting
ActiveWorkbook.Close
Application.DisplayAlerts = True
Filename.Delete


--

Dave Peterson


All times are GMT +1. The time now is 05:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com