Tom's Guide | Tom's Hardware | Tom's Games
 |
 |
 |
I am using the following syntax to open a workbook:
Application.Workbooks.Open p_fileWhen running this macro I get an error 4001 (Open method failed).
If I then go into debugging modus and press F8 to continue I get no further error and the macro continues to run ok.
Any ideas?
George
0 
You're right, of course, Error number is 1004.
What I'm doing is working in one excel-sheet, that wants to cut-and-paste a line to a second sheet.
The second sheet is not open at the time of execution.
Here the syntax surrounding the problem:
lin = rowx & ":" & rowx
Rows(lin).Select
Selection.Cutp_file = "C:\Dokuments\JLB\Web-Site\Members_None.xls"
Application.Workbooks.Open p_file
Sheets("Members").Select
Range("a1").Select
maxl = ActiveCell.Value + 2
0
Step 1: Make sure "C:\Dokuments\JLB\Web-Site\Members_None.xls" exists. I assume "Dokuments" should be "Documents"
Step 2: Check the file's security to make sure you have the permissions to open it
Step 3: Make sure Excel can open the file outside of VBA.
0
I have no problem "opening" the document.
The calling macro runs up to the "open" command and then stops with error 1004. If I then press F8 it continues without reporting any further error..
This is what bothers me... Why does it stop in the first place, only to continue on F8?
0
I have no problem "opening" the document.
If "Dokuments" isn't a typo, then I assume you're using the German version of Windows?Why does it stop in the first place, only to continue on F8?
It stops because it can't open the workbook, "C:\Dokuments\JLB\Web-Site\Members_None.xls." If it does open the workbook when you press F8, then something was blocking Excel from opening the workbook, but the file lock is released by the time of your manual intervention. Does some other macro open/close the workbook? Does this macro run just before this one?
0
There IS another macro that opens the file, however it runs separately.
It uses the same syntax, but has no problems.
Very strange!!
0
Very strange indeed. This method is a bad hack, but it might get the script working again:
On Error Resume Next Dim i As Integer For i = 1 To 1000 Err.Clear Application.Workbooks.Open "C:\Dokuments\JLB\Web-Site\Members_None.xls" If Err.Number = 0 Then Exit For Next 'i On Error GoTo 0
0
Hey! IT WORKED!!
Thank's a lot fo that one!
Not a great leap forward for mankind, but at least I can sleep in peace again.George
0  |
 |
 |
This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |
