|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
아래 VBA로 파일을 운영 실험 중입니다. (엑셀 특정 시트 파일 저장)
그런데 이게 되다 안되다 처음 사용하면 오류가 없는데,
몇번 쓰다보면 또 다시 오류가 뜨고 이런게 반복 되네요ㅠ
왜 그런지 알 수 있을까요?
Sub Sheet_엑셀로저장()
Dim sht As Worksheet
Dim filename1 As String
Dim path As String
Dim subject As String
Dim qnum As String
Dim custname As String
Dim person_name As String
Application.ScreenUpdating = False
Set sht = Worksheets("과일")
subject = Range("D24", "D24").Value
custname = Range("D23", "D23").Value
person_name = Range("C30", "C30").Value
qnum = Range("D25", "D25").Value
With ActiveSheet
path = "C:\Users\purch\" '저장될 파일위치를 각자의 필요에 맞게 수정하세요'
filename = subject & "_" & custname & "_" & person_name & "_" & qnum & "_과일단가.xlsx"
Application.DisplayAlerts = False
sht.Copy
ChDir (path)
ActiveWorkbook.SaveAs filename:=filename
Application.DisplayAlerts = True
ActiveWorkbook.Close
End With
MsgBox "파일 저장완료"
Call 다른이름으로파일저장하기
Set sht = Nothing
Set Copy = Nothing
End Sub |
|