Fly to the sky & Return

오피스 VBA를 통해서도 컨트롤이 가능하겠지만.. 파이썬을 통해서 엑셀을 다루는 것을 배워보도록 하겠습니당 이번 편은 .시작입니다 1234567import win32com.client excel = win32com.client.Dispatch("Excel.Application")excel.Visible = Truewb = excel.Workbooks.Add()ws = wb.Worksheets("Sheet1")ws.Cells(1,1).Value = "hello world"cs 참고로 엑셀 하부 명령어등은 대소문자를 구분하는 듯 해보입니당. 이를 테면 worksbook으로 타이핑하면 에러가나는...

30개정도 되는 cell 두 컬럼에 20개 정도 되는 내용을 순차적으로 입력하는 vba입니다한 칼럼이 완성되면 다음 칼럼으로 넘어갈때 처음 칼럼 마지막 다음 값부터 입력되도록 코딩한것입니다... 1234567891011121314151617181920212223242526272829303132Sub From_sheet_make_array() Dim myarray As Variant myarray = Range("k3:k22").Value i = 1 k = 0 For Each cell In Range("c3:c33") ' For i = 1 To UBound(myarray) Range("c3").Offset(k, 0).Value = myarray(i, 1) i = i + 1 k = k + 1 If i = U..

기본코드는 msdn에서 가저왔습니당. 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849Sub CalendarMaker() MyInput = Format(Now(), "mm yyyy") StartDay = DateValue(MyInput) Range("a1").NumberFormat = "mmmm yyyy" Range("a1").Value = Application.Text(MyInput, "mmmm yyyy") CurYear = Year(StartDay) CurMonth = Month(StartDay) FinalDay = DateSerial(CurYear, CurMonth + 1, 1) Range..

당직1당직2당직3당직4당직5당직6당직7당직8당직91일일3003075005076006072월월11253화화12114수수13125목목14136금금1001037토토2002044004048일일3013085015086016089월월151410화화161511수수171612목목181713금금10110414토토20120540140515일일30230950250960260916월월191817화화201918수일30331050351060361019목일30431150451160461120금휴일30531250551260561270021토토20220640240622일일30631350651360661323월월212024화화222125수수232226목목242327금금10210528토토203207403407 위와 같은 데이터를 만들었다..

특정 폴더내에 여러가지 엑셀파일이 있고 이 파일이 가지고 있는 첫번째 sheet들을 모두 모두 모와서 한가지 엑셀파일로 만들기 위한 vba입니다.. 참고하시기 바랍니다. 12345678910111213141516171819202122232425Option ExplicitSub sheets_copy() Dim IngCount As Integer '선택된 파일 갯수를 넣을 변수 Dim fileName As String '각 파일 이름을 넣을 변수 Dim wkBk As Workbook '각 파일을 넣을 변수 Dim wkbkName As String '시트들을 모을 파일이름 Application.ScreenUpdating = False '화면 업데이트 (일시) 정지 wkbkName = ActiveWorkbook..