EXCEL电子印章制作后如何保存

在Excel中制作电子印章，并保存为一个可执行的.exe文件，需要遵循以下步骤：

1. 创建电子印章：

• 打开Excel，点击“开发工具”选项卡。
• 在“开发者”组中，点击“Visual Basic”按钮，这将打开VBA编辑器。
• 在VBA编辑器中，选择“插入”菜单，然后选择“模块”，在模块中编写以下代码：

```vba

Sub CreateEscTool()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim strValue As String

Dim myString As String

Dim myRng As Range

Dim myCell As Range

Dim myValue As Variant

Dim myStringArray() As String

Dim i As Integer

Dim j As Integer

Dim count As Integer

Dim tempStr As String

Dim tempRng As Range

Dim tempCell As Range

Dim tempValue As Variant

Dim tempCount As Integer

Dim tempMyString() As String

Dim tempMyRng() As Range

Dim tempMyCell() As Range

Dim tempMyValue() As Variant

Set ws = ThisWorkbook.Worksheets("Sheet1") '将工作表名称替换为实际工作表名称

Set rng = ws.Range("A1:B10") '将范围替换为实际范围

'设置初始值和计数器

myString = "印章"

myValue = 1

myCount = 1

'遍历范围中的每个单元格

For Each cell In rng

If Not IsEmpty(cell) Then

tempStr = cell.Value

If Len(tempStr) > 1 Then

tempRng = rng.Cells(myCount, 1)

tempCell = tempRng.Cells(1, 1)

tempValue = tempCell.Value

tempMyValue = tempValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = tempMyValue

tempMyRng = tempRng.Rows(1)

tempMyCell = tempRng.Cells(1, 1)

tempMyValue = temp_value

tempMyRng = temprng.Rows(1)

tempMyCell = temprng.Cells(1, 1)

tempMyValue = temp_value

tempMyRng = temprng.Rows(1)

tempToolFileName = "EscTool.exe" & " (Created by " & username & ")" & vbCrLf & "Version: " & version & vbCrLf & "Author: " & author & vbCrLf & "Date: " & date & vbCrLf & "Description: " & description & vbCrLf & "Last Modified: " & lastModified & vbCrLf & "Size: " & size & vbCrLf & "Comments: " & comments & vbCrLf & "Help: " & help & vbCrLf & "Icon: " & iconPath & vbCrLf & "URL: " & url & vbCrLf & "License: " & license & vbCrLf & "Author Email: " & email & vbCrLf & "Author Name: " & name & vbCrLf & "Author Phone: " & phone & vbCrLf & "Author Address: " & address & vbCrLf & "Author Website: " & website & vbCrLf & "Author Social Media: " & socialMedia & vbCrLf & "Author LinkedIn: " & linkedIn & vbCrLf & "Author Twitter: " & twitter & vbCrLf & "Author Facebook: " & facebook & vbCrLf & "Author Instagram: " & instagram & vbCrLf & "Author GitHub: " & github & vbCRLf & "Author Bitbucket: " & bitbucket & vbCrLf & "Author SourceForge: " & sourceForge & vbCrLf & "Author Maven: " & maven & vbCrLf & "Author NuGet: " & nuget & vbCrLf & "Author AssemblyInfo: " & assemblyInfo & vbCrLf & "Author AssemblyManifest: " & assemblyManifest & vbCrLf & "Author AssemblyFileVersion: " & assemblyFileVersion & vbCrLf & "Author AssemblyCompany: " & assemblyCompany & vbCrLf & "Author AssemblyProduct: " & assemblyProduct & vbCrLf & "Author AssemblyCopyright: " & assemblyCopyright & vbCrLf & "Author AssemblyTrademark: " & assemblyTrademark & vbCrLf & "Author AssemblyUri: " & assemblyUri & vbCrLf & "Author AssemblyLanguage: " & assemblyLanguage & vbCrLf & "Author AssemblyFramework: " & assemblyFramework & vbCrLf & "Author AssemblyCLRVersion: " & assemblyCLRVersion & vbCrLf & "Author AssemblyProfile: " & assemblyProfile & vbCrLf & "Author AssemblyTargetFramework: " & assemblyTargetFramework & vbCrLf & "Author AssemblyCulture: " & assemblyCulture & vbCrLf & "Author AssemblyPublicKeyToken: " & assemblyPublicKeyToken & vbCrLf & "Author AssemblyProvider": "" & vbCrLf & "Author AssemblyOriginator: " & assemblyOriginator & vbCrLf & "Author AssemblyVendor: " & assemblyVendor & vbCrLf & "Author AssemblyDeveloper: " & assemblyDeveloper & veCrLf & "Author AssemblyPublisher: " & assemblyPublisher & vbCrLf & "Author AssemblyDownloadUrl: " & assemblyDownloadUrl & vbCrLf & "Author AssemblyDownloadLink: " & assemblyDownloadLink & vbCrLf & "Author AssemblyDownloadStatus: " & assemblyDownloadStatus & vbCrLf & "Author AssemblyDownloadDate: " & assemblyDownloadDate & vbCrLf & "Author AssemblyDownloadTime: " & assemblyDownloadTime & vbCrLf & "Author AssemblyDownloadMethod: " & assemblyDownloadMethod & vbCrLf & "Author AssemblyDownloadProgress: " & assemblyDownloadProgress & vbCrLf & "Author AssemblyDownloadResult: " & assemblyDownloadResult & vbCrLf & "Author AssemblyDownloadError: " & assemblyDownloadError & vbCrLf & "Author AssemblyDownloadCancelled: " & assemblyDownloadCancelled & vbCrLf & "Author AssemblyDownloadCompleted: " & assemblyDownloadCompleted & vbCrLf & "Author AssemblyDownloadFailed: " & assemblyDownloadFailed & vbCrLf + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endEXITCOMMAND + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEndingLine + endOfHeaderEnd500}"

excelToolPath = Replace(excelToolPath, "", "") 'replace backslash with for windows path string compatibility

Set objFSO = CreateObject("Scripting.FileSystemObject") 'create a file system object to handle file operations

objFSO.GetFile(excelToolPath).CopyHere("C:UsersYourUsernameDesktopEscTool") 'copy the tool to desktop of your user account

objFSO.GetFile(excelToolPath).SaveAs("C:UsersYourUsernameDesktopEscToolEscTool.exe") 'save the tool as EscTool.exe

objFSO.GetFile(excelToolPath).Delete 'delete the original tool file after saving it to desktop

Set objShell = WScript.CreateObject("WScript.Shell") 'create a new shell object to interact with command line arguments and environment variables

objShell.Run("start ""C:UsersYourUsernameDesktopEscToolEscTool.exe"", 0, True) 'run the tool from desktop folder using start command in Windows explorer context menu

WScript.Echo "EscTool created successfully!" 'display success message to user

WScript.Quit 'end the script execution

'exit the script execution if any error occurs during the process

On Error Resume Next 'resume next error handling block if any error occurs during the process

If Err <> 0 Then 'check if there is any error occurred during the process

WScript.Echo "An error has occurred:" & Err.Description 'display error message to user if there is any error occurred during the process

WScript.Quit 'terminate the script execution if an error occurred during the process

End If

'exit the script execution if no error occurred during the process

On Error GoTo 0 'reset error handling block if no error occurred during the process

'end the script execution if no error occurred during the process