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
|Multi-user Excel not reflecting who actually has the file opened||10||30|
|How can I solve "The expression you entered has a function that database01 can't find"||25||37|
|the code is not looping through||11||35|
|Find missing numbers in Access Table PrimaryKey||9||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!