질문과 답변

소프트웨어 건스님 2월 3일 엑셀질문에 대한 답입니다.

2016.03.23 14:13

지후빠 조회:730

갑자기 호기심이 들어서 점심시간 엑셀 검색해보니 건스님의 질문에 대해 과거 해본것 같아서 늦었지만 답을 올려 봅니다.

https://windowsforum.kr/7133816

엑셀 매크로로 열려있지 않는 다른 엑셀파일에 방법 어떻게 해요? 

Sub input_income()
    db_file = "list.xls"
    db_path = ThisWorkbook.Path & "\" & db_file
    
    Dim input_data(5)
    For i = 1 To 4
        input_data(i) = ActiveSheet.Cells(i, 2).Value
    Next
    
    Application.ScreenUpdating = False
    
    Set list_file = Workbooks.Open(db_path)
    With list_file.Sheets(1)
        .Rows("2:2").Insert shift:=xlDown
        For i = 1 To 4
            .Cells(2, i) = input_data(i)
        Next
    End With
    
    Workbooks(db_file).Close SaveChanges:=True
    Application.ScreenUpdating = True
    
End Sub
https://windowsforum.kr/qna/7298691 홈으로 위로 목록
홈으로 위로 목록
번호 제목 글쓴이 조회 등록일
[공지] 질문과 답변 게시판 이용간 유의사항 gooddew - -
62914 윈 도 우| ESD>>WIM 변환 용량이 이리많이 차이 나나요? [3] 갈꺼니 1196 04-01
62913 기 타| 바이두 접속 에러가 나는대요. 해결방법 부탁드립니다. [6] 보[boram]람 1464 04-01
62912 기 타| 금융건 보안 프로그램들 어떻게 관리 하시나요? [6] 비니 974 04-01
62911 윈 도 우| bcd 편집으로 멀티 부팅 메뉴 안 뜸 [2] ksire 1237 04-01
62910 소프트웨어| 최신버전 u토렌트에서 토렌트파일삭제할경우 자동으로 다시... [2] shy1911 1215 04-01
62909 윈 도 우| msn 창에서 클릭해도 묵묵부답인경우 해결책은 없을까요? 무정 691 04-01
62908 하드웨어| 서버와 접속이 종료되었습니다~ [9] 야율 1267 04-01
62907 서버 / IT| 무선 확장기 세팅페이지 찾는법? [2] 쭌쭌 1233 04-01
62906 소프트웨어| 매니안닷컴과 알툴바 충돌! [2] 아파야낫는 1100 04-01
62905 윈 도 우| usb 메모리가 제품마다 특성이 있나요? [4] 솔모로 945 04-01
62904 소프트웨어| Outlook 2013 에서.. "이 컴퓨터만 해당" 을 삭... 시러요 1354 03-31
62903 윈 도 우| MBR 윈도우에서 단일 GPT포맷 3TB HDD 인식할 수 있나요? [6] 두명박 1787 03-31
62902 윈 도 우| R님의 명작 V3 설치 관련하여 질문 좀 드립니다. [1] 칼퇴근 889 03-31
62901 윈 도 우| 그레픽 드라이브 [2] 오랜길 899 03-31
62900 소프트웨어| rufus 돌리는데 외장하드가 로컬디스크로 인식됩니나 [3] ksire 2131 03-31
62899 기 타| 윈10에서 인식 못하는 핸드폰 연결 질문 [1] 듀비듀 1653 03-31
62898 윈 도 우| 윈도우10 한번 구매하면 레드스톤이랑 10년동안 계속 무료 ... [5] 건조한치는 1220 03-31
62897 하드웨어| 인터넷 유선랜 간혈적으로 끊힘 [4] blue~~ 1207 03-31
62896 소프트웨어| 탐색기 대체 프로그램 [8] 공정한빛 1254 03-31
62895 윈 도 우| pe 들에 관한 궁금증 ^^ [4] 아쳔맨 933 03-31
홈으로 위로 목록
XE1.11.6 Layout1.4.8