Excel VBA - 현재 파일의 복사본을 저장하는 버튼입니다.

발행물

Excel 스프레드 시트에 자동 레코드 단추를 포함 할 방법을 찾고 있습니다. 이 버튼은 날짜와 시간을 원본 파일 이름에 추가하여 현재 시트의 복사본을 지정된 디렉토리에 자동으로 저장합니다 (예 : "my_file_24102007_0830.xls"

해결책

 Public Sub CommandButton1_Click () Dim nom As String nom = 일 (날짜) & "-"& Month (날짜) & "-"& Year (날짜) & "_"및 ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ "& nom rep = MsgBox ("사용자 데이터베이스가 저장되었습니다 : "& name, vbYes + vbInformation, "스프레드 시트 사본 ") End Sub 

이 팁을 주신 gbinforme에게 감사드립니다.