HTA에서 Excel로 정렬하려면 vba를 실행하십시오.

HTA의 Excel Marco 레코더에서 기록한 코드는 어떻게 사용합니까?HTA에서 Excel로 정렬하려면 vba를 실행하십시오.

Sub Macro1() 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:= _ 
     Range("M2:M9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
     xlSortNormal 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:= _ 
     Range("B2:B9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
     xlSortNormal 
    With ActiveWorkbook.Worksheets("Sheet1").Sort 
     .SetRange Range("A1:M9") 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
End Sub

나는 등의 범위, 시트 이름을 정의 할 수 있습니다 .. 그러나 수 없습니다 당신이 시도 무엇

감사합니다, 아난드

출처

2014-07-13 Anand

을 :(정렬 속성을 설정하고, 무엇을 현재 (vbscript? javascript?) 코드를 추가하고 어떤 오류가 발생했는지 설명하는 것이 유용 할 것입니다. 시작하려면 HTA 스크립트에서 정의하지 않고 'xlYes'와 같은 Excel 관련 상수를 사용할 수 없습니다 코드 또는 실제 값으로 대체 (Excel V를 통해 찾을 수 있음) B 편집기 개체 브라우저) –

잘못된 속성 할당 또는 잘못된 데이터 오류가 발생했습니다. – Anand

중단 점을 사용하고 오류가 발생한 줄을 찾으십시오. – hnk

Set objRange1 = objExcel.Range("M1") Set objRange2 = objExcel.Range("A1") objRange.Sort objRange1, xlAscending, objRange2, , xlAscending, , , xlYes

출처

2014-08-14 19:27:32 Anand

HTA에서 Excel로 정렬하려면 vba를 실행하십시오.

답변

관련 문제