Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Does anyone know a faster or more effecient way to get this done?
Const acImport = 0 Const acSpreadsheetTypeExcel9 = 8 Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase "C:\SomeFolder\data.accdb" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True strFileName = "C:\SomeFile\File.xlsx" Set objWorkbook = objExcel.Workbooks.Open(strFileName) Set colWorksheets = objWorkbook.Worksheets For Each objWorksheet in colWorksheets Set objRange = objWorksheet.UsedRange strWorksheetName = objWorksheet.Name & "!" & objRange.Address(False, False) objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ "Vulnerability", strFileName, True, strWorksheetName Next