abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2010.03.01 22:34

안녕하세요?

그냥 다른 파일 맨 마지막 영역에 복사해 넣으면 되는 건가요? ㅎㅎ

아래 코드 참고하시고.. 첨부파일에서 fileA.xls의 버튼을 실행해보세요.

2개의 파일이 다 열려있어야합니다. 대상 파일이 열려있지 않을때의 에러처리 등등은 생략했습니다.

StackToOtherFile.zip

Option Explicit

Sub saveToFileB()
Dim wbSource As Workbook
Dim targetFile As String

Set wbSource = ActiveWorkbook
targetFile = "fileB.xls"

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows(targetFile).Activate
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    wbSource.Activate
    Range("A2").Select

End Sub