Excel to notepad

[vinay krishna]

Hi All,

I have write one program to copy one range to notepad but i am not able to the notepad automatically to mentioned path please solve the problem.

Please Login or Register  to view this content.

Here i need code to save the notepad to certain directory.

Thank & Regards
vinay krishna

[karedog]

Hi,

Welcome to the forum. Please take your time to read forum rules here :
http://www.excelforum.com/forum-rule...rum-rules.html

As forum rules #3, you must :
Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button). The result will appear like this in the post window:

Please Login or Register  to view this content.

Please edit your post and add this code tag.



About your problem, instead of launch notepad and sending simulated keystroke to this window, it is better to work with the clipboard object directly.
The code would be something like this :

Please Login or Register  to view this content.

Regards

[vinay krishna]

thank you so much for your reply really it help me a lot i tried this code its working perfect with me......
and one more help i need,while coping there is any chance for skipping blank line and length of character like 5 to 6 digits to skip if it will not meet sufficient length of charactor

[karedog]

You are welcome Vinay.

But before we continue, please go to your first post and hit "Edit Post" button and add the code tag to your code, as the forum rules, this is a must.

[vinay krishna]

what is code tag and how to add i am new to this forum

[karedog]

By using code tag, the text between this tag will be appeared inside a box like my post in #2.

To do this :
click the "Edit Post" button

select the text you want to put in this box (from the word "Sub" until "End Sub"), and then press the "#" button.

Your text will become like this :
[CODE]But before we[/CODE]

Then click the "Save" button

[vinay krishna]

Sub NOTEPAD()
Dim str1 As String, FileToSave As String

FileToSave = "Z:\Report.txt"
Range("A1:A500").Copy

'Get clipboard content and assign it to str1 variable
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'Clipboard object
On Error Resume Next
.GetFromClipboard
str1 = .GetText(1)
On Error GoTo 0
End With

'Write to file
If Len(str1) Then
Open FileToSave For Output As #1
Print #1, str1
Close #1
End If
Application.CutCopyMode = False
End Sub
#

[karedog]

This is how you should do it :

- Click the the "Edit Post" button
- Using mouse, select (highlight) the part of text you want to put inside the box
- Click the "#" button
- Click "Save" button

AddCodeTag.GIF

[karedog]

Nice work Vinay, you finally have figured out how to display the code properly. By doing this, you will prevent got warnings from moderators and other forum members in the future.

Now about you request to skip blank lines and lines with less than 6 characters, this is the code :

Please Login or Register  to view this content.

Please note the highlighted line :
If .... > 6 Then ....
any line with less than 6 chars (including blank lines) will be skipped by using this statement.



Regards