VBA Paste In Notepad & Save

[christian2016]

Hi Guys,

Need help with pasting in notepad and saving file.

Basically I have copied what i needed and just need a VBA code within excel to paste it in notepad and save it as per name in range ("a1") in my spreadsheet.

File to be saved in directory path C:\Temp

Any help is greatly appreciated

Thanks

 

[christian2016]

I need to launch a new notepad each time the VBA is run and close it after it saves it.

Thanks

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG15Aug59
[COLOR="Navy"]Dim[/COLOR] DataObj [COLOR="Navy"]As[/COLOR] New MSForms.DataObject
[COLOR="Navy"]Dim[/COLOR] i [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] strOut [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] strFile1 [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
    DataObj.GetFromClipboard
      strOut = DataObj.GetText
        strFile1 = "C:\Temp\" & Range("A1").Value & ".txt"
i = FreeFile
Open strFile1 [COLOR="Navy"]For[/COLOR] Binary Access Write [COLOR="Navy"]As[/COLOR] [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=i]#i[/URL] 
  Put [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=i]#i[/URL] , , strOut
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=i]#i[/URL] 
MsgBox "File Created"
Application.CutCopyMode = False
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[christian2016]

Thanks MickG.

I done it with this code.

Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False


ActiveWorkbook.SaveAs Filename:= _
FilePath & SRNumber, FileFormat:=xlTextWindows, _
CreateBackup:=False
ActiveWindow.Close