수메리안 언제나 이곳에서 나름 열심히 공부하면서 이것 저것 회사 실무에 적용하고 있는 중입니다^^
항상 감사드리며, 아래 VBA로 "월별미수금.xlsm" 를 만들어 여러 PC에서 사용하고 있습니다.
그런데, 딱 한 PC에서만 400에러가 납니다.
왜 그럴까요?
엑셀을 지우고 새로 설치해 봤는데... 역시나 에러가 발생합니다.
실행순서는 ERP에서 "거래처별채권.xlsx" 엑셀을 다운받아 열고 미리 리본메뉴에 등록한 매크로 버튼을 실행하면
바로 400에러 뜹니다. 그런데 월별미수금.xlsm실행시키고
각각의 버튼(코딩)을 실행하면 아무런 이상없이 잘 작동합니다.
다른 PC에서는 아무런 에러없이 잘 작동합니다.
고수님들의 도움을 요청드립니다.
Sub 거래처별채권복사()
Dim wb As Workbook '파일
On Error Resume Next ' 에러검출 안함
Set wb = Workbooks("월별미수금.xlsm") ' 기존 오픈된 문서중에 해당 파일을 wb에 설정해서
If Err Then ' 에러가 나면 오픈되지 않은 상태 이므로
Dim sPath$
sPath = ThisWorkbook.Path & "\월별미수금.xlsm" ' 현재폴더의 파일 지정
If Dir(sPath) = Empty Then ' 파일이 있는지 검사해서 해당 파일이 없으면
MsgBox "파일을 찾을 수 없습니다...!" ' 메세지 출력후
Exit Sub ' 종료
Else ' 해당 파일이 있으면
Set wb = Workbooks.Open(sPath) ' 파일을 오픈해서 wb에 설정
ThisWorkbook.Activate ' 오픈된파일이 액티브 되므로 현재파일 액티브
End If
End If
On Error GoTo 0 ' 에러 검출 재게
Sheets("거래처별채권").Move Before:=wb.Sheets("sheet3") ' 시트복사
End Sub
Sub 보고서만들기()
Dim i As Integer
Dim endrow As Integer
Dim FindValue As Variant
Dim endcell As Integer
With ActiveSheet
.Name = Format(Date, "mm월dd일") & "_거래처별채권보고서"
End With
On Error Resume Next ' 에러검출 안함
ActiveSheet.Cells(1, 1).Select
ActiveSheet.Columns("A").Delete
ActiveSheet.Columns("B:E").Delete
ActiveSheet.Columns("C").Delete
ActiveSheet.Cells(1, 1).Value = "거래처별채권"
ActiveSheet.Cells(1, 1).Select
With Selection
.Interior.ColorIndex = 1 '제목칼라
.Font.Color = vbWhite '폰트칼라
.HorizontalAlignment = xlCenter
End With
'// 잔액이 0이하 행 삭제
endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = endrow To 2 Step -1
If Cells(i, 2) <= 0 Then
ActiveSheet.Range("a" & i).Resize(, 2).Delete Shift:=xlUp
Else
End If
Next
'//잔액합계구하기
endcell = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
ActiveSheet.Cells(Rows.Count, 2).End(3).Value = Application.WorksheetFunction.Sum(Range("b3", "b" & endcell))
'//서식만들기
ActiveSheet.Range("C:C").ColumnWidth = 5
ActiveSheet.Range("D:D").ColumnWidth = 22
ActiveSheet.Range("E:E").ColumnWidth = 15
Range("A2:B2").Copy
Range("D2").Select
ActiveSheet.Paste
Range("A44 : B84").Cut
Range("D3").Select
ActiveSheet.Paste
Range("A44 : B84").EntireRow.Delete Shift:=xlUp
Range("A44").EntireRow.Insert Shift:=xlDown
Range("A2:E2").Copy
Range("A44").Select
ActiveSheet.Paste
Range("A87 : B129").Cut
Range("D45").Select
ActiveSheet.Paste
Range("A87 : B129").EntireRow.Delete Shift:=xlUp
'// 거래처미수금 인쇄셋팅()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0) '◀왼쪽 여백
.RightMargin = Application.InchesToPoints(0) '◀오른쪽 여백
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
Range("A1").Select
Range("D1:E1").Select '날짜 설정와 타이틀 설정
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = Format(Now, "yyyy" & "년" & "mm" & "월" & "dd" & "일") '타이틀제목
End Sub
Sub 출력물만들기()
Dim i As Integer
Dim endrow As Long
On Error Resume Next ' 에러검출 안함
endrow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
ActiveSheet.Rows(endrow + 3).Delete
ActiveSheet.Rows(endrow + 2).Delete
ActiveSheet.Rows(endrow + 1).Delete
ActiveSheet.Rows(1).Delete
ActiveSheet.Columns("A:B").Delete
ActiveSheet.Columns("E:F").Delete
ActiveSheet.Columns("F:G").Delete
' ActiveSheet.Columns("E:F").Delete
endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = endrow To 2 Step -1
If Cells(i, 4) = "" And Cells(i, 6) = "" Then
Rows(i).Delete
Else
End If
Next
endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = endrow To 2 Step -1
If Cells(i, 4) = "" And Cells(i, 5) = "" Then
Rows(i).Delete
Else
End If
Next
ActiveSheet.Range("E1") = "현금"
With ActiveSheet
.Name = Format(Date, "mm월dd일") & "_일일거래처별채권"
End With
'ActiveWorkbook.Close
End Sub
어느 부분에서 400 에러가 나는지 표시해 주세요.
1. 보통 사무실 다른 여러 PC에서는 월별미수금.xlsm 을 열어 놓지 않고 ERP에서 "거래처별채권.xlsx" 를 다운받아 거래처별채권.xlsx를 열어놓고 리본메뉴의 거래처별채권복사 버튼을 클릭하면 자동으로 월별미수금.xlsm 이 열리고 거래처별채권 시트를 월별미수금.xlsm으로 복사해 옵니다. 그리고 다른 리본버튼들의 작업들을 에러없이 잘 수행합니다.
2. 그런데 유독 한 PC에서만 1번 작업을 수행하면 400에러가 나는데... Sub 거래처별채권복사() ~ End Sub 이 부분에서 에러가 납니다. 서치해 보니 400에러의 원인이 다양하게 있어 이리저리 해보다 해결이 나지 않아 문의 드립니다.
3. 참고로 윈도우10, 엑셀2021로 해서 혹시나 버전문제가 하여 엑셀2019로 다시 재설치해도 똑같은 증상입니다.
어떤 문제일까요?
감사합니다~
리본 메뉴에 추가 기능이 있으면 그 추가 기능파일의 매크로에서 처리하면 되는데 굳이 다시 매크로 파일을 불러 들이는 이유를 알 수 없어서 여쭤 본 것입니다.
추가기능을 사용중이시라면 그 추가기능에서 매크로 전체를 실행할 수 있도록 하거나,
아니면 월별미수금.xlsm파일에 리본메뉴를 넣고, 이 파일을 먼저 열어서 작업하도록 하는 것이 좋겠습니다.
각각의 매크로를 사용하기 편하게 리본메뉴에서 거래처별미수현황탭을 만들고 미수현황그룹을 만들고 거래처별채권복사 버튼|보고서만들기버튼|출력물만들기버튼 을 만들어 각각의 버튼을 실행하면서 시트를 편집하고 보고서및 출력물을 만드는 작업입니다~
향후 인쇄물이라든지 여러가지 매크로를 만들어 리본메뉴 버튼을 추가할 예정입니다~