Search the Community

Showing results for tags 'VB Script'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • W3Schools
    • General
    • Suggestions
    • Critiques
  • HTML Forums
    • HTML/XHTML
    • CSS
  • Browser Scripting
    • JavaScript
    • VBScript
  • Server Scripting
    • Web Servers
    • Version Control
    • SQL
    • ASP
    • PHP
    • .NET
    • ColdFusion
    • Java/JSP/J2EE
    • CGI
  • XML Forums
    • XML
    • XSLT/XSL-FO
    • Schema
    • Web Services
  • Multimedia
    • Multimedia
    • FLASH

Calendars

  • Community Calendar

Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests


Languages

Found 1 result

  1. Hi Guys, I'm trying to move away from Task Scheduler as my trigger for opening an Excel file. The problem there is it has a minimum of 5 min interval (I need at least 30 sec) and If the process of the initial instance of the Excel file is longer than the usual that after 5 min another instance executes it messes up my memory bandwidth. What I want is to use VB Script that first check if a particular Excel file is open if yes then wait for another 30 sec to check.Question: What is the right syntax/code for detecting a specific Excel file and loops every 30 sec. But I also want to be able to end the loop if I want to.Here is my current code: Gateway TimeoutRequestURI=http://timeentry/Set Recordset = CreateObject("ADODB.Recordset") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=PHMNWWKS027604; DATABASE=db_skusetup; " &_"UID=root;PASSWORD=; OPTION=3"'Check for Export Query'Recordset.ActiveConnection = ConnString exportSQL = "SELECT * FROM tb_queue_export WHERE request_status = 'Pending' ORDER BY request_id DESC LIMIT 1"Recordset.Open exportSQLSet objExcelExtract = CreateObject("Excel.Application")Set objWorkbookExtract = objExcelExtract.Workbooks.Open("C:Usersushuam00DesktopLAPTOP.xlsx") If objWorkbookExtract.ReadOnly then if Recordset.Fields(3) <> "" then end if end iftest= MsgBox(Recordset.Fields(3),3,Recordset.EOF)Recordset.Close ReadOnly is not doing it for me.