VBA Import Code to Access Help

Lankanzero

New Member
Joined
Aug 20, 2019
Messages
3
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
Loop


MsgBox "All data has been imported.", vbOKOnly


EDIT:
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

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,550
Messages
5,512,011
Members
408,872
Latest member
Lorid24

This Week's Hot Topics

  • Sort code advice please
    Hi, I have the code below which im trying to edit but getting a little stuck. This was the original code which worked fine,columns A-F would sort...
  • SUMPRODUCT with nested If statement
    Hi everyone, Hope you're all well. I'm hoping someone will be able to point me in the right direction with a problem I'm having with a SUMPRODUCT...
  • VBA - simple sort is killing me!
    Hello all! This should be so easy, but not for me, apparently! I have a table of data that can be of varying lengths and widths. My current macro...
  • Compare Two Lists
    I have two Lists and I need to be able to Identify differences between them. List 100 comes from a workbook - the other is downloaded form the...
  • Formula that deducts points for each code I input.
    I am trying to create a formula that will have each student in my class start at 100 points and then for each code that I enter (PP for Poor...
  • Conditional formatting formula required for day of week and a value
    Hi, I have a really simple spreadsheet where column A is the date, column B is the activity total shown as a number and column C states the day of...
Top