질문과 답변
소프트웨어 건스님 2월 3일 엑셀질문에 대한 답입니다.
2016.03.23 14:13
갑자기 호기심이 들어서 점심시간 엑셀 검색해보니 건스님의 질문에 대해 과거 해본것 같아서 늦었지만 답을 올려 봅니다.
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
suk님 복구모드 살리기 - Recovery , winre.wim ; https://windowsforum.kr/review/7660432
문자-숫자-shift.cmd