ERROR Open MyFile For Output As fnum

[guybrown]

Hi all!

I'm getting an error at Open MyFile For Output As fnum

I think there may be a problem with:
MyFile = ActiveWorkbook.Path & "\" & "Point_on_XY_" & Date & "_" & Time & ".scr"

Any ideas?

Sub WriteToATextFile()
'first set a string which contains the path to the file you want to create.
'this example creates one and stores it in the root directory
MyFile = ActiveWorkbook.Path & "\" & "Point_on_XY_" & Date & "_" & Time & ".scr"
'set and open file for output
fnum = FreeFile()
Open MyFile For Output As fnum
'write project info and then a blank line. Note the comma is required
'Write #fnum, "I wrote this"
'Write #fnum,
'use Print when you want the string without quotation marks
Print #fnum, A1
Close #fnum
End Sub

 

[guybrown]

Anyone?

 

[doofusboy]

Check your MyFile value. It's not providing a full path to your file.

 

[guybrown]

thanks doofusboy? but still the same error message coming up...

 

[doofusboy]

Your "ActiveWorkbook.Path" is likely "".

 

[guybrown]

My workbook is saved in H:\AutoCAD\Scripts
What do you mean ""?

 

[guybrown]

I just tried putting ActiveWorkbook.Path in quotation marks and with and without the following \ but still the same error. I appreciate your help... frustrating...

 

[guybrown]

help...

 

[doofusboy]

Have you tried:

MyFile =  "H:\AutoCAD\Scripts\" & "Point_on_XY_" & Date & "_" & Time & ".scr"

 

[guybrown]

i haven't but i'd like it to open/create the file in the same folder as the excel file if the excel file is moved hence the desire for activeworkbook.path
i'll try your suggestion though and see if it helps me to figure it out...