Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdImport_Click() Dim strName As String Dim xl As Object Set xl = CreateObject("Excel.Application") xl.Workbooks.Open ("C:\Users\johnsoat\Desktop\Import_FC.xlsm") xl.Run "Transpose" xl.ActiveWorkbook.Close (True) xl.Quit Set xl = Nothing CurrentDb.Execute "delete * from [Import_FC]" strName = "Transpose" DoCmd.TransferSpreadsheet acImport, , "Import_FC", "C:\Users\johnsoat\Desktop\Import_FC.xlsm", True, strName & "!" 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.