Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Telefónica -> TelefÃ³nica Function GetText(sFile As String) As String Dim nSourceFile As Integer, sText As String Dim lngChars As Long ''Close any open text files Close ''Get the number of the next free text file nSourceFile = FreeFile ''Write the entire file to sText Open sFile For Input As #nSourceFile lngChars = LOF(nSourceFile) sText = Input(lngChars, nSourceFile) Close GetText = sText End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Transfer Worksheet Data to Userform & Calculate based on Sum Range||28||45|
|Save PowerPoint from Active Workbook Excel VBA||5||36|
|format is changing when i run the find and replace macro||8||25|
|Create a list of Worksheets based on Cell Value||14||27|
Join the community of 500,000 technology professionals and ask your questions.