With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qTest", "c:\test.xls", False 'Declare and Start Microsoft Excel 2000. Dim AppExcel As Object, WB As Object Set AppExcel = CreateObject("Excel.Application") Set WB = AppExcel.Workbooks.Open("c:\test.xls") AppExcel.Visible = True WB.Columns.AutoFit WB.Sheets(1).pivottables(1).Refresh 'Quit Microsoft Excel and release the object variable. AppExcel.Quit Set AppExcel = Nothing Set WB = Nothing
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.