I have the following script that I use in my excel formula. I'd like t
streamline it and run it in an HTML format. (Not all managers hav
access to microsoft excel).

Is there a way to port my script to work in HTML???

by the way, to activate the script, i have a button on my spreadsheet.

Sub Macro1()
Workbooks.OpenText Filename:="C:\UDC\ALEX", Origin:=xlWindows
StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False
Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1)
Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)
Array(8, 1))
Columns("A:A").Select
Selection.Find(What:="EXT", After:=ActiveCell, LookIn:=xlFormulas
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext
_
MatchCase:=False).Activate
ActiveCell.Offset(0, 4).Copy
Windows("Book1.XLS").Activate
Range("D4").Select
ActiveCell.PasteSpecial
Windows("Alex").Activate
Columns("A:A").Select
Selection.Find(What:="PUP", After:=ActiveCell, LookIn:=xlFormulas
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext
_
MatchCase:=False).Activate
ActiveCell.Offset(0, 6).Copy
Windows("Book1.XLS").Activate
Range("D5").Select
ActiveCell.PasteSpecial
Windows("ALEX").Activate
ActiveWindow.Close
End Su

--
Message posted from http://www.ExcelForum.com

If they don't have Excel, then they could not open a file in Excel.

--
Regards,
Tom Ogilvy


"alexm999 " wrote in message
...
I have the following script that I use in my excel formula. I'd like to
streamline it and run it in an HTML format. (Not all managers have
access to microsoft excel).

Is there a way to port my script to work in HTML???

by the way, to activate the script, i have a button on my spreadsheet.

Sub Macro1()
Workbooks.OpenText Filename:="C:\UDC\ALEX", Origin:=xlWindows,
StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False,
Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1),
Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),
Array(8, 1))
Columns("A:A").Select
Selection.Find(What:="EXT", After:=ActiveCell, LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
ActiveCell.Offset(0, 4).Copy
Windows("Book1.XLS").Activate
Range("D4").Select
ActiveCell.PasteSpecial
Windows("Alex").Activate
Columns("A:A").Select
Selection.Find(What:="PUP", After:=ActiveCell, LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
ActiveCell.Offset(0, 6).Copy
Windows("Book1.XLS").Activate
Range("D5").Select
ActiveCell.PasteSpecial
Windows("ALEX").Activate
ActiveWindow.Close
End Sub


---
Message posted from http://www.ExcelForum.com/

How can I rewrite the above script in HTML format

--
Message posted from http://www.ExcelForum.com