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
Private Sub getFiles() On Error Resume Next Dim aFiles() As String aFiles = filesInFolder(2008, 1) Dim j As Long, i As Long, n As Long Dim elementos As Long elementos = UBound(aFiles) If (Err.Number = 9) Then MsgBox "no files found" Exit Sub End If Dim FileCont As String Dim eventNumber() As String, uncPath() As String Dim eventNumber1() As String, uncPath1() As String Dim searchI As String, searchF As String n = 1 For j = LBound(aFiles) To UBound(aFiles) 'MsgBox aFiles(j) FileCont = FileContent(aFiles(j)) searchI = "fax event: " searchF = vbCrLf eventNumber = CadenasEntreCaracteres(FileCont, searchI, searchF) searchI = "is stored as " searchF = vbCrLf uncPath = CadenasEntreCaracteres(FileCont, searchI, searchF) For i = LBound(eventNumber) To UBound(eventNumber) 'MsgBox "file: " & aFiles(j) & vbCrLf & _ "event number: " & eventNumber(i) & vbCrLf & _ "unc path: " & uncPath(i) Cells(n, 1) = eventNumber(i) Cells(n, 2) = uncPath(i) n = n + 1 i = i + 1 Next Next End Sub
|If i keep on clicking i want to see more than two options.||7||27|
|VBA Word macro - how to get characters after the searched for string||5||41|
|Paint/Redraw window while dragging||16||44|
|Using Pop Up Calculator in Excel||4||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!