Need to modify VBA code to import data from other workbook

**Admin** · 06-07-2017, 04:52 PM

Code:

With Workbooks.Open(Filename:=fncFileSelected, ReadOnly:=True)
    .Sheets(1).Cells(5, 1).End(xlToRight).Offset(, 2).Resize(, 21).Value = ThisWorkbook.Worksheets("Sheet1").Range("B1:V1").Value
    Dim r  As Long, Rng As Range
    
    r = .Sheets(1).Range("a" & .Sheets(1).Rows.Count).End(3).Row
    Set Rng = .Sheets(1).Range("A5:U" & r)
    Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Sheets(1).Cells(5, 1).End(xlToRight).Offset(, 2).CurrentRegion, Unique:=False
    With Rng.Cells(1, 1).End(xlToRight).Offset(, 2).CurrentRegion
        ThisWorkbook.Worksheets("Sheet1").Range("B1:V1").Resize(.Rows.Count, .Columns.Count).Value = .Value
        ActiveWorkbook.RefreshAll
    End With
    Workbooks(.Name).Close 0
     
 End With

Thread: Need to modify VBA code to import data from other workbook

Thread Tools

Search Thread

Display

Threaded View

Similar Threads

Need help to modify the VBA code

Import data from another workbook reference to its sheet name,

Consolidate Import Data From Same Sheet In Multiple Workbooks In To Single Workbook

Macro To Import Data From Multiple Workbook Sheets In A Folder

VBA Code to Open Workbook and copy data

Bookmarks

Bookmarks

Posting Permissions