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.

 

[Joe4]

I think the issue is the ".write StrData" at the end of that line.
I don't use this method, but from what I see, it appears that the "write" piece needs to go on the next line.

See: CreateTextFile method (Visual Basic for Applications)
and: ASP CreateTextFile Method
and: VBScript >> FileSystemObject >> CreateTextFile

 

[RAJESH1960]

If I shift the .write to the next line it shows a syntex error
.CreateTextFile(strTempFile, True)
.Write strData

 

[Joe4]

If I shift the .write to the next line it shows a syntex error
.CreateTextFile(strTempFile, True)
.Write strData

That is because the "Write" line does not do with the "CreateObject" object.

Try getting rid of the "With" and setting it up like they show in the links I provided you.

 

[RAJESH1960]

I think the issue is the ".write StrData" at the end of that line.
I don't use this method, but from what I see, it appears that the "write" piece needs to go on the next line.

See: CreateTextFile method (Visual Basic for Applications)
and: ASP CreateTextFile Method
and: VBScript >> FileSystemObject >> CreateTextFile

That is because the "Write" line does not do with the "CreateObject" object.

Try getting rid of the "With" and setting it up like they show in the links I provided you.

The same code runs successfully in other applications. But whenever I copy the same to a different or new application it shows this error.

 

[RAJESH1960]

I think the issue is the ".write StrData" at the end of that line.
I don't use this method, but from what I see, it appears that the "write" piece needs to go on the next line.

See: CreateTextFile method (Visual Basic for Applications)
and: ASP CreateTextFile Method
and: VBScript >> FileSystemObject >> CreateTextFile

 

[Joe4]

Check you VB References to make sure that you have the correct libraries selected.

If you are not sure which ones they are, open up an application where it does work, and see which References are selected there, and make sure the same references are selected in this one.

If that does not work, I suggest trying setting up like shown in those links I provided.

 

[RAJESH1960]

Joe, Please help me and tell me what to do. As I am baby fed with the codes I wouldn't understand what to do. I hope this will help you to solve my problem.
' 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
Sheets("ImportMasters").Activate
ActiveSheet.Protect "12345678"

End With

' 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

 

[RAJESH1960]

This is the beginning of the code
Dim rngData As Range
Dim strData As String
Dim strTempFile As String
Dim x As Long, y As Long
Dim usr As String

 

[Joe4]

What exactly is "strData"?
I don't see that anywhere in your code before you try using it.