2014-07-08 4 views
0

여기에 도움이 필요합니다. VBS를 사용하여 범위를 바꿀 수 있습니까? 기본적으로 한 시트에서 범위를 복사 한 다음 다른 시트에 붙여 넣습니다. 미리 감사드립니다.VBS로 변환 범위를 Excel

답변

0
Public Sub transpose() 
      Worksheets("Sheet1").Range("A1:A5").Copy 
      Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True 
End Sub 

이게이게 뭔가요? 그래서 그냥 쉼표를 추가하고 단지

.Range("A2").PasteSpecial ,,,True 

다시 한 번 감사드립니다 >>> 사실로 전치 부분을 넣어

나는 내가 쓴 다른 스크립트에서 본 것과
+0

thx는 빠른 답변을 제공합니다. 작동하는지는 알려주지 만 VBS 또는 VBA의 경우 해당 사항이 있습니까? – TriniCurry

+0

VBS와 함께 작동해야한다고 생각하지만 문제가 있으면 알려주세요. Excel 파일을 개체로 직접 참조 할 수 있습니다.이 경우 Excel 응용 프로그램을 흐리게 처리하고 파일 위치를 참조해야합니다. 나는 이것을 포함시키기 위해 나의 포스트를 업데이트 할 것이다. – cronos2546

+0

안녕하세요, 고마워, 그래서 그것은 vbs에서 작동하지 않았다는 것이 밝혀졌지만 wscript가 내가 감사했던 테스트를 다시 게시 할 것으로 이해할 수있는 것으로 번역되어야했습니다. D @ cronos2546 – TriniCurry

0
Set objXLApp = CreateObject("Excel.Application") 
Set objXLWb = objXLApp.Workbooks.Open("C:\Users\CuRrY\Desktop\test1.xls") 
objXLApp.Application.Visible = True 
objXLApp.DisplayAlerts=False 
Set objXLWs = objXLWb.Sheets(1) 

objXLWs.Range("A1:O1").Copy 
objXLWs.Range("A2").PasteSpecial ,,,True 

는 WScript와는가 전체 문자열 통과 cronos2546,이 사이트를 좋아해요 :)