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!
Dim oXL As Object Dim wkb As Object Dim wks As Object Set oXL = CreateObject("excel.application") Dim strPathFile As String, strFile As String, strPath As String Dim strTable As String, strBrowseMsg As String strBrowseMsg = "Select the folder that contains the Data Call EXCEL files:" strPath = BrowseFolder(strBrowseMsg) If strPath = "" Then MsgBox "No folder was selected.", vbOK, "No Selection" Exit Sub End If strFile = Dir(strPath & "\*.xls*") Do While Len(strFile) > 0 strPathFile = strPath & "\" & strFile Set wkb = oXL.Workbooks.Open("\\hhhfs02.itsc.hhs-itsc.local\financedata\Policy Data Call Database\Import Files\*.xlsx") wkb.Worksheets("Data Call").Range("AC:HFD").Delete wkb.Close True oXL.Quit Set oXL = Nothing strFile = Dir() Loop End Sub
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.