Search results for query: *

This code works fine in Extra Basic, but I can't get it to compile in VB. I posted it here because I know some of you have had experience with both and I'm not sure what needs to change or if I'll have to start from scratch. Function dlgFunc(identifier$, action, suppvalue) dlgFunc = True...

This thread details the correct way to call macros: http://www.tek-tips.com/viewthread.cfm?qid=1130232

Set thisFolder = thisNameSpace.Folders(olFolderInbox)

Got it. Changing the CurrFile value seems to make a difference. CurrFile=(DateValue(Date()) + TimeValue(Time()))

I didn't expect this to work, but under certain condtions it seems to. When I set the datevalue to (Date()-2) or +20, which is next month, it works. The filedatetime is (06/07/2008 5:32:44 PM). Sub main CurrFile=DateValue(Date()-2) & " " & TimeValue(Time()) PrevFile=FileDateTime("h:\"...

says EXTRA! X-treme 8.0 SP1

Actually I got the If statement I posted to work. I had a bad length value in the getstring. And it's good to know there's an alternate method. Thanks Skip.

The code compiles, but the 'And' doesn't seem valid: s_RtRcvdDt = trim(Sess.Screen.GetString( 10, 06, 15)) if IsDate(s_RtRcvdDt) then i_DaysDiff = DateValue(Date()) - DateValue(s_RtRcvdDt) End If s_RtRcvdJb = trim(Sess.Screen.GetString( 10, 65, 71)) if...

My host is an IBM Mainframe and it works for me... Sub Main Dim Sys As Object,Sess As Object Set Sys = CreateObject("EXTRA.System") Set Sess = Sys.ActiveSession Dim MyHost MyHost=Sess.HostName MsgBox MyHost End Sub

I got it working for me and my host is an IBM Mainframe... Sub Main Dim Sys As Object,Sess As Object Set Sys = CreateObject("EXTRA.System") Set Sess = Sys.ActiveSession Dim MyHost MyHost=Sess.HostName MsgBox MyHost End Sub

'Cause I wanted to copy/paste the value from just the row containing "A VM001 - VM/SP", vzachin's code worked fine. Thanks Skip, I'll use it for something. [smile]

Your code did the trick, so thanks vzachin. My macro looks much better now.

Instead of writing an If statement for every row, isn't there a better way of coding this: Sub Main() Dim Sys As Object,Sess As Object,xl as Object,wb as Object Set Sys = CreateObject("EXTRA.System") Set Sess = Sys.ActiveSession Set xl = CreateObject("Excel.Application") Set wb =...

not using wb.FullName fixed my issue. wb.SaveAs filename:= "c:\" & Format(Date, "mm.dd.yy") & "_excel ccmbalance.xls"

Here's what I had, and it just quit working. Sub Main() Dim xl as Object,wb as Object Set xl = CreateObject("Excel.Application") set wb = xl.Workbooks.Open("c:\_excel ccmbalance.xls") xl.visible = true wb.SaveAs filename:=Format(Date, "mm.dd.yy") &...