Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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
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.