Vba to save notebook file

[mtharnden]

Hello.
I wrote a code that opens a .txt file in excel that works great for what I am using it for.

What I am doing is exporting data from a webpage in notepad, saving it to my desktop as a .txt file, then the macro opens that file and formats it as needed.

What I would like to know is if there is a way that I can export the data to notebook and have the macro automatically save it as .txt

When exported the notebook file will always have a different name, so is there something that could activate the notebook window regardless the name and save as?

 

[Arul.rajesh]

Can you share the code used?

 

[mtharnden]

Sorry I do not know how to place the code into a box but here it is:

It opens the .txt file, separates by comma, makes column 7 as text then copies and pastes it to the macro file. It then exits the .txt file (which is in excel)







Workbooks.OpenText Filename:= _
******* "C:\Documents and Settings\" & Application.UserName & "\Desktop\TEST.txt", Origin:=65001, _
******* StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
******* ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
******* Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
******* 3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 1), Array(9, 1), Array(10 _
******* , 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
******* Array(17, 1)), TrailingMinusNumbers:=True
***
*** Columns("A:Q").Select
*** Selection.Copy
*** Windows("MacroFile1").Activate
*** Range("A1").Select
*** ActiveSheet.Paste
*** Range("A1").Select
***
*** Windows("TEST.txt").Activate
*** ActiveWindow.Close
*** Windows("MacroFile1").Activate
*