How to read the same text file repeatedly without having to re-open it each time?

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Can the Native Wifi (WLAN) installer for XP be redistributed? Is there any development on this issue Thanks. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 2
    - If and find expressions Hello I am trying to use an If statement to find an piece of text and then go to the cell that contains that text. I have, as part of the if statement, an else statement that just cancels the expression and does something else if it cant find the iece of text. However, the expression doesnt seem to work when VB cant find any cell with the specific text and it just comes back with a run time error. Does anyone know if there is a proper way of putting a "find" expression inside an "if" expression or maybe a better way of doing what I am trying to do Thanks for your help Ronan Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 3
    - Different ways of reports generation in excel using .net we are generating reports in excel format programatically in DOT NET....But It is taking too much of time for report generation....(10 mins for 300 records)... Then we transfered our data in HTMLtable formate and then we are opening the HTML file in excel...This process of report generation is very fast as compared to the previous method mentioned above.But the problem that we are facing is if the records in HTML files exceeds more than 10,000 records ;the file cannot be opened in Excel formate...and it gets hanged ... Can Anybody have better solutionon this issue Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 4
    - Message for display during macro execution I have a macro that takes a long time to execute. While it is running I would like to put an object on screen to inform the user that the macro is running and they should just wait. Otherwise they may think something is wrong. It would also be good if this object had a button on it the user could click to end the macro if they run out of patience. I thought about a message box, but when it is displayed it halts execution until the user clicks it, then it dissapears anyway so this will not do the job. Is there another object I could place on screen that has say "display" and "close" functions that I could use as follows; Sub theMacro() SignalBox.display "Just wait, the macro is running" 'lots of code 'lots of code SignalBox.close UserForm1.show ' shows macro results End Sub Maybe another userform could do this, but it would have to be able to stop the macro via a command button (not sure if possible) and/or close itself. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 5
    - How could I count the last column in row 1? Becareful on that one, .End stops before the first blank cell. So it is better to go from the last cell, like Cells(1, Columns.Count).End(xlLeft).Select Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 6
    - Excel UserForm - TextBoxes - can't load data on open Hi! Use names of sheets. It's better. Remove all "Private Sub TextBox_Enter()" - they are useless And so you may use "error": Code Block Private Sub UserForm_Activate() uSheets = Array("Sheet10", "Sheet11", "Sheet13", "Sheet29") a = 1 For Each Sheet In uSheets On Error Resume Next With Worksheets(Sheet) If .CheckBox1.Value = True Then Controls("textbox" & a).Text = "1" ElseIf .CheckBox2.Value = True Then Controls("textbox" & a).Text = "2" ElseIf .CheckBox3.Value = True Then Controls("textbox" & a).Text = "3" End If End With a = a + 1 On Error GoTo 0 Next End Sub Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 7
    - Is there any field event such as 'Entering' or 'Focus' for MS word form Hi, I am new in VB programming. I'm working on a MS word's form. I am trying to invoke a Address Checking program when cursor move into ADDRESS field. Is there any field event such as 'Entering' or 'Focus' I can use and "Exiting' event when move out the field Thanks in advance Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 8
    - Action Pack Question The idea of providing upgrades in the Action Pack is ridiculous, the ammount of time it takes to install XP just to meet this requirement shows what Microsoft really thinks about it's partner's and how it values our time. For most Action Pack users I imagine that they will be buying or building new PCs due to the beefier requirements of Vista. I only hope it doesn't require SP2. (I am doing an XP build on a new PC as I type this). Well this was well thought out, my renewal isn't for a few months, I guess I'll see what they do to fix this idiocy. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 9
    - How to write code for dynamically (programatically) generated combo boxes (excel-shape object) in excel? Hi, I am making several controls through code. what code should I write in the class module How can I refer the change events of those combo boxes I have created Can any one explain. cheers Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 10
    - Different classes in one collection Hi! Please, look at this code. I think that you can use it like an example. We have two classes. Resistance: (clsResistance) Code Block Public colNeighbours As New Collection Private sName As String Private iResistance As Integer Public Property Get Name() As String Name = sName End Property Public Property Let Name(sValue As String) sName = sValue End Property Public Property Get Resistance() As Integer Resistance = iResistance End Property Public Property Let Resistance(iValue As Integer) iResistance = iValue End Property and clsCapacitor: Code Block Public colNeighbours As New Collection Private sName As String Private iCapacity As Integer Public Property Get Name() As String Name = sName End Property Public Property Let Name(sValue As String) sName = sValue End Property Public Property Get Capacity() As Integer Capacity = iCapacity End Property Public Property Let Capacity(iValue As Integer) iCapacity = iValue End Property and the procedure that makes a chain (first five elements are resistors and the last five elements are capacitors): Code Block Sub MakeChain() Dim o As Object Dim colRes As New Collection Dim i As Integer For i = 1 To 10 If i <= 5 Then Set o = New clsResister o.Name = "Res" + CStr(i) o.Resistance = 20 + 10 * i Else Set o = New clsCapacitor o.Name = "Cap" + CStr(i) o.Capacity = 20 + 10 * i End If colRes.Add o If i > 1 Then o.colNeighbours.Add colRes.Item(i - 1), colRes.Item(i - 1).Name colRes.Item(i - 1).colNeighbours.Add o, o.Name End If Set r = Nothing Next End Sub PS. If you want to make your classes more legible, you can make an abstract class (clsElement) and implement it into other classes. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 11
    - .mdmp files not being created I used ForceQueue for debugging purposes only, and the fact that the dialogs didn't appear was acceptable in that scenario. If you register and map your app with the Winqual servers, then the servers will at least occasionally request minidump information from your app, and then you'll be able to download the minidumps from Winqual. Another option is to shut off the Internet connection when the crash occurs. The dialogs will then be displayed, but when WER finds out it cannot send stuff to the servers, it will archive the crash data (including minidumps) so that they can be re-sent at some later point in time. A variation of this idea is to set HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Windows Error Reporting\CorporateWERServer to the name of some machine in your network. When a crash occurs, WER will assume that a "Corporate Error Reporting" server is running on that box, and will try to talk to port 1273. If there's no answer, then WER will probably create the minidump and keep it around for later. Of course, you could also set up a real Corporate Error Reporting server which always requests the minidump information from the client. I haven't tried this myself yet, though. Claus http://www.clausbrod.de/Blog Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 12
    - Macro to Delete Rows Try this after the sort: Dim i As Integer For i = 1 To Cells(10000, 10).End(xlUp).Row If Cells(i, 10) = "unbilled" Then Exit For End If Next Range(Cells(i, 10), Cells(10000, 10).End(xlUp)).EntireRow.Delete ska Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 13
    - Run-time error. please advise When i run a software on Vista Home Premium, i recieve the following error message. " Run-time error '55': File Already Open" but i could not see the exe file to be running. can somebody please advise how to fix this problem Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 14
    - Automating copying objectsbetween two Access databases We have an English and Chinese version of the same database (we cannot copy the English version to Chinese ). We want to maintain the English version and have routine to pull, or push, the forms,queries, modules and reports to the Chinese copy. Anyone know of some slick code to do this Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 15
    - vlookup Namrata, Is MyPath the name of the workbook, or is it a variable If it is the name of a workbook, then put "MyPath" in quotations. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 16
    - sorting in ListView Can I do sorting in all columns of ListView Does anybody know Tag: How to read the same text file repeatedly without having to re-open it each time?
- Next
  - 1
    - Live Communications Server 2005 SP1 - specified pool already exists error Hi, Trying to install LCS 2005 SP1 for the second time. Both times have had the same error. The first time it was on an old machine that had lots of stuff on it. I figured something was messed, so I rebuilt it and installed it on a completely clean 2003 SP2 server. This is the standard edition. Everything installs fine but when I go to activate the server I get: "The specified pool already exists and has a version that can not be upgraded" and the service will not start giving "0xc3cec78e1 Anyone have any idea what this means I haven't seen any posts about it. I am posting here because this area had an unrelated LCS pool issue discussed. Any help would be appreciated. Andy Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 2
    - Highlight Row depending on cell - Excel VBA - Hi All I need some help with this code ...... I have a sheet full of data, Col A , B & C full of data and col D is 1 or 0 ... I need to highlight all rows in red whenever there is a 0 in Col. D when i press a button (that i know how to create !) I don't want to use conditional format as the sheet slows down drastically using this method !! Thanks Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 3
    - Microsoft Office 2003 "word" not working properly after copying transferring hard-drive info via DiscWizard by Seagate Download the Windows Installer CleanUp utility http://download.microsoft.com/download/e/9/d/e9d80355-7ab4-45b8-80e8-983a48d5e1bd/msicuu2.exe Install it and then Run it from Start>All Programs>Windows Installer CleanUp utility Select office 2003 and then click on remove. Now again install office using the CD. There would be no error message now and all your office applications would be working fine. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 4
    - WMI.Net 2.0 You could always find a blogspace someplace and post your findings.. -- or I think it would be perfectly acceptable to post the results of your experimentation here .. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 5
    - ComboBox: VBCode to select first item in the list. Hi I have the following VB code, when someone selects the worksheet name from the combo box in the summary page it takes them to the worksheet. However, the problem is that if they select, for example, worksheet "B" it takes them to the worksheet fine but when they are back in the summary worksheet the "B" is still selected in the combo box and you can not select "B" anymore. You have to select other worksheet name before you can select "B" again. Is there any way to instruct the combo box to always select the first item in the list Thanks in advance. Private Sub AFISGBox_Change() Dim strSheet As String If AFISGBox.ListIndex > -1 Then strSheet = AFISGBox Sheets(strSheet).Select End If End Sub Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 6
    - Loop causing MS Word freeze As Count is declared as a Integer the initialize value wil be zero. If you want to specify a value for the variable you need to do so in your code before the variable is used. In this particular case as you are using a userform the Initialize event of the userform is where you would set the value. Private Sub UserForm_Initialize() Count = 1 End Sub Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 7
    - What should I do for opening an URL with Excel in body of a Visual Basic Program? Hello: What should I do for opening an URL with Excel in body of a Visual Basic Program Is there any statement like below oBook = oExcel.Workbooks.Open( "http://forums.microsoft.com" , [ReadOnly]:= False ) Thank you in adavnce Farsmajid Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 8
    - CRM test specification on 2.1.2 As the CRM test specification 2.1.2 Do not add, modify or delete Microsoft Dynamics CRM registry entries M odifications to any registry entry or addition of any registry entry in the following hives: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSCRM HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Microsoft Dynamics CRM HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\CRM The following are the only exceptions HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\AllowUnresolvedPartiesOnEmailSend HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\FaxCoverPageDirectory HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\maxrecordsforexporttoexcel HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\MaxRowsPerPage HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\maxuploadfilesize HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\SmtpCodePage HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\SOCKETTIMEOUT HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\timeout HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\TurnOffFetchThrottling HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\WFPoolingInterval HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\WFWorkerThreads HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM\WorkflowPostUrlAuth HKEY_LOCAL_MACHINE\Software\Microsoft\MSCRM_Extensions\ After install CRM 3.0 server, i only can find the reg key: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSCRM, Do i install a old version. now my CRM 3.0 version is 5300 otherwise, could you please tell me how to test it can i use the regdiff.exe, how to configure the filter.txt thank you very much! Jiangang Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 9
    - WOW64 I have been trying to install a 32-bit application called TortoiseCVS on a win64 platform without any luck. It is a 32-bit application that becomes and extension of the windows file manager for updating/retrieving CVS files. Is it possible for me to run this application with 64-bit Windows Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 10
    - How do I deal with files of more than 65k rows? It's time-based data, a series of step inputs are applied to a machine and the response is recorded at a rate of 10 milliseconds for the 5 or 10 seconds that the test runs. Some of the tests abort, and some don't, but all of the data is recorded because you have to pay attention to operating the machine which means you can't delete the aborted tests as you go along. The code goes line by line through the data, ignoring an aborted test when it gets to an abort flag and calculating a bunch of things from the signals. Everyone here uses Excel a lot so there are reasons for doing it in VBA. The tool works really well until I run out of rows....I guess maybe I'll have to learn C or Matlab. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 11
    - Converting access to VB.NET or C# We arnt going to try to convert the database now. We are just going to re-write it, both the backend (manually creating SQL tables/fields in a similar structure as the access database) and the frontend (in C#, with the aid of code generation tools). This is going to be a very time consuming project (I expect 6 months +), but as we hope to turn this into a commerical product, it is worth the effort we beleive. Our attempts to convert the backend to SQL (while leaving the frontend in Access) have proved unsuccessful - some of the tables convert, some dont. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 12
    - powerpoint 2007 Selection.TextRange Error when Selection is made in Table Object on a slide Studio that wrote: I'm having the same problem.... Did you happen to find a work around or fix thanks. The thread you added to was about code which worked in PP2003, but not in PP2007, so it was probably caused by a change in the object models. If you're not using PP2007, then it isn't the same problem... and it put me on entirely the wrong troubleshooting track. The subject line for this thread is not appropriate for your problem, and may put people off reading your post if, like me, they haven't used PP2007. I only responded at all because no-one had responded to the original post either, so despite my lack of knowledge I thought some response was better than none. Now that I know the original post is not relevant to your problem, I need more info on what your problem is. I suggest, though, that instead of replying to this post, start a new thread. Restate the problem from the beginning. Include the code you put in your previous post, and also state exactly what error you are getting. Also state the version of PowerPoint that you're using, and if the code is being run from an application other than PowerPoint, also state that. You mention not being able to determine the problem line because you're "trying to debug from another machine". Explain that further, please. If it's at all possible to get around that and provide the info on which line is failing, that would help also. It may not be the textrange.text line, it may be the for loop itself. Something you could use to help debug would be to add a line BEFORE the For statement: msgbox(ReleaseTotalsBySubBindingSource.Count) and see if that gives you a reasonable number for the count. If you get the error before the message box displays, then it's either the .count, or something even earlier in the code that's the problem. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 13
    - VBA ACCESS 2003 - Getting IP address Hi, I found this one, and it gives me exacly what I need. Take a look below: Aldo. Code Block Option Explicit Private Const IP_SUCCESS As Long = 0 Private Const WS_VERSION_REQD As Long = &H101 Private Const MIN_SOCKETS_REQD As Long = 1 Private Const SOCKET_ERROR As Long = -1 Private Const INADDR_NONE As Long = &HFFFFFFFF Private Const MAX_WSADescription As Long = 256 Private Const MAX_WSASYSStatus As Long = 128 Private Type WSADATA wVersion As Integer wHighVersion As Integer szDescription(0 To MAX_WSADescription) As Byte szSystemStatus(0 To MAX_WSASYSStatus) As Byte wMaxSockets As Long wMaxUDPDG As Long dwVendorInfo As Long End Type Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal hostname As String) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (xDest As Any, xSource As Any, ByVal nbytes As Long) Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long Private Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal s As String) As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal Buffer As String, Size As Long) As Long Sub TestingFunction() If SocketsInitialize() Then MsgBox "IP address of " & GetPcName & " is: " & GetIPFromHostName(GetPcName) End If SocketsCleanup End Sub Public Function GetIPFromHostName(ByVal sHostName As String) As String 'converts a host name to an IP address. Dim nbytes As Long Dim ptrHosent As Long 'address of hostent structure Dim ptrName As Long 'address of name pointer Dim ptrAddress As Long 'address of address pointer Dim ptrIPAddress As Long Dim sAddress As String sAddress = Space$(4) ptrHosent = gethostbyname(sHostName & vbNullChar) If ptrHosent <> 0 Then ptrName = ptrHosent ptrAddress = ptrHosent + 12 'get the IP address CopyMemory ptrName, ByVal ptrName, 4 CopyMemory ptrAddress, ByVal ptrAddress, 4 CopyMemory ptrIPAddress, ByVal ptrAddress, 4 CopyMemory ByVal sAddress, ByVal ptrIPAddress, 4 GetIPFromHostName = IPToText(sAddress) End If End Function Private Function IPToText(ByVal IPAddress As String) As String IPToText = CStr(Asc(IPAddress)) & "." & _ CStr(Asc(Mid$(IPAddress, 2, 1))) & "." & _ CStr(Asc(Mid$(IPAddress, 3, 1))) & "." & _ CStr(Asc(Mid$(IPAddress, 4, 1))) End Function Public Sub SocketsCleanup() If WSACleanup() <> 0 Then MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation End If End Sub Public Function SocketsInitialize() As Boolean Dim WSAD As WSADATA SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS End Function Public Function GetPcName() As String Dim strBuf As String * 16, strPcName As String, lngPc As Long lngPc = GetComputerName(strBuf, Len(strBuf)) If lngPc <> 0 Then strPcName = Left(strBuf, InStr(strBuf, vbNullChar) - 1) GetPcName = strPcName Else GetPcName = vbNullString End If End Function Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 14
    - alcatel omnipcx Dear all, I have a problem with call forwarding. When I receive a call on Cisco voip and it forward it to alcatel omnipcx, and when I was in call, and want to forward this call to another person in local. The call is disconnected. Cisco 2800 debug unexpected disconnect. What to do Regards, cheda Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 15
    - Office Communicator 2005 sign-in name, auto populate after install somehow? Samlw wrote: Very useful - thanks. I did see a post somewhere that suggested running: reg add HKCU\Software\Microsoft\Communicator /v "UserMicrosoft RTC Instant Messaging" /t reg_sz /d "%username%@domain.com" /f > null But that doesnt work in our environment as Communicator 2005 expects the person's email address so your script works perfectly! Also I needed to add our domain to the access control list in communicator to allow all members of our firm to see availability and add other menbers of our firm to their lists without getting bothered by lots of prompts. The process is described here: http://msgoodies.blogspot.com/2006/03/populating-users-in-office.html I would have thought that this sort of thing would have been easier to do and manage, without the need for scripting - AD or the LCS server /farm or even group policy would be the obvious places. Oh well... maybe in the next version !! Thanks again. You said to you needed to be able to allow other members to add others to their lists without prompts, I believe you can do so manually in the settings in the LCS snapin.. On the properties of an LCS user.. Allow/edit.. add.. "ALL" or something similar... So far the only real issue I'm having with our setup is Groups.. if I have/want one contact in both groups and I run two different scripts for each group, then that user only appears in one group or the other, the end user has to manually copy the user to the other group, for them to appear in both. The other issue is with Vista, as there is no remote assistance.. (and no remote assistance under more actions if using Presence information on Portal Intranet or in Office 2007).. I'm assuming with Communicator 2007 this will be fixed.. Tag: How to read the same text file repeatedly without having to re-open it each time?
  - 16
    - Searching down a column? I have created an inventory spreadsheet, and want to be able to search down a particular column to match up part numbers. Once I have found the correct cell, I want to edit the value of the corresponding cell in the next column. I'd really like to find a good tutorial for using VBA in Excel, but barring that, a push in the right direction for this code would be handy. Tag: How to read the same text file repeatedly without having to re-open it each time?

Tottec

I have spent the day trying to figure this out and it is driving me nuts.

I have a large text file (2000+ lines) and I list of names in Excel. I need to search through the text file for each instance of each name. I have that working.

The problem I am having is that I can't figure out how to get back to to the top of the text file to search through it again. Currently I am closing and re-opening the text file for each name in the list. This is rather time consuming and I would like to be able to simply tell it to go back to the beginning of the file. I know how to do it in other languages but can't find the VBA equivalent of "go to x position" in the file.

Any help would be greatly appareciated.

Top

Re: How to read the same text file repeatedly without having to re-open it each time?

Spidermans_DarkSide - MSP, VSIP

Hi,

This forum is for VB.Net questions only, not for VBA or VB6 ( or any earlier version).

Please see.>>

http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=478161&SiteID=1

For VBA questions try. >>>>

http://www.programmersheaven.com/mb/vba/Board.aspx S=B20000

Regards,

S_DS

Top