로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요.
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
새 창으로
선택한 기호
아별툴관련질문 설치시 오류 질문드립니다. [4]
엑셀수식 일부영역을 참조로 원하는 곳의 값을 표시하는데 그 일부영역을 잘라내기 이동시 오류 [2]
추가기능(AddIns) 비용 배부 후 집계 엑셀 프로그램을 만들고싶습니다. [1]
VBA VBA 실행시 경고 메세지 출력하기 [2]
엑셀일반 엑셀 2010 인쇄 질문 [3]
엑셀일반 예전에는 그림파일 삽입을 ctrl+v로 붙이지 않았나요? [1]
엑셀수식 연도명으로 만들어지는 시트에서 올해것만 자동참조하기 [2]
엑셀일반 주소 텍스트 나누기 [3]
셀서식(표시형식) 엑셀 내용 전환 문의 [8]
엑셀일반 아별님! 감사합니다.다시질문드립니다 [2]
엑셀일반 엑셀 링크에서의 문제입니다. [3]
엑셀일반 아별님! 안녕하세요 [1]
엑셀일반 안녕하세요 아별님 [2]
엑셀일반 3가지 이상의 조건을 만족하는 값을 구할려고 하는데요 함수가 막힙니다. [4]
아별툴관련질문 Crtl+Shift+1 [2]
VBA 닫혀있는 다른파일 데이터 어떻게 참조하나요? [1]
VBA VBA 서로 다른 파일에서 질문 입니다. [1]
차트 동적차트 질문드리겟습니다. [5]
엑셀일반 글자수 세는 방법 질문입니다. [4]
엑셀일반 아별님 도와주세요 ㅜㅜ [3]
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨: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