In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.
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.