|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2003
* 아래줄에 질문을 작성하세요 >>
런타임 오류가 뜨는데 이게 어디서 부터 잘못 된 건지도 모르겠구ㅠㅠ
그리거 셀값만이 아니라 서식을 유지한채 데이터를 불러오고 싶은데ㅠㅠ
혹시 오류 부분이나 서식 유지해서 불러오는 방법 아시는 분이 있다면 도움 부탁 드려요
Sub 품목업데이트()
Dim wkb1 As Workbook
Dim sht1 As Worksheet
Dim wkb2 As Workbook
Dim sht2 As Worksheet
Dim wkb3 As Workbook
Dim sht3 As Worksheet
Dim wkb4 As Workbook
Dim sht4 As Worksheet
Application.ScreenUpdating = False
Set wkb1 = ThisWorkbook
Set wkb3 = Workbooks.Open("A.xlsx")
Set wkb4 = Workbooks.Open("B.xlsx")
Set wkb2 = Workbooks.Open("C.xlsm")
Set sht1 = wkb1.Sheets("Sheet1")
Set sht2 = wkb2.Sheets("Sheet1")
Set sht3 = wkb3.Sheets("Sheet1")
Set sht4 = wkb4.Sheets("Sheet1")
sht1.Cells.Copy
Sht.Range("A" & Sht.Range("a65536").End(xlUp).Row + 1).PasteSpecial
sht2.Range("A1").PasteSpecial xlPasteSpecial
sht3.Range("A1").PasteSpecial xlPasteSpecial
sht4.Range("A1").PasteSpecial xlPasteSpecial
Application.CutCopyMode = False
wkb2.Close True
wkb3.Close True
wkb4.Close True
Application.ScreenUpdating = True
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-10-16(16:48)
최종수정일 : 2019-10-16(16:48) |
|
|
|