Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/BCTH_Export.Bas

Created February 19, 2019 04:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/57c26b183ffbcce053109f68e7c2f834 to your computer and use it in GitHub Desktop.
Save DuongAQ/57c26b183ffbcce053109f68e7c2f834 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
BCTH_Export.Bas
Sub BCTH_Export() 'Bai tap xuat du lieu tu file nay sang file khac
'Thiet lap cac bien
Dim MyWB As Workbook, NewWB As Workbook
Set MyWB = ThisWorkbook
Set NewWB = Workbooks.Add
'Lay du lieu
MyWB.Worksheets("Sheet1").Range("B1:C17").Copy
NewWB.Worksheets("Sheet1").Range("A1:B17").PasteSpecial Paste:=xlPasteColumnWidths
NewWB.Worksheets("Sheet1").Range("A1:B17").PasteSpecial Paste:=xlPasteValues
NewWB.Worksheets("Sheet1").Range("A1:B17").PasteSpecial Paste:=xlPasteFormats
NewWB.Activate
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment