Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: brumo
  • Content: Threads
  • Order by date
  1. brumo

    Help converting an Extra macro to Visual Basic

    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...
  2. brumo

    Date+Time greater than or equal to FileDateTime

    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:\"...
  3. brumo

    can an If statement have more than one codition?

    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...
  4. brumo

    Incorperating a Screenscrape into a Do Loop

    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 =...
  5. brumo

    getting extra! macro to save .xls as date+filename

    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") &...

Part and Inventory Search

Back
Top