Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|.Net Web Site Password specs||2||21|
|How can I change the contents on an Excel workbook based on a lookup list for about 350 plus worksheets with a macro or code?||27||61|
|Salesforce Apex not same result as my HTML page. Salesforce breaks it.||3||20|
|Using Classic ASP inside HTML pages||2||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!