A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
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.
Sub openfile() Dim wkdir as string, openworkbookname as string wkdir="C:\" k=0 Do until k=100 openfileworkname= k&".htm" If CheckFileAvailable(wkdir & openworkbookname) = "Fileinfree" Then 'Sleep(100) 'Application.EnableEvents = False 'ClearClipboard Excel.Application.Workbooks.Open filename:=wkdir & openworkbookname, ReadOnly:=False Doevent or ... 'Application.EnableEvents = True Endif k=k+1 Loop End Sub Function CheckFileAvailable(sFilePath) On Error Resume Next Dim oFS Dim oFile Set oFS = CreateObject("Scripting.FileSystemObject") Set oFile = oFS.OpenTextFile(sFilePath, 8, False) If Err.Number <> 0 Then CheckFileAvailable = "Fileinuse" ' Debug.Print "FileinUse" Else CheckFileAvailable = "Fileisfree" Debug.Print "FileisFree" End If End Function Public Function ClearClipboard() OpenClipboard (0&) EmptyClipboard CloseClipboard End Function
|Need To remove Extra Column adding, while downloading through vba||1||27|
|MS Excel Formula Help||3||31|
|Highlight changing numbers in column||3||16|