Anthony - vba populating table from an external workbook

Resolved · High Priority · Version 2010

Thu 14 Jun 2012, 10:49 Delegate Steven said...

Steven has attended:
Access Intermediate course

Anthony - vba populating table from an external workbook

Hi,

I need to populate a table on a worksheet with information from another workbook, i am aiming to populate one table with info from many sheets on another file. The file used will be based on a userform combo box selection of which there are two choices.

On the external workbook the sheets are named "T64 v" T71 v" etc, i would like to use the first three characters for example "T64" to be part of my table under the heading T-Dept.

Could you provide an example of code that can -

1. take data from a range in an external workbook and place it on the active worksheet. Assume that the external workbook is saved in C:\Desktop and called Budget_Model.xlsx

2. put the first (left) three characters of the sheet (tab) name from the external workbook into a cell on the active worksheet.

Thanks in advance for your help with this query.

Steve

Thu 14 Jun 2012, 16:06 Trainer Anthony said...

RE: Anthony - vba populating table from an external workbook

Hi Steve. Here's a basic example of what you're after. You'll need to put the files in place and rename the sheets accordingly for this example to work. Once you've got the relevant workbook in memory as wbOpen, I'm hoping the rest will become obvious!

Here's the code:

***

Option Explicit

Sub GetMyData()

Dim wbOpen As Workbook
Dim myarray As Variant
Dim shtName As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wbOpen = Workbooks.Open("c:\desktop\Budget_Model.xlsx")

myarray = wbOpen.Sheets("T64 v").Range("a1:a3").Value

wbOpen.Close SaveChanges:=False

Sheets("Results").Range("a1:a3").Value = myarray

Sheets("Results").Range("b1").Value = Left("T64 v", 3)

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

***

Hope this helps,

Anthony