Answer Questions

• x646d63 faster code for a reccursive file count/size in excel vba?

  ive got some code to do a reccursive file counts, i need to get the total count of files and sizes for a range of folders.. is there any way to speed up my code.. i am pretyt new to this and i know my code is kind of ugly, thought this would be a good place to start.. what the actuall excel sheet looks like: a place to paste file paths, sometimes 10 sometimes 200 folder paths, and a button to do counts/sizes, the name of the button is file_SizeLBL_Click() when you click it it starts at the top path, counts what it needs to then goes down to the next, it slows down ALOT when there is alot of data, over 1gb per folder.. here is my code: ------------------------------------------------------------------------------------ Fun ...Show All

• Vista2007new How do I display my computer name?

  Hey, How do I, with code, display my computer name Best Regards Cathrine Hey, Thanks for your reply and great thanks for the help! Cath Hi, You could tip into the Windows API. Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Property Get ComputerName() As String Dim dwLen As Long Dim strComputerName As String dwLen = MAX_COMPUTERNAME_LENGTH + 1 strComputerName = String(dwLen, "X") GetComputerName strComputerName, dwLen strComputerName = Left(strComp ...Show All

• Rahul Singla [OTP] VBA - pos peripherals

  I want to use point of service peripherals from vba in ms access, as I am creating a point of sale database. I downloaded pos for .net sdk. I then tried to reference its main library (microsoft.pointofservice.dll) from vba (by going tools>references), but it wouldn't let me, it said it couldn't create a reference to the file, which is a dll. How can I link to the pos peripherals from vba These forums are for VB.NET questions. VBA is a very different product from VB.NET and there are some other locations where youy will probably get a quicker and better response to your VBA questions. Y ou may find more assistance in following which specifically deals with VBA development. http:// ...Show All

• David Luu VBA tapi caller ID

  hi wizards, I search for days now, but cannot find any working sample code to do the following I just want to get the telephonnumber of an incoming call (initiate outgoing calls with tapiRequestMakeCall works with a telephone connected to the USB port). I found a lot of code for C or VB, but not a single working one for VBA. Can anyone point my nose to a working sample I just want to recognize the incoming call in my access application and display the corresponding record... I though to adapt a VB code to match the VBA criteria is not a big deal, but apparently definitions, links and libs are differently handled or I just miss a thing... Many thanks for any help!! bob Per ou ...Show All

• Mr Pro Tools Find Method - enter value on one worksheet and search in another

  I'm a newbie trying to set-up an Invoice form on Excel -- my set up is: A combo box for selection of Customers cboCustomer RowSource=AddRange (in worksheet Add) ControlSource=Customer (in worksheet Job) Now I need to find whatever value/string returned to Worksheets("Job").Range("Customer") in Worksheet("Add").Range("AddRange"). So I can copy the 3 cells beside that value/string. (Initially I thought this could be accomplished in combo box alone but turns out it doesn't support multicolumn...) I am also having problem with the Find Method because most examples I seen it only works with pre-determined value I've spent the past few hours trying to figure this out... Any help is grea ...Show All

• Jeremy Schneider Word Thesaurus and Dictionary

  I need information or, if possible, an actual sample program that will access MS-Word or MS-Works dictionary and/or thesaurus capabilities. Any kind of program or info would be fine. Thanks, Tony Hi Tony Often the easiest way to generate a sample program is to set up a sample document, then use Tools/Macro/Record New Macro storing the code in the current document. Then perform some simple action using the feature you are interested in. Then stop recording, and examine the code generated. It won't be the most elegant of code, but it will give you a good start point. Regards Peter ...Show All

• Howard43147 Question about ADO and Access

  Hi, I've been searching the net for the last 3 hours for a good example of querying access database from excel and then manipulating the recordset, this isn't as easy as I expected. Can anyone offer an idea (I'm not even sure how to open the database). Thank you all (and sorry for the silly question), Raphael The below is from the Office Help System, you don't need to worry about the Pivot Table bit. Once you have the recordset you can work with it from there. This example creates a new PivotTable cache using an ADO connection to Microsoft Jet, and then it creates a new PivotTable report based on the cache, at cell A3 on the active worksheet. Dim cnnConn As ADODB.Connection Dim ...Show All

• SN Ngaihte When sending a worksheet to the USB port …

  Hey, When sending a worksheet to the USB port … (memory stick). How do I detect if the memory device is not in the USB port …. and how do I handle the error if its not there Best Regards Cathrine Hey Derek Thanks for your reply. I have a workbook that I want to save to a memory stick. How can I write the code so it will detect witch drive letter the USB have Cath Dim fsoObj As Scripting.FileSystemObject Set fsoObj = New Scripting.FileSystemObject With fsoObj If .Drives("E:").IsReady = True Then 'code goes here End If End With Set fsoObj = Nothing ...Show All

• dcube9 How to change line within one statement?

  Hello, all. I am new to VBA and have a simple question. How to change line in VBA The code looks like this: Private Sub SLICC_MALIGNANCY_AfterUpdate() Me!TOTALSCORE = Me!item1+Me!item2+......+Me!item200 End Sub I want to add up many values. But they are too long to be shown in one line. How can I change line while maintain the statement Thank you vary much! Qian Hello, all, Thank you very much for your reply! Actually I want to know how to break the limit of the length of one line in VBA. I am using MS Access. Me!item is the name of my fields. :) Now I know how to do it. Thank you all! Qian Hi Qian, Try using the Eval() function, example... ...Show All

• Nazmul Access 2000 RecordSet Sort problem

  hi there, using ms access 2000 with vb 6.3. I am using a form with a button to first off filter results in a table and copy all the relevent rows into a temp table so that additional tasks can be performed. This works successfully. Part of the problem is that the order in which the data is entered into the first table means it is never in order (this cannot be prevented due to the nature of how the data is imported from several excel documents) The temp table needs to be sorted so that the calculation algortihms will be able to calculate and generate revelent infomation. Currently defining and opening a recordset and after moving all the data to the temp table i am using: recordset.Sort = "TextValue desc" Where TextValue is my co ...Show All

• Flakky Save changes to Word template file.

  Whenever I save a document created from a template, it asks me if I want to save changes to that template. Can I disable that What's being changed in the template anyways Could you share your code that contains Documents.Open()/Add() If you have used the template file, it shouldn't ask for saving ...Show All

• TheSuffolkRam On Error not catching problem with a web query

  Why does "On Error" not seem to work in this case Once every few hundred iterations, there will be a failure, timeout, or resource not available error on the last line which invokes .Refresh BackgroundQuery:=False. Any insights would be much appreciated. Regards, Brian code excerpt........................... On Error GoTo query3error With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://finance.yahoo.com/q s=" & ticker, Destination:=Range("A1")) .Name = "q s=" & ticker .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False ' ...Show All

• MDesigner Cell Change Alerts

  The situation: I have a table of a number of live share price links that are automatically being updated in real time within Excel. The goal: To receive an email each time the share price of a particular stock moves up or down by an increment of 1%. The progress: I have created a macro that can produce the email, using a number of concatenations to provide me with the desired text. The difficulties: I have been unable to find a way of working out how to automate the macro if a cell reference moves by increments of 1%. Now I have thought that if something goes from 0.99% to 1.01% and back to 0.98% then I only want one email on the initial occurance, and then the base to move to 1 rather than 0, and to rea ...Show All

• JTK Action Pack Question

  I am interested in the Action Pack. I understand that it comes with the Vista upgrade, not the full edition. I do not have 10 licensed copies of XP Pro to upgrade from. So does that mean I will need to purchase a licensed copy of XP Pro for each machine that I want to put the Action Pack upgrade version of Vista on Don't even think about NOT renewing! Like Tony Soprano said, "Once you're in this family, there's no gettin' out". Be prepared for all kinds of nasty, threatening letters from the Microsoft legal team. Think they’re not tough Heck, they regularly beat the US, as well as other governments with ease. According to the agreement, if you do not renew, you’re obligated to un-install any of the licenses used ...Show All

• jph_problem Application.FileSearch in Excel 2007

  There is an issue which I am facing after I installed Office 2007. I had written a small VBA which would search for a file and if found will rename the file. I used Application.FileSearch then. Now I am tying to do it again but unfortunately there is an error prompted stating that 'the object does not exist' Set fSearch = Application.FileSearch defPath = "H:\SourceSafe_1_Feb-28_Feb_2006\SecondSet" Set rg = Range("MyFiles") fSearch.LookIn = defPath I have been frantically looking for changes in the VBA object model especially for Excel but cant seem to find them. Application.FileSearch has been deprecated from Excel 2007. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions h ...Show All