본문에서 피벗 테이블을 전송하는 매크로

피벗 테이블이 있으며 단추 하나만 눌러 보내고 싶습니다. 나는 매크로의 전문가는 아니지만 선택한 범위를 보낼 수있는 옵션이 있기 때문에 ActiveSheet.Range("A1:E368").Select 특정 이름이 지정된 피벗 테이블을 보내는 방법이 있어야한다고 생각합니다.본문에서 피벗 테이블을 전송하는 매크로

아이디어가 있으십니까?

출처

2016-08-16 Martin

복사 "SAsPerformance"피벗 테이블 데이터 범위 아래 코드 : 로`서브 SendPivot() SAsPerformance.TableRange2.Copy ActiveWorkbook.EnvelopeVisible = TRUE : I이 코드를 가지고

Dim PvtTbl     As PivotTable 

Set PvtTbl = Worksheets("SA's Performance").PivotTables("SAsPerformance") 
PvtTbl.TableRange2.Copy

출처

2016-08-16 10:36:50

ActiveSheet.MailEnvelope .Item.To = "메일 링리스트" .Item.Subject = "실적 보고서는" .Item.Send 끝 과 함께있는 MsgBox"축하합니다, 전자 메일이 전송되었습니다"End Sub' 그러나 버튼에 할당하면 디버깅 화면으로 들어가서'SAsPerformance.TableRange2.Copy'를 강조 표시합니다 어디에서 문제가 될 수 있습니까? – Martin

@Martin은 ** SAsPerformance **를 '피벗 테이블'로 선언하고 설정 했습니까? –

다음은 [image] (https://drive.google.com/file/d/0B7_yVmVXbyObbWI0dTNpWkFscGs/view?usp=sharing)에 대한 링크로, 올바르게 이름을 설정했다고 생각합니다. – Martin

본문에서 피벗 테이블을 전송하는 매크로

답변

관련 문제