Excel import from accessing

This example teaches you how to import data from a Microsoft Access database. In Excel, when you import data, you make a permanent connection that can be refreshed.

1. On the Data tab, in the Get & Transform Data group, click Get Data.

2. Click From Database, From Microsoft Access Database.

3. Select the Access file.

4. Click Import.

5. Select a table on the left side of the Navigator window and click Load.

Result. Your database records in Excel.

6. When your Access data changes, you can easily refresh the data in Excel. First, select a cell inside the table. Next, on the Table Design tab, in the External Table Data group, click Refresh.

Importing data to Excel from other programs and sources enables you to further analyse and generate reports or dashboards from what is often 1000’s of rows of data.

On the Data tab of the ribbon in the section Get External Data there are four options:

• From Access  – a Microsoft Access Database
• From Web – from a web page
• From Text – from a .csv or .txt file
• From Other Sources – like an SQL, XML or other database

1. Importing Data from Access

I’m not going to go into a lot of detail on Access because this can be a topic all on its own insofar as you can either import data into Excel from Access, or export from Access to Excel.

And then there are options as to how you go about this, for example you can cut or copy and paste data, write a macro or Visual Basic (VBA), or export the Access data to an XML file form importing to Excel.

Having said that; if you follow the prompts in Excel to import data from Access it’s fairly self explanatory:

To import data into Excel from Access:

a.       Choose the From Access option from the Get External Data group on the Data tab of the ribbon.

b.      Browse to your Access file location and follow the prompts.

2. Importing Data from a Web Page

When you click on the From Web button on the ribbon a mini web browser opens in Excel.

 
From here you can browse to the page that contains the data you want to import.

You can see in the above image there are arrows in yellow boxes indicating the tables in the web page. Some pages will have lots of these and some will have only one.

When you hover your mouse pointer over the arrows a box is shown around the data in the table. Click the arrows on the tables you want to import. You’ll notice the arrows change to a tick in a green box.

I’m going to import currency cross rates as you can see in the image below:

 
Once I click on the Import button Excel will ask me where I want to place the data:

 
After a few seconds it will load the data from the web page and you can see the Get External Data group of icons is now inactive and the Properties button in the Connections group is active.

 
You can now use the data to create charts, or insert formulas to the right or below to the data to analyse it further.

Refreshing Your Imported Data

You can set when you want to refresh your data by modifying the External Data Range Properties. You’ll find the properties button on the Data tab of the ribbon under Connections (see image above).

You can set it to refresh when you open the file, or if you’re looking at stock or currency prices you might want to update it every minute.

There are also other options here with regards to the formatting and layout of the data you import.

3. Importing Data from a Text File

This is possibly one of the most common ways to import data since often data exported from other systems is saved as a .txt (text file) or a .csv (comma separated file).

A .csv file contains one page of text with little or no formatting. Each column of data is separated by a delimiter. A delimiter is a character like a forward slash, semi colon or it can even be a tab or a space which separates each column of data.

A .txt file is the same as a .csv file except the data is not always separated by a delimiter, however you may find that the data in each column is exactly the same width. This allows you to manually insert columns where you want. More on this later.

With both file types each new line of text is imported into a separate row in Excel.

How to Import Data from a .CSV File

You can either browse to the file location as you normally would (changing the view to file types  Text Files *.prn; *.txt; *.csv) or you can go to the Data tab on the ribbon and select From Text and then browse to your file location that way.

When you’ve selected your file the Text Import Wizard will open.

 
Since I’m opening a .csv file I want to choose the file type as Delimited.

You can see a preview of the data you’re going to import in its raw form i.e. without any columns separating the data.

Click Next.

You can now tell Excel what type of delimiter is used in the file. Often you won’t know which delimiter was used but Excel will typically choose the correct one. You can change it by selecting another one, or more than one in step 2 of the wizard.

 
You can see in the preview pane above that Excel has now inserted columns into the data. Use the scroll bars to check for any anomalies.

Click Next when you’re happy with the delimiters.

In step 3 of the wizard you can tell Excel what type of data occupies each column.

In turn select each column by clicking on the heading in the preview pane (the selected column will be highlighted in black). Then select the data format from the Column data format box.

 
Tip: Make sure you set the correct format for date columns and set any number columns to General.

Click Finish and tell Excel where you want your data inserted.

Note: if you open the file, as opposed to importing it through the Get External Data group on the ribbon, when you save your file Excel will give you an error message and ask you if you want to change the file type to the latest Excel format. I recommend you choose ‘Yes’ otherwise any formulas, formatting or additional sheets you insert while working with the data will be lost.

Opening a .txt File Without Delimiters

If your .txt file doesn’t have a delimiter but the text is still in a tabular format you can choose Fixed width in step 1 of the wizard.

 
Click next and Excel will allow you to insert columns where you want by clicking anywhere in the data preview pane:

 
You can then move the lines by clicking and dragging them into place.

Or delete them by double clicking on them.

Be extra careful to use the scroll bars in the preview pane to check for any data that has been truncated by your columns. This is particularly common with numbers.

Step 3 is the same as stated earlier.

4. Importing Data from Other Sources

This is where you connect to an external system, for example your finance department’s accounting software. You will need to contact your IT department to co-ordinate importing data from these types of systems as they typically have security in place to prevent access to the data.

CopyFromRecordset is probably the easiest method of getting data from an Access table to an Excel worksheet.

Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _
    FieldName As String, TargetRange As Range)
' Example: DAOCopyFromRecordSet "C:FolderNameDataBaseName.mdb", _
    "TableName", "FieldName", Range("C1")
Dim db As Database, rs As Recordset
Dim intColIndex As Integer
    Set TargetRange = TargetRange.Cells(1, 1)
    Set db = OpenDatabase(DBFullName)
    Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records
    'Set rs = db.OpenRecordset("SELECT * FROM " & TableName & _
        " WHERE " & FieldName & _
        " = 'MyCriteria'", dbReadOnly) ' filter records
    ' write field names
    For intColIndex = 0 To rs.Fields.Count - 1
        TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
    Next
    ' write recordset
    TargetRange.Offset(1, 0).CopyFromRecordset rs
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

If you want more control with the data import, you can customize the macro below:

Sub DAOFromAccessToExcel(DBFullName As String, TableName As String, _
    FieldName As String, TargetRange As Range)
' Example: DAOFromAccessToExcel "C:FolderNameDataBaseName.mdb", _
    "TableName", "FieldName", Range("B1")
Dim db As Database, rs As Recordset
Dim lngRowIndex As Long
    Set TargetRange = TargetRange.Cells(1, 1)
    Set db = OpenDatabase(DBFullName)
    Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records
    'Set rs = DB.OpenRecordset("SELECT * FROM " & _
        TableName & " WHERE " & FieldName & _
        " = 'MyCriteria'", dbReadOnly) ' filter records
    lngRowIndex = 0
    With rs
        If Not .BOF Then .MoveFirst
        While Not .EOF
            TargetRange.Offset(lngRowIndex, 0).Formula = .Fields(FieldName)
            .MoveNext
            lngRowIndex = lngRowIndex + 1
        Wend
    End With
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

The macro examples assumes that your VBA project has added a reference to the DAO object library.
You can do this from within the VBE by selecting the menu Tools, References and selecting Microsoft DAO x.xx Object Library.
Use ADO if you can choose between ADO and DAO for data import or export.

There are many ways you can import Access data into Excel, the simplest way is via the Data Import wizard contained within Excel.  Read on and learn the fast way to import Access data into Excel…

The problem

As an Excel analyst there will be occasions when the data you need lives on another software system, Microsoft Access databases are a common place for that data to live as many businesses use it as part of the Microsoft Office suite.

When creating reports and dashboards in Excel, which use data from Access, it is not practical to copy and paste the data directly from a table, especially when tens of thousands of rows exist or a regular update is required, the best solution is to import the Access data into Excel using the import wizard and create a connection.

The Solution

Let’s jump right in:

1)      Locate your Access database and data table.  If you are importing data from Access into Excel then you need to know what you are trying to import (the Access table) and where that file is located (the location and name of the Access database).  These things are always best completed at the outset.

2)      Now you know what you are going to get from Access you can open up your Excel file and select the “Data” option from the ribbon, followed by the option “From Access” (as shown in the below image):

3)     When you select “From Access” a new window will open up called “Select Data Source”, this is where you must navigate to the Access database that contains your data, when you have found it either double click to make the selection or left click the name once to highlight the database, then select “Open”:

4)      The next window is the “Select Table” window.  From the list select the Access table that you want to import into Excel and click OK.  It’s worth noting that if there is only one table in the Access database this part will be skipped automatically:

5)     After you select your table the “Import Data” window appears.  This is where you can toggle with some last minute options such as where you want to place the data, you can even use the data straight in a Pivot Table or chart, for this example just click OK to go ahead and import the Access data into Excel:

6)      After you have clicked OK your Access data will import into Excel. Depending on the size of the table it might take a few seconds to complete:

Now you can manipulate the Access data within Excel or build reports and create charts from the data.

Very useful tip

By importing the data this way you create a direct connection to the Access data, that means if your Access table changes, i.e. the data inside it grows, all you have to do is refresh the table in Excel and the latest data will update.  This is extremely useful for setting up frequent reports or dashboards.

One of the useful features often ignored is within the “Properties” of the import.  When you are on stage 5 and are faced with this window:

Select the “Properties” item and then you will be faced with the “Connection Properties” window.  Here you can check the box to refresh the data when opening the file which is a useful technique if the Access database is frequently updated and you want your Excel version of the data to stay up-to-date:

Hopefully you will find this method one of the easiest ways to import Access data into Excel, there are lots of great uses for this technique in connected Excel dashboards or advanced reporting so it is a great process to understand for all Excel analysts.

Keep Excelling,

Перейти к содержанию

July 2013

Many people (especially in Finance) use Excel and Access almost interchangeably, feeding data between both applications. But if you’ve never done it, then how do you? There are several ways to import data from Access to Excel, and you don’t even need to have Access open. You can import Tables, as well as most queries (Crosstab queries aren’t supported), so it’s up to you to determine which you want to import. In general, since you use Access to store large amounts of data in tables, then use its fantastic querying ability to pare that data down into manageable chunks, you’ll find yourself importing query results most of the time.

In this article we’ll discuss the easiest way to import Access data into Excel whether from Tables or Queries. To get started go to Excel’s Data menuàGet External DataàFrom Access (this was a new option with Excel 2007 and the Ribbon Interface), although if you’re familiar with it, the old MSQuery option is still there, which we’ll discuss in another article.

From there, select the database that you want to use as your import source. Excel will then display a list of the available Tables and Queries that can be imported:

In this case we’ll import the Customers table. Once you’ve selected the Table/Query that you want to import, Excel will ask you how you want to import it. For this example we’re just going to import the Access data as a table, although you can see that Excel gives you several options for importing the data. You should note here that while you can’t currently import Crosstab queries from Access, you can import the data that supports the Crosstab as a Pivot Table report (after all, a Pivot Table is essentially Excel’s version of an Access Crosstab query).

Sidenote: If you’re using Excel 2013 you’ll see a check box at the bottom to “Add this data to the Data Model”. This is an exciting new feature that the Excel team developed that allows you to create relationships between tables (a lot like you’d do in Access when building queries). If you’re interested, then make sure to check out this article from Diego Oppenheimer, Program Manager for the Excel development team at Microsoft: http://blogs.office.com/b/microsoft-excel/archive/2012/08/23/introduction-to-the-data-model-and-relationships.aspx.

Properties – While you can certainly get detailed with Import Properties, for this article I just wanted to point out a feature that’s handy if you have a data set that refreshes at regular intervals: you can tell Excel to automatically refresh your Access data whenever you want.

Skipping past the Data Model and Properties, if you hit OK your table data will be immediately returned to Excel:

If you’re at all familiar with Excel’s Tables, then you’ll recognize this format, which you can modify in the Table Tools Design tab, which will become active when you select any range in the table.

If you haven’t taken advantage of the Refresh options in the Properties dialog, you can refresh on demand from the Table Tools Design tab or the Data tab.

Note: The database examples used in this article were from Microsoft’s Northwind database for Access 2010, which you can find under FileàNewàSamples.

This tutorial will cover the ways to import data from Excel into an Access Table and ways to export Access objects (Queries, Reports, Tables, or Forms) to Excel.

Import Excel File Into Access

To import an Excel file to Access, use the acImport option of DoCmd.TransferSpreadsheet :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Table1", "C:TempBook1.xlsx", True

Or you can use DoCmd.TransferText to import a CSV file:

DoCmd.TransferText acLinkDelim, , "Table1", "C:TempBook1.xlsx", True

Import Excel to Access Function

This function can be used to import an Excel file or CSV file into an Access Table:

Public Function ImportFile(Filename As String, HasFieldNames As Boolean, TableName As String) As Boolean
' Example usage: call ImportFile ("Select an Excel File",  "Excel Files", "*.xlsx",  "C:" , True,True, "ExcelImportTest", True, True,false,True)

    On Error GoTo err_handler
  
    If (Right(Filename, 3) = "xls") Or ((Right(Filename, 4) = "xlsx")) Then
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, Filename, blnHasFieldNames
            End If
    If (Right(Filename, 3) = "csv") Then
                DoCmd.TransferText acLinkDelim, , TableName, Filename, True
    End If
    
Exit_Thing:

    'Clean up
    'Check if our linked in Excel table already exists... and delete it if so
    If ObjectExists("Table", TableName) = True Then DropTable (TableName)
    Set colWorksheets = Nothing

    Exit Function
    
err_handler:
    If (Err.Number = 3086 Or Err.Number = 3274 Or Err.Number = 3073) And errCount < 3 Then
        errCount = errCount + 1

    ElseIf Err.Number = 3127 Then
        MsgBox "The fields in all the tabs are the same. Please make sure that each sheet has the exact column names if you wish to import mulitple", vbCritical, "MultiSheets not identical"
        ImportFile = False
        GoTo Exit_Thing
    Else
        MsgBox Err.Number & " - " & Err.Description
        ImportFile = False
        GoTo Exit_Thing
        Resume
    End If
End Function

You can call the function like this:

Private Sub ImportFile_Example()
 Call VBA_Access_ImportExport.ImportFile("C:TempBook1.xlsx", True, "Imported_Table_1")
End Sub

Access VBA Export to New Excel File

To export an Access object to a new Excel file, use the DoCmd.OutputTo method or the DoCmd.TransferSpreadsheet method:

Export Query to Excel

This line of VBA code will export a Query to Excel using DoCmd.OutputTo:

DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLSX, "c:tempExportedQuery.xls"

Or you can use the DoCmd.TransferSpreadsheet method instead:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Query1", "c:tempExportedQuery.xls", True

Note: This code exports to XLSX format. Instead you can update the arguments to export to a CSV or XLS file format instead (ex. acFormatXLSX to acFormatXLS).

Export Report to Excel

This line of code will export a Report to Excel using DoCmd.OutputTo:

DoCmd.OutputTo acOutputReport, "Report1", acFormatXLSX, "c:tempExportedReport.xls"

Or you can use the DoCmd.TransferSpreadsheet method instead:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Report1", "c:tempExportedReport.xls", True

Export Table to Excel

This line of code will export a Table to Excel using DoCmd.OutputTo:

DoCmd.OutputTo acOutputTable, "Table1", acFormatXLSX, "c:tempExportedTable.xls"

Or you can use the DoCmd.TransferSpreadsheet method instead:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Table1", "c:tempExportedTable.xls", True

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

Export Form to Excel

This line of code will export a Form to Excel using DoCmd.OutputTo:

DoCmd.OutputTo acOutputForm, "Form1", acFormatXLSX, "c:tempExportedForm.xls"

Or you can use the DoCmd.TransferSpreadsheet method instead:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Form1", "c:tempExportedForm.xls", True

Export to Excel Functions

These one line commands work great to export to a new Excel file. However, they will not be able to export into an existing workbook.  In the section below we introduce functions that allow you to append your export to an existing Excel file.

Below that, we’ve included some additional functions to export to new Excel files, including error handling and more.

Export to Existing Excel File

The above code examples work great to export Access objects to a new Excel file.  However, they will not be able to export into an existing workbook.

To export Access objects to an existing Excel workbook we’ve created the following function:

Public Function AppendToExcel(strObjectType As String, strObjectName As String, strSheetName As String, strFileName As String)

    Dim rst As DAO.Recordset
    Dim ApXL As Excel.Application
    Dim xlWBk As Excel.Workbook
    Dim xlWSh As Excel.Worksheet
    Dim intCount As Integer
    Const xlToRight As Long = -4161
    Const xlCenter As Long = -4108
    Const xlBottom As Long = -4107
    Const xlContinuous As Long = 1
      
    Select Case strObjectType

    Case "Table", "Query"
        Set rst = CurrentDb.OpenRecordset(strObjectName, dbOpenDynaset, dbSeeChanges)
    Case "Form"
        Set rst = Forms(strObjectName).RecordsetClone
    Case "Report"
        Set rst = CurrentDb.OpenRecordset(Reports(strObjectName).RecordSource, dbOpenDynaset, dbSeeChanges)
    End Select

    If rst.RecordCount = 0 Then
        MsgBox "No records to be exported.", vbInformation, GetDBTitle
    Else
        On Error Resume Next
        Set ApXL = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            Set ApXL = CreateObject("Excel.Application")
        End If
        Err.Clear

        ApXL.Visible = False
        
        Set xlWBk = ApXL.Workbooks.Open(strFileName)
        Set xlWSh = xlWBk.Sheets.Add
        xlWSh.Name = Left(strSheetName, 31)

        
        xlWSh.Range("A1").Select
        Do Until intCount = rst.fields.Count
            ApXL.ActiveCell = rst.fields(intCount).Name
            ApXL.ActiveCell.Offset(0, 1).Select
            intCount = intCount + 1
        Loop

        rst.MoveFirst
        
        xlWSh.Range("A2").CopyFromRecordset rst

        With ApXL
            .Range("A1").Select
            .Range(.Selection, .Selection.End(xlToRight)).Select
            .Selection.Interior.Pattern = xlSolid
            .Selection.Interior.PatternColorIndex = xlAutomatic
            .Selection.Interior.TintAndShade = -0.25
            .Selection.Interior.PatternTintAndShade = 0
            .Selection.Borders.LineStyle = xlNone
            .Selection.AutoFilter
            .Cells.EntireColumn.AutoFit
            .Cells.EntireRow.AutoFit
            .Range("B2").Select
            .ActiveWindow.FreezePanes = True
            .ActiveSheet.Cells.Select
            .ActiveSheet.Cells.WrapText = False
            .ActiveSheet.Cells.EntireColumn.AutoFit
            xlWSh.Range("A1").Select
            .Visible = True
        End With

        'xlWB.Close True
        'Set xlWB = Nothing
        'ApXL.Quit
        'Set ApXL = Nothing
    End If
End Function

You can use the function like this:

Private Sub AppendToExcel_Example()
    Call VBA_Access_ImportExport.ExportToExcel("Table", "Table1", "VBASheet", "C:TempTest.xlsx")
End Sub

Notice you are asked to define:

• What to Output? Table, Report, Query, or Form
• Object Name
• Output Sheet Name
• Output File Path and Name.

VBA Programming | Code Generator does work for you!

Export SQL Query to Excel

Instead you can export an SQL query to Excel using a similar function:

Public Function AppendToExcelSQLStatemet(strsql As String, strSheetName As String, strFileName As String)
    Dim strQueryName As String
    Dim ApXL As Excel.Application
    Dim xlWBk As Excel.Workbook
    Dim xlWSh As Excel.Worksheet
    Dim intCount As Integer
    Const xlCenter As Long = -4108
    Const xlBottom As Long = -4107
    Const xlVAlignCenter = -4108
    Const xlContinuous As Long = 1
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    strQueryName = "tmpQueryToExportToExcel"

    If ObjectExists("Query", strQueryName) Then
        CurrentDb.QueryDefs.Delete strQueryName
    End If
    Set qdf = CurrentDb.CreateQueryDef(strQueryName, strsql)
    Set rst = CurrentDb.OpenRecordset(strQueryName, dbOpenDynaset)

    If rst.RecordCount = 0 Then
        MsgBox "No records to be exported.", vbInformation, GetDBTitle
    Else
        On Error Resume Next
        Set ApXL = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            Set ApXL = CreateObject("Excel.Application")
        End If
        Err.Clear

        ApXL.Visible = False
        
        Set xlWBk = ApXL.Workbooks.Open(strFileName)
        Set xlWSh = xlWBk.Sheets.Add
        xlWSh.Name = Left(strSheetName, 31)

        
        xlWSh.Range("A1").Select
        Do Until intCount = rst.fields.Count
            ApXL.ActiveCell = rst.fields(intCount).Name
            ApXL.ActiveCell.Offset(0, 1).Select
            intCount = intCount + 1
        Loop

        rst.MoveFirst
        
        xlWSh.Range("A2").CopyFromRecordset rst

        With ApXL
            .Range("A1").Select
            .Range(.Selection, .Selection.End(xlToRight)).Select
            .Selection.Interior.Pattern = xlSolid
            .Selection.Interior.PatternColorIndex = xlAutomatic
            .Selection.Interior.TintAndShade = -0.25
            .Selection.Interior.PatternTintAndShade = 0
            .Selection.Borders.LineStyle = xlNone
            .Selection.AutoFilter
            .Cells.EntireColumn.AutoFit
            .Cells.EntireRow.AutoFit
            .Range("B2").Select
            .ActiveWindow.FreezePanes = True
            .ActiveSheet.Cells.Select
            .ActiveSheet.Cells.WrapText = False
            .ActiveSheet.Cells.EntireColumn.AutoFit
            xlWSh.Range("A1").Select
            .Visible = True
        End With


        'xlWB.Close True
        'Set xlWB = Nothing
        'ApXL.Quit
        'Set ApXL = Nothing
    End If
End Function

Called like this:

Private Sub AppendToExcelSQLStatemet_Example()
    Call VBA_Access_ImportExport.ExportToExcel("SELECT * FROM Table1", "VBASheet", "C:TempTest.xlsx")
End Sub

Where you are asked to input:

• SQL Query
• Output Sheet Name
• Output File Path and Name.

Function to Export to New Excel File

These functions allow you to export Access objects to a new Excel workbook. You might find them more useful than the simple single lines at the top of the document.

Public Function ExportToExcel(strObjectType As String, strObjectName As String, Optional strSheetName As String, Optional strFileName As String)

    Dim rst As DAO.Recordset
    Dim ApXL As Object
    Dim xlWBk As Object
    Dim xlWSh As Object
    Dim intCount As Integer
    Const xlToRight As Long = -4161
    Const xlCenter As Long = -4108
    Const xlBottom As Long = -4107
    Const xlContinuous As Long = 1

    On Error GoTo ExportToExcel_Err
    DoCmd.Hourglass True

    Select Case strObjectType

    Case "Table", "Query"
        Set rst = CurrentDb.OpenRecordset(strObjectName, dbOpenDynaset, dbSeeChanges)
    Case "Form"
        Set rst = Forms(strObjectName).RecordsetClone
    Case "Report"
        Set rst = CurrentDb.OpenRecordset(Reports(strObjectName).RecordSource, dbOpenDynaset, dbSeeChanges)
    End Select

    If rst.RecordCount = 0 Then
        MsgBox "No records to be exported.", vbInformation, GetDBTitle
        DoCmd.Hourglass False
    Else
        On Error Resume Next
        Set ApXL = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            Set ApXL = CreateObject("Excel.Application")
        End If
        Err.Clear
        On Error GoTo ExportToExcel_Err

        Set xlWBk = ApXL.Workbooks.Add
        ApXL.Visible = False

        Set xlWSh = xlWBk.Worksheets("Sheet1")
        If Len(strSheetName) > 0 Then
            xlWSh.Name = Left(strSheetName, 31)
        End If

        xlWSh.Range("A1").Select
        Do Until intCount = rst.fields.Count
            ApXL.ActiveCell = rst.fields(intCount).Name
            ApXL.ActiveCell.Offset(0, 1).Select
            intCount = intCount + 1
        Loop

        rst.MoveFirst
        
        xlWSh.Range("A2").CopyFromRecordset rst

        With ApXL
            .Range("A1").Select
            .Range(.Selection, .Selection.End(xlToRight)).Select
            .Selection.Interior.Pattern = xlSolid
            .Selection.Interior.PatternColorIndex = xlAutomatic
            .Selection.Interior.TintAndShade = -0.25
            .Selection.Interior.PatternTintAndShade = 0
            .Selection.Borders.LineStyle = xlNone
            .Selection.AutoFilter
            .Cells.EntireColumn.AutoFit
            .Cells.EntireRow.AutoFit
            .Range("B2").Select
            .ActiveWindow.FreezePanes = True
            .ActiveSheet.Cells.Select
            .ActiveSheet.Cells.WrapText = False
            .ActiveSheet.Cells.EntireColumn.AutoFit
            xlWSh.Range("A1").Select
            .Visible = True
        End With

retry:
        If FileExists(strFileName) Then
            Kill strFileName
        End If
        If strFileName <> "" Then
            xlWBk.SaveAs strFileName, FileFormat:=56
        End If
        
        rst.Close
        Set rst = Nothing
        DoCmd.Hourglass False
    End If

ExportToExcel_Exit:
    DoCmd.Hourglass False
    Exit Function

ExportToExcel_Err:
    DoCmd.SetWarnings True
    MsgBox Err.Description, vbExclamation, Err.Number
    DoCmd.Hourglass False
    Resume ExportToExcel_Exit

End Function

The function can be called like this:

Private Sub ExportToExcel_Example()
 Call VBA_Access_ImportExport.ExportToExcel("Table", "Table1", "VBASheet")
End Sub

Возможно, вам придется использовать данные из различных источников для анализа. В Excel вы можете импортировать данные из разных источников данных. Некоторые из источников данных следующие:

• База данных Microsoft Access
• Страница интернета
• Текстовый файл
• Таблица SQL Server
• SQL Server Analysis Cube
• XML-файл

Вы можете импортировать любое количество таблиц одновременно из базы данных.

Импорт данных из базы данных Microsoft Access

Мы научимся импортировать данные из базы данных MS Access. Следуйте инструкциям ниже

Шаг 1 – Откройте новую пустую книгу в Excel.

Шаг 2 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 3 – Нажмите « Доступ» в группе «Получить внешние данные». Откроется диалоговое окно « Выбор источника данных ».

Шаг 4 – Выберите файл базы данных Access, который вы хотите импортировать. Файлы базы данных Access будут иметь расширение .accdb.

Откроется диалоговое окно «Выбор таблицы», в котором отображаются таблицы, найденные в базе данных Access. Вы можете импортировать все таблицы в базе данных одновременно или импортировать только выбранные таблицы на основе ваших потребностей анализа данных.

Шаг 5 – Установите флажок Включить выбор нескольких таблиц и выберите все таблицы.

Шаг 6 – Нажмите ОК. Откроется диалоговое окно « Импорт данных ».

Как вы заметили, у вас есть следующие опции для просмотра данных, которые вы импортируете в свою рабочую книгу:

• Таблица
• Отчет сводной таблицы
• PivotChart
• Power View Report

У вас также есть возможность – только создать соединение . Далее отчет по сводной таблице выбран по умолчанию.

Excel также дает вам возможность поместить данные в вашу книгу –

• Существующий лист
• Новый лист

Вы найдете еще один флажок, который установлен и отключен. Добавьте эти данные в модель данных . Каждый раз, когда вы импортируете таблицы данных в свою книгу, они автоматически добавляются в модель данных в вашей книге. Вы узнаете больше о модели данных в следующих главах.

Вы можете попробовать каждый из вариантов, чтобы просмотреть импортируемые данные и проверить, как эти данные отображаются в вашей рабочей книге.

• Если вы выберете « Таблица» , опция «Существующая рабочая таблица» будет отключена, будет выбрана опция « Новая рабочая таблица», и Excel создаст столько таблиц, сколько будет импортировано таблиц из базы данных. Таблицы Excel отображаются в этих таблицах.

• Если вы выберете Отчет сводной таблицы , Excel импортирует таблицы в рабочую книгу и создаст пустую сводную таблицу для анализа данных в импортированных таблицах. У вас есть возможность создать сводную таблицу на существующем листе или новом листе.

  Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей сводной таблицы вместе с полями в каждой таблице.

• Если вы выберете PivotChart , Excel импортирует таблицы в рабочую книгу и создаст пустую PivotChart для отображения данных в импортированных таблицах. У вас есть возможность создать сводную диаграмму на существующем или новом листе.

  Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей PivotChart вместе с полями в каждой таблице.

• Если вы выберите Power View Report , Excel импортирует таблицы в рабочую книгу и создаст Power View Report в новой рабочей таблице. В последующих главах вы узнаете, как использовать отчеты Power View для анализа данных.

  Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей Power View Report вместе с полями в каждой таблице.

• Если вы выберете опцию – Только создать соединение , между базой данных и вашей книгой будет установлено соединение для передачи данных. Таблицы или отчеты не отображаются в книге. Однако импортированные таблицы по умолчанию добавляются в модель данных в вашей книге.

  Вам необходимо выбрать любой из этих параметров в зависимости от вашего намерения импортировать данные для анализа данных. Как вы заметили выше, независимо от выбранной вами опции, данные импортируются и добавляются в модель данных в вашей рабочей книге.

Если вы выберете « Таблица» , опция «Существующая рабочая таблица» будет отключена, будет выбрана опция « Новая рабочая таблица», и Excel создаст столько таблиц, сколько будет импортировано таблиц из базы данных. Таблицы Excel отображаются в этих таблицах.

Если вы выберете Отчет сводной таблицы , Excel импортирует таблицы в рабочую книгу и создаст пустую сводную таблицу для анализа данных в импортированных таблицах. У вас есть возможность создать сводную таблицу на существующем листе или новом листе.

Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей сводной таблицы вместе с полями в каждой таблице.

Если вы выберете PivotChart , Excel импортирует таблицы в рабочую книгу и создаст пустую PivotChart для отображения данных в импортированных таблицах. У вас есть возможность создать сводную диаграмму на существующем или новом листе.

Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей PivotChart вместе с полями в каждой таблице.

Если вы выберите Power View Report , Excel импортирует таблицы в рабочую книгу и создаст Power View Report в новой рабочей таблице. В последующих главах вы узнаете, как использовать отчеты Power View для анализа данных.

Таблицы Excel для импортированных таблиц данных не будут отображаться в книге. Однако вы найдете все таблицы данных в списке полей Power View Report вместе с полями в каждой таблице.

Если вы выберете опцию – Только создать соединение , между базой данных и вашей книгой будет установлено соединение для передачи данных. Таблицы или отчеты не отображаются в книге. Однако импортированные таблицы по умолчанию добавляются в модель данных в вашей книге.

Вам необходимо выбрать любой из этих параметров в зависимости от вашего намерения импортировать данные для анализа данных. Как вы заметили выше, независимо от выбранной вами опции, данные импортируются и добавляются в модель данных в вашей рабочей книге.

Импорт данных с веб-страницы

Иногда вам может понадобиться использовать данные, которые обновляются на веб-сайте. Вы можете импортировать данные из таблицы на веб-сайте в Excel.

Шаг 1 – Откройте новую пустую книгу в Excel.

Шаг 2 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 3 – Нажмите « Из Интернета» в группе « Получить внешние данные ». Откроется диалоговое окно « Новый веб-запрос ».

Шаг 4 – Введите URL-адрес веб-сайта, с которого вы хотите импортировать данные, в поле рядом с адресом и нажмите «Перейти».

Шаг 5 – Данные на сайте появляются. Рядом с данными таблицы будут отображаться желтые значки со стрелками, которые можно импортировать.

Шаг 6 – Нажмите желтые значки, чтобы выбрать данные, которые вы хотите импортировать. Это превращает желтые значки в зеленые поля с галочкой, как показано на следующем снимке экрана.

Шаг 7 – Нажмите кнопку «Импорт» после того, как вы выбрали то, что вы хотите.

Откроется диалоговое окно « Импорт данных ».

Шаг 8 – Укажите, куда вы хотите поместить данные и нажмите Ok.

Шаг 9 – Организовать данные для дальнейшего анализа и / или представления.

Копировать-вставить данные из Интернета

Другой способ получения данных с веб-страницы – копирование и вставка необходимых данных.

Шаг 1 – Вставьте новый лист.

Шаг 2 – Скопируйте данные с веб-страницы и вставьте их на лист.

Шаг 3 – Создайте таблицу с вставленными данными.

Импорт данных из текстового файла

Если у вас есть данные в файлах .txt или .csv или .prn , вы можете импортировать данные из этих файлов, рассматривая их как текстовые файлы. Следуйте инструкциям ниже

Шаг 1 – Откройте новый лист в Excel.

Шаг 2 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 3 – Нажмите « Из текста» в группе «Получить внешние данные». Откроется диалоговое окно « Импорт текстового файла ».

Вы можете видеть, что текстовые файлы с расширениями .prn, .txt и .csv принимаются.

Шаг 4 – Выберите файл. Имя выбранного файла появится в поле Имя файла. Кнопка «Открыть» изменится на кнопку «Импорт».

Шаг 5 – Нажмите кнопку «Импорт». Мастер импорта текста – появляется диалоговое окно « Шаг 1 из 3 ».

Шаг 6 – Выберите опцию «С разделителями», чтобы выбрать тип файла, и нажмите «Далее».

Откроется мастер импорта текста – шаг 2 из 3 .

Шаг 7 – В разделе «Разделители» выберите « Другое» .

Шаг 8 – В поле рядом с Другой введите | (Это разделитель в текстовом файле, который вы импортируете).

Шаг 9 – Нажмите Далее.

Откроется мастер импорта текста – шаг 3 из 3 .

Шаг 10 – В этом диалоговом окне вы можете установить формат данных столбца для каждого из столбцов.

Шаг 11. После завершения форматирования данных столбцов нажмите кнопку «Готово». Откроется диалоговое окно « Импорт данных ».

Вы увидите следующее –

• Таблица выбрана для просмотра и отображается серым цветом. Таблица – единственный вариант просмотра, который у вас есть в этом случае.

• Вы можете поместить данные либо в существующий рабочий лист, либо в новый рабочий лист.

• Вы можете установить или не устанавливать флажок Добавить эти данные в модель данных.

• Нажмите OK после того, как вы сделали выбор.

Таблица выбрана для просмотра и отображается серым цветом. Таблица – единственный вариант просмотра, который у вас есть в этом случае.

Вы можете поместить данные либо в существующий рабочий лист, либо в новый рабочий лист.

Вы можете установить или не устанавливать флажок Добавить эти данные в модель данных.

Нажмите OK после того, как вы сделали выбор.

Данные появятся на указанном вами листе. Вы импортировали данные из текстового файла в книгу Excel.

Импорт данных из другой книги

Возможно, вам придется использовать данные из другой книги Excel для анализа данных, но кто-то другой может поддерживать другую книгу.

Чтобы получать последние данные из другой книги, установите соединение данных с этой книгой.

Шаг 1 – Нажмите DATA> Соединения в группе Соединения на ленте.

Откроется диалоговое окно « Подключения к книге».

Шаг 2. Нажмите кнопку «Добавить» в диалоговом окне «Подключения к книге». Откроется диалоговое окно « Существующие подключения ».

Шаг 3 – Нажмите кнопку Обзор для более … Откроется диалоговое окно « Выбор источника данных ».

Шаг 4 – Нажмите кнопку « Новый источник» . Откроется диалоговое окно мастера подключения к данным .

Шаг 5 – Выберите Other / Advanced в списке источников данных и нажмите Next. Откроется диалоговое окно «Свойства ссылки на данные».

Шаг 6 – Установите свойства канала передачи данных следующим образом –

• Перейдите на вкладку « Соединение ».

• Нажмите Использовать имя источника данных.

• Нажмите стрелку вниз и выберите « Файлы Excel» в раскрывающемся списке.

• Нажмите ОК.

Перейдите на вкладку « Соединение ».

Нажмите Использовать имя источника данных.

Нажмите стрелку вниз и выберите « Файлы Excel» в раскрывающемся списке.

Нажмите ОК.

Откроется диалоговое окно « Выбрать рабочую книгу ».

Шаг 7 – Найдите место, где у вас есть рабочая книга для импорта. Нажмите ОК.

Откроется диалоговое окно « Мастер подключения к данным » с выбором базы данных и таблицы.

Примечание. В этом случае Excel обрабатывает каждый рабочий лист, который импортируется, как таблицу. Имя таблицы будет именем рабочего листа. Таким образом, чтобы иметь значимые имена таблиц, назовите / переименуйте рабочие листы в зависимости от ситуации.

Шаг 8 – Нажмите Далее. Откроется диалоговое окно мастера подключения к данным с сохранением файла подключения к данным и завершением.

Шаг 9 – Нажмите кнопку Готово. Откроется диалоговое окно « Выбор таблицы ».

Как вы заметили, Name – это имя листа, которое импортируется как тип TABLE. Нажмите ОК.

Соединение данных с выбранной вами рабочей книгой будет установлено.

Импорт данных из других источников

Excel предоставляет вам возможность выбора различных других источников данных. Вы можете импортировать данные из них в несколько шагов.

Шаг 1 – Откройте новую пустую книгу в Excel.

Шаг 2 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 3 – Нажмите Из других источников в группе Получить внешние данные.

Появляется выпадающий список с различными источниками данных.

Вы можете импортировать данные из любого из этих источников данных в Excel.

Импорт данных с использованием существующего соединения

В предыдущем разделе вы установили соединение для передачи данных с книгой.

Теперь вы можете импортировать данные, используя это существующее соединение.

Шаг 1 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 2 – Нажмите Существующие соединения в группе Получить внешние данные. Откроется диалоговое окно «Существующие подключения».

Шаг 3 – Выберите соединение, из которого вы хотите импортировать данные, и нажмите «Открыть».

Переименование соединений данных

Будет полезно, если у подключений к данным, которые есть в вашей книге, есть понятные имена для простоты понимания и определения местоположения.

Шаг 1 – Перейдите в DATA> Соединения на ленте. Откроется диалоговое окно « Подключения к книге».

Шаг 2 – Выберите соединение, которое вы хотите переименовать, и нажмите Свойства.

Откроется диалоговое окно « Свойства соединения ». Текущее имя появится в поле Имя соединения –

Шаг 3 – Измените имя соединения и нажмите ОК. Передача данных будет иметь новое имя, которое вы дали.

Обновление подключения к внешним данным

Когда вы подключаете свою книгу Excel к внешнему источнику данных, как вы видели в предыдущих разделах, вы хотели бы регулярно обновлять данные в своей книге, отражая изменения, вносимые во внешний источник данных время от времени.

Вы можете сделать это, обновив соединения данных, которые вы сделали с этими источниками данных. Всякий раз, когда вы обновляете соединение данных, вы видите самые последние изменения данных из этого источника данных, включая все, что является новым, или которое было изменено, или которое было удалено.

Вы можете обновить только выбранные данные или все подключения данных в книге одновременно.

Шаг 1 – Перейдите на вкладку ДАННЫЕ на ленте.

Шаг 2 – Нажмите « Обновить все» в группе «Подключения».

Как вы заметили, в выпадающем списке есть две команды – Обновить и Обновить все.

• Если вы нажмете Обновить , выбранные данные в вашей рабочей книге будут обновлены.

• Если вы нажмете Обновить все , все подключения к данным в вашей книге будут обновлены.

Если вы нажмете Обновить , выбранные данные в вашей рабочей книге будут обновлены.

Если вы нажмете Обновить все , все подключения к данным в вашей книге будут обновлены.

Обновление всех соединений данных в рабочей книге

У вас может быть несколько подключений к вашей книге. Вам необходимо время от времени обновлять их, чтобы ваша рабочая книга имела доступ к самым последним данным.

Шаг 1 – Нажмите любую ячейку в таблице, которая содержит ссылку на импортированный файл данных.

Шаг 2 – Перейдите на вкладку «Данные» на ленте.

Шаг 3 – Нажмите «Обновить все» в группе «Подключения».

Шаг 4 – Выберите Обновить все из выпадающего списка. Все подключения к данным в рабочей книге будут обновлены.

Автоматически обновлять данные при открытии рабочей книги

Возможно, вы захотите иметь доступ к последним данным из подключений к вашей книге при каждом открытии вашей книги.

Шаг 1 – Нажмите любую ячейку в таблице, которая содержит ссылку на импортированный файл данных.

Шаг 2 – Перейдите на вкладку «Данные».

Шаг 3 – Нажмите «Подключения» в группе «Подключения».

Откроется диалоговое окно «Подключения к книге».

Шаг 4 – Нажмите кнопку Свойства. Откроется диалоговое окно «Свойства соединения».

Шаг 5 – Перейдите на вкладку «Использование».

Шаг 6 – Отметьте опцию – Обновить данные при открытии файла.

У вас есть и другой вариант – удалить данные из диапазона внешних данных перед сохранением книги . Вы можете использовать эту опцию, чтобы сохранить книгу с определением запроса, но без внешних данных.

Шаг 7 – Нажмите ОК. Всякий раз, когда вы открываете свою рабочую книгу, в вашу рабочую книгу загружаются самые свежие данные.

Автоматически обновлять данные через регулярные интервалы

Возможно, вы используете свою рабочую книгу, чтобы держать ее открытой в течение более длительного времени. В таком случае вы можете периодически обновлять данные без какого-либо вмешательства с вашей стороны.

Шаг 1 – Нажмите любую ячейку в таблице, которая содержит ссылку на импортированный файл данных.

Шаг 2 – Перейдите на вкладку «Данные» на ленте.

Шаг 3 – Нажмите «Подключения» в группе «Подключения».

Откроется диалоговое окно «Подключения к книге».

Шаг 4 – Нажмите кнопку Свойства.

Откроется диалоговое окно «Свойства соединения». Установите свойства следующим образом –

• Перейдите на вкладку « Использование ».

• Установите флажок Обновить каждый .

• Введите 60 в качестве количества минут между каждой операцией обновления и нажмите Ok.

Перейдите на вкладку « Использование ».

Установите флажок Обновить каждый .

Введите 60 в качестве количества минут между каждой операцией обновления и нажмите Ok.

Ваши данные будут автоматически обновляться каждые 60 минут. (т.е. каждый час).

Включение фонового обновления

Для очень больших наборов данных рекомендуется запустить фоновое обновление. Это возвращает управление Excel вместо того, чтобы заставлять вас ждать несколько минут или более, пока обновление не закончится. Вы можете использовать эту опцию, когда вы выполняете запрос в фоновом режиме. Однако в течение этого времени нельзя выполнить запрос для любого типа соединения, который извлекает данные для модели данных.

• Щелкните в любой ячейке таблицы, содержащей ссылку на импортированный файл данных.

• Перейдите на вкладку «Данные».

• Нажмите Подключения в группе Подключения. Откроется диалоговое окно «Подключения к книге».

Щелкните в любой ячейке таблицы, содержащей ссылку на импортированный файл данных.

Перейдите на вкладку «Данные».

Нажмите Подключения в группе Подключения. Откроется диалоговое окно «Подключения к книге».

Нажмите кнопку Свойства.

Откроется диалоговое окно «Свойства соединения». Перейдите на вкладку «Использование». Появятся параметры управления обновлением.