What is wrong with my code

[RAJESH1960]

' write to temp file
usr = Environ("username")
strTempFile = "C:\Users\" & usr & "\Desktop\Master.xml"
With CreateObject("Scripting.FileSystemObject")
' true to overwrite existing temp file
.CreateTextFile(strTempFile, True).write strData

End With

This is just a part of the code. Everytime I run the code stops at .CreateTextFile(strTempFile, True).write strData and show an error as follows -
Run time error ‘5’:
Invalid procedure call or argument.

 

[RAJESH1960]

Did you even try my last suggestion?

I did that too but it shows another error

 

[RAJESH1960]

I did that too but it shows another error

variable not defined

 

[RAJESH1960]

' get the clipboard data
' magic code for is for early binding to MSForms.DataObject
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipBoard
strData = .GetText
End With

' write to temp file
usr = Environ("username")
strTempFile = "C:\Users\" & usr & "\Desktop\RENAME Master.xml"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strTempFile, True)
a.WriteLine (strData)
a.Close

 

[RAJESH1960]

Even the person who wrote the code for me is baffled as to why it is not working. He asked me to create a new workbook and try and I did that too
FYI The same code is running perfectly in 8 different applications but this one NO IDEA why

 

[Joe4]

variable not defined

It sounds like you have "Option Explicit" on, which forces you to declare all variables before using them (which is actually a good thing).
Just put this line at before the code update I gave you:

' write to temp file
Dim fs, a
usr = Environ("username")
strTempFile = "C:\Users\" & usr & "\Desktop\RENAME Master.xml"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strTempFile, True)
a.WriteLine(strData)
a.Close

 

[RAJESH1960]

It sounds like you have "Option Explicit" on, which forces you to declare all variables before using them (which is actually a good thing).
Just put this line at before the code update I gave you:

' write to temp file
Dim fs, a
usr = Environ("username")
strTempFile = "C:\Users\" & usr & "\Desktop\RENAME Master.xml"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strTempFile, True)
a.WriteLine(strData)
a.Close

Run-time error '5' --Invalid procedure call or arguement.

 

[Joe4]

Run-time error '5' --Invalid procedure call or arguement.

On which line of code?
If you hit "Debug", it should highlight the offending line of code.
Or, you can try stepping through the code manually, and seeing which line causes the error.

 

[RAJESH1960]

On which line of code?
If you hit "Debug", it should highlight the offending line of code.
Or, you can try stepping through the code manually, and seeing which line causes the error.

a.WriteLine(strData)
This line

 

[RAJESH1960]

a.WriteLine(strData)
This line

Dim rngData As Range
Dim strData As String
Dim strTempFile As String
Dim x As Long, y As Long
Dim usr As String

Dim fs, a
Is there additional text to be stored in Dim fs, a ...like as .....

 

[Joe4]

Do you have the "Microsoft Scripting Runtime" reference checked?
See here: Create Text File with FSO and VBA CreateTextFile - wellsr.com.

I think some of those links I provided earlier were for "VBScript" and not "VBA".