Jump to content

Search the Community

Showing results for tags '800A01BD'.



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

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests


Languages

Found 1 result

  1. I have this script which runs OK on an XP PC with Excel 2003 installed. When I try to run it on my XP PC with Excel 2010 I get an "Object doesn't support this action" 800A01BD error. Is this something to do with Excel 2010? Can the code be rewritten to get round this? +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set objExcel = CreateObject("Excel.Application")objExcel.Visible = False dim partnumpartnum = Inputbox("Enter Part Number", "Search for Quotation by Part Number") Set objSearch = objExcel.FileSearchobjSearch.Lookin = "S:\Quotes"objSearch.SearchSubfolders = TRUEobjSearch.FileName = "*.xls"objSearch.TextOrProperty = partnumobjSearch.Execute Set fso = CreateObject("Scripting.FileSystemObject")Dim outputFileoutputFile = "./Qsearch.txt"Set txtStreamOut = fso.OpenTextFile(OutputFile, 2, True) For Each strFile in objSearch.FoundFiles txtStreamOut.writeline strfileNext MsgBox "Search Complete" & vbCrLf & "Open Qsearch.txt to see the results." _& vbCrLf & vbCrLf & "If you need to save the results, use File Save As and enter a different file name." _& vbCrLf & "Qsearch.txt will be overwritten with new data next time you run a search.", vbInformation , _"Created by Code Numpty" 'Version 1.0 - written by Sharon 12/03/2008'version 1.1 amended for new server name SL 20/7/2013+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
×
×
  • Create New...