We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Const cstrFolder As String = "C:\Schedules\" Dim i As Long, x As Long, lng As Long Dim xlApp As Object Dim xlWrk As Object Dim xlSheet As Object Dim sql As String Dim strExt As String, strFile As String, strTable As String Dim strFirstName As String, strLastName As String, strMonth As String Set xlApp = VBA.CreateObject("Excel.Application") xlApp.Visible = False strExt = ".xls" lng = Len(strExt) strFile = Dir(cstrFolder & "*" & strExt) If Len(strFile) = 0 Then MsgBox "No Files Found" Else Do While Len(strFile) > 0 Set xlWrk = xlApp.Workbooks.Open(cstrFolder & strFile)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.