Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
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.