Posted to microsoft.public.excel.programming
|
|
VBA Script Porting
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/
|