VBA Import Code to Access Help


New Member
Aug 20, 2019
Hi Everyone,

I am creating an import code for Access from Excel that takes every excel file in a folder, imports the designated Sheet (i.e only Sheet1) and within a designated area of space in the sheet(i.e Sheet1!A32:T1881) and import it to an access called Table called "Test1". This I have working.

In every Workbook I have a seperate sheet (i.e Sheet2) that only contains text name (I.e Company1) in Cell A1.

I am trying to get every line of excel that gets imported into the Access table to have a separate field "Company Name" for each record in the Import.

Private Sub Command0_Click()

Dim strFile As String
Dim strPath As String

DoCmd.SetWarnings False

' Set file directory for files to be imported
strPath = "X:\Trans\DISPATCH\Business Analysis - Dispatch\Liam\Files"
' Tell it to import all Excel files from the file directory
strFile = Dir(strPath & "*.xlsx*")

' Start loop
Do While strFile <> ""
' Import file
DoCmd.TransferSpreadsheet transfertype:=acImport, TableName:="Test1", FileName:=strPath & strFile, HasFieldNames:=True, Range:="Sheet1!A32:T1881"
' Loop to next file in directoryI
strFile = Dir

MsgBox "All data has been imported.", vbOKOnly

An example could be like if Sheet2 said Company1 then the import would look exactly like Sheet1 with just a column that for every row that was pulled from Sheet1 has an identifier that says Company1 in a separate column. If that makes sense. I'm just trying to identify which company each import belongs to.
Last edited by a moderator:

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...