Run-time error '75' : Path/File access error

[akshay0880]

Hello.

I am trying the below code to generate a text file (with the extension .RG) but when running it says Path/File access error.

Please note that i am trying to save the generated text file on the same location as the workbook is saved.
I am not sure how to specify the path (if needed). Can someone please help me out?

Sub Card_RG()
Dim FileName As String
FileName = Range("Q1") & "CARD.RG"

Open FileName For Output As #1
Print #1, "B" & Range("Q1") & " YD"
Close #1
MsgBox ("CARD.RG Created")
End Sub

 

[Kaper]

And what is the content of Q1?

According to Open statement (VBA)

the argument called filepath, so your

Range("Q1") & "CARD.RG"

may (but

not have to) include pathname

Try first

FileName = activeworkbook.path & "\" & "CARD.RG"

and if it works - check what is wrong with Q1 (may be it does not contain trailing backslash?)

 

[akshay0880]

Hi, Thanks for replying.
Q1 contains a number (that changes every time) and the file naming that I want to generate, will have to be something like this:
1234CARD.RG
I also tried this line as suggested FileName = ActiveWorkbook.path & Range("Q1") & "CARD.RG" but I get the error Bad file name.

 

[Kaper]

you probably missed a backslash:

FileName = ActiveWorkbook.path & "\" & Range("Q1") & "CARD.RG"

 

[akshay0880]

you probably missed a backslash:

FileName = ActiveWorkbook.path & "\" & Range("Q1") & "CARD.RG"

Yes. Now i am getting a '2 error.
Says Bad file name or number. Attached screenshot

 

[akshay0880]

attached

 

[Domenic]

By any chance, does the path returned by ActiveWorkbook.path contain any unicode characters? If so, the Open statement is unable to handle unicode characters, and so you'll get the error...

Run-time error '52':

Bad file name or number

In this case, try using the FileSystemObject object instead of the Open statement. However, if in fact the path doesn't contain unicode characters, try running your code again. This time, though, when the error occurs, click on Debug, and then enter the following line in the Immediate Window (Ctrl+G), and press ENTER...

? FileName

What does it return?