로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요.
Excel Vba로 업무를 편하게 하고자 하나 만들어볼려고하는데..
초짜라서..힘이 드네요.
다른게 아니라.. 첨부하는그림처럼 excel파일1 에서 고정된 영역에 값을 입력하고,
이벤트가 발생되면, 입력된 값들만! 다른폴더에 저장된 excel파일2의 입력된 레코드 가장 아래에
값이 저장되게끔 하는건데..
도움 부탁드릴께요. 수고하세요.
2010.03.01 22:34:42 *.130.73.75
안녕하세요?
그냥 다른 파일 맨 마지막 영역에 복사해 넣으면 되는 건가요? ㅎㅎ
아래 코드 참고하시고.. 첨부파일에서 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
새 창으로
선택한 기호
VLookup 두개의 셀을 비교하여 같은값없애는 방법 [3]
다른시트에 조건부 수식 넣어서 합계 내는 법 [2]
'근무일수를 소수점 월단위표기' 관련 질문 두번째 입니다~^^ [2]
초보 엑셀사용자입니다. 회사안에선 아무도 모르는 거라 엑신님께 여쭈어봅니다.!! [1]
피벗테이블 엑신님~한번더 헬프요청들립니다. [1]
SUBTOTAL 행 갯수 세기 [4]
excel vba 질문 드려요. [1]
VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2]
엑셀일반 예전에 해결해준 공휴일 조건부서식에 대한 재질문 등 [2]
구간값에 있는 data 갯수 구하는 법 (countif) [3]
어떻게 하면 이렇게 변환하는 기능을 만들수 있을까요? [1]
동일한 셀 내용을 찾아서 개수를 세주는 방법이... [3]
엑셀수식 문자가 포함된 값찾기 [1]
VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패
엑셀일반 엑셀 csv 파일 저장에 관해 질문드려요~ [5]
엑셀에서 구름마크 [2]
도형색깔을 시간에 따라 자동으로 변화게 하는법 [3]
엑셀 웹 쿼리 질문드립니다. [6]
엑셀일반 엑셀 이미지
엑셀일반 콤보박스의 값 하나를 선택하면 또 다른 목록이 보이는 콤보박스 만들기 등 [2]
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142194point, 레벨:30/30"){kind=icon}
아별
안녕하세요?
그냥 다른 파일 맨 마지막 영역에 복사해 넣으면 되는 건가요? ㅎㅎ
아래 코드 참고하시고.. 첨부파일에서 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