write file name into text file

[yinkajewole]

how do i write the file name and path of my active workbook into a text file without putting it inside quotes i.e
c:\temp\col.xls
instead of
"c:\temp\col.xls"

 

[Leith Ross]

Hello yinkajewole,

Provided the active workbook has already been saved then you can use ThisWorkbook.FullName to return the path and name of the workbook.

 

[yinkajewole]

Hello yinkajewole,

Provided the active workbook has already been saved then you can use ThisWorkbook.FullName to return the path and name of the workbook.

have you tried it yourself, because that was what i did initially?

 

[alansidman]

I used this Macro

Sub fullname()
MsgBox (ThisWorkbook.fullname)
End Sub

and it works for me.

 

[yinkajewole]

this is the macro I'm using

Sub fullname()Dim st As String
st = "C:\Users\USER\Desktop\History.txt"
Open st For Append As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
If ActiveWorkbook.Path = "" Then
Else
Write [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , (ThisWorkbook.fullname)
End If
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
End Sub

 

[Rick Rothstein]

how do i write the file name and path of my active workbook into a text file without putting it inside quotes i.e

this is the macro I'm using

Sub fullname()Dim st As String
st = "C:\Users\USER\Desktop\History.txt"
Open st For Append As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] [/URL] 
If ActiveWorkbook.Path = "" Then
Else
[B][COLOR="#FF0000"][SIZE=3]Write #1   [/SIZE][/COLOR][/B], (ThisWorkbook.fullname)
End If
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] [/URL] 
End Sub

Don't use Write #1 use Print #1 instead.

 

[yinkajewole]

Don't use Write #1 use Print #1 instead.

great!

 

[yinkajewole]

Please, I would like to modify this code such that ThisWorkbook.fullname will remove any previous one and add the new one to the last line

Sub fullname()Dim st As Stringst = "C:\Users\USER\Desktop\History.txt"
Open st For Append As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]   
If ActiveWorkbook.Path = "" Then
Else
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , [B]ThisWorkbook.fullname[/B]
End If
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]   
End Sub