[VBA] 코드 모음2 - 시트관련

146

시트 복수 선택

sheet1.select false 이전선택시트 유지

 

 

[시트추가]

Worksheets.Add after:=Sheet1 ‘sheet1 뒤에 시트 추가

 

 

[시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]

Sub 값으로시트복사()

Dim wb As Workbook

Dim wa As Worksheet

 

Set wa = ActiveSheet ‘여기서 변수로 지정해줘야

wa.UsedRange.Select

Selection.Copy

Selection.PasteSpecial (-4163)

 

Set wb = Workbooks.Add ‘여기서 초점이 이동했을때

wa.Copy Before:=wb.Sheets(1) ‘여기서 쉽게 복사가능

wb.SaveAs "d:\test1.xlsx" '파일경로 및 이름 여기서 지정

 

End Sub

 

  

[선택한시트만pdf저장]

Sub Macro1()

 

Sheets("Sheet1").Activate

ActiveSheet.UsedRange.Select

Sheets("Sheet2").Activate

ActiveSheet.UsedRange.Select

Sheets("Sheet3").Activate

ActiveSheet.UsedRange.Select

 

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\James\Desktop\pdfmaker.pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

End Sub