Access Import Of Spreadsheet Or Table
by admin on Monday, August 19th, 2013 | No Comments
I received an email question about the
difference in importing an Access object
versus an Excel spreadsheet.
In this video you are going to
find out how to import your
spreadsheet or table using the
access import feature and vba.
Option Compare Database '======================================================== 'DATABASE DESIGNED & CODED BY LOEBLCOM SERVICES 2013 'ERIK LOEBL(713)409-7041 'EMAIL: erik@loeblcomservices.com 'WEB: http://loeblcomservices.com '======================================================== Dim m_strFileName As String Private Sub btnDBTable_Click() DoCmd.TransferDatabase acImport, "Microsoft Access", m_strFileName, acTable, "Customers", "Customers_Local", False End Sub Private Sub btnImportSS_Click() DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "spreadsheet name", m_strFileName, True End Sub Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String Dim objFilePicker As FileDialog Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) With objFilePicker 'Setup file dialog .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .Title = "Select File" 'add filter for all files With .Filters .Clear .Add "All Files", "*.mdb,*.accdb,*.xlsx" End With .FilterIndex = 1 'disply dilog boxe .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub
Click here for the database and the code:
Access Import Of Spreadsheet Or Table