My current macro, copies range of rows from a sheet, and puts it into Notepad.
Please Login or Register to view this content.
I seek help to save the notepad file to a specific location on Drive, say C:\ABC\Note1.txt
Each time, the notepad file would be overwritten.
Thanks in Advance.
Last edited by analystbank; 12-18-2014 at 01:47 AM.
Please Login or Register to view this content.
If your problem is solved, then please mark the thread as SOLVED>>Above your first post>>Thread Tools>>
Mark your thread as Solved
If the suggestion helps you, then Click *below to Add Reputation
Thanks, Sixthsense,
this worked well, but few emendations required for following reason
Range S2:S200 value is derived using formula,
so, in Notepad (Output file) all line for S2:S200, appears as #REF!
Cell S1 (Header) has static text value , and output (1st line in notepad) albeit comes properly, it is inside inverted comma, at the beginning, and end, how to avoid such " "
MOREOVER, I've about some 4-5 sheets in a workbook, and I will use this macro for each sheet to store its range value in different Text (NOTEPAD) Files.
Last edited by analystbank; 12-18-2014 at 04:55 AM.
Replace this line
WithPlease Login or Register to view this content.
For me the exported notepad content is not adding any Double QuotesPlease Login or Register to view this content.
this time, perfect, but now each rows starts, and ends with Inverted comma, ( " )
My is Excel 2003
Moreover, entire Workbook, looks like saved as Sheet1.txt file, so when i save macro or workbook, it prompts for this changes
Last edited by analystbank; 12-18-2014 at 05:12 AM.
What is your windows Version? Since I tested it in Windows XP and I am not getting any double quotes
Not sure what you are trying to say with the above line since the macro is not written in that way...Originally Posted by analystbank
Moreover, entire Workbook, looks like saved as Sheet1.txt file, so when i save macro or workbook, it prompts for this changes
OS Windows XP SP2, MS Office Version is 2003
Once i run the macro, it properly exports text to notepad, and saves at desired location on the drive, but with quotes (" ) at the begining, and end of each line.
Once the job is done, i want to close the Excel Workbook, and observe that Workbook name is changed to Sheet1 name, and it prompts that since the workbook has multiple sheets, it can not save in .txt format
Try this final version of code
Please Login or Register to view this content.
Runtime Error 1004,
Method 'Saveas' of Object'_workbook' failed
on this line
Please Login or Register to view this content.
Change the file format from
toPlease Login or Register to view this content.
Please Login or Register to view this content.
modified, per your suggest to FileFormat:=xlUnicodeText,
but still same error 1004....
Sample file is attached. Currently working on sheet M
Last edited by analystbank; 12-19-2014 at 01:29 AM.
Hi analystbank
Here's my version Try this
Please Login or Register to view this content.
Thanks a ton. @YAsser,
Wonderful. Done
A suitable modification, in line
like Set Rng = Sheets("M").Rang.Selection.End(xlDown)).SelectPlease Login or Register to view this content.
in order to ensure, that whatever is the end, instead of S200, only that much would be taken from S1
Last edited by analystbank; 12-19-2014 at 05:13 AM.
I replaced the Set RNg line to
and it worked well. Thanks all.Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks