PDA

View Full Version : [SOLVED] vba copy active sheet to closed workbook



learn72
11-11-2017, 12:48 AM
Can we copy specific columns in vba from active workbook to a closed workbook in a specific directory.

Suppose active workbook assuming row 1 are headers , copy column A , C,D, E, F AND AA to a close workbook on c:\\testdata\keeprecords

row1 are SAME HEADERS as active worbook .




A
C
D
E
F
AH










A
B
C
D
E
F

mana
11-11-2017, 07:42 PM
Option Explicit


Sub test()
Dim r As Range
Dim p As String

p = "c:\\testdata\keeprecords\********.xlsx"

Set r = Range("A1").CurrentRegion.Columns("A:AA")

With Workbooks.Open(p).Sheets("*******")
r.AdvancedFilter xlFilterCopy, , .Range("A1:F1")
.Parent.Close True
End With

End Sub





マナ

learn72
11-16-2017, 07:01 AM
Thanks for assistance.

Working as requested