PowerShell从数据库导出CSV并转换为Excel文件后邮件发送

poctopus 2022-01-04 PM 1974℃ 0条

之前的脚本在没有安装Office的环境中，会出现组件注册错误，具体错误如下：
```csharp
New-Object : 检索 COM 类工厂中 CLSID 为 {00000000-0000-0000-0000-000000000000} 的组件失败，原因是出现以下错误: 80040154 没有注册类 (异常来自 HRESULT:0x80040154 (REGDB_E_CLASSNOTREG))。
```
查询了很多资料后，决定在PowerShell 5.0以上版本安装一个ImportExcel的模块来解决这个问题，正好也将之前Sendmail的问题一起解决。

```csharp
Install-Module ImportExcel
```

```csharp
$Directory="D:\TEMP\"
$csvfilename="CSV文件名-_$((Get-Date).ToString("yyyyMMdd_HHmmss")).csv"
$xlsxfilename="Xlsx文件名-_$((Get-Date).ToString("yyyyMMdd_HHmmss")).xlsx"
$Sendfile="$Directory$xlsxfilename"
$Database = '数据库名称'
$Server = 'SQLSERVER服务器ip'
$UserName = 'SQLSERVER用户名'
$Password = 'SQLSERVER密码'

#数据库查询脚本
$SqlQuery = "SQL脚本"
function Export_Csv {
# Accessing Data Base
$SqlConnection = New-Object -TypeName System.Data.SqlClient.SqlConnection
$SqlConnection.ConnectionString = "Data Source=$Server;Initial Catalog=$Database;user id=$UserName;pwd=$Password"
$SqlCmd = New-Object System.Data.SqlClient.SqlCommand
$SqlCmd.CommandText = $SqlQuery
$SqlCmd.Connection = $SqlConnection
$SqlAdapter = New-Object System.Data.SqlClient.SqlDataAdapter
$SqlAdapter.SelectCommand = $SqlCmd
$set = New-Object data.dataset
# Filling Dataset
$SqlAdapter.Fill($set)
# Consuming Data
$Table = $Set.Tables[0] 
$Table | Export-CSV -encoding utf8 -NoTypeInformation $Directory$csvfileName
#$Table
}

function Csv_To_Excel{
Import-Csv $Directory$csvfileName  | Export-Excel $Directory$xlsxfilename -Autosize -NoNumberConversion *
}

function SendMail {
#Compress-Archive -Path $Sendfile $Sendfile1
#发邮件
$userName = "发送邮箱用户名"
$password = ConvertTo-SecureString –String "发送邮箱密码" –AsPlainText -Force
$credentials = New-Object System.Management.Automation.PsCredential($userName, $password)
# SMTP Variables 
$emailFrom = "发送人名称<发送邮箱地址>"
$emailTo = "收件人地址，多人用英文,做间隔"
$Subject ="邮件主题"
$body = "邮件内容" 
$message = new-object System.Net.Mail.MailMessage
$message.From = $emailFrom
$message.To.Add($emailTo)
$message.IsBodyHtml = $True
$message.Subject = $Subject
$attach = new-object Net.Mail.Attachment($Sendfile)
$message.Attachments.Add($attach)
$message.body = $body
$SMTPServer = "smtp.126.com"
$SMTPClient = New-Object Net.Mail.SmtpClient($SMTPServer, 25)
$SMTPClient.EnableSsl = $true
$SMTPClient.Credentials = $credentials
$SMTPClient.Send($message)
}

Export_Csv
Csv_To_Excel
Start-Sleep -Seconds 5
SendMail
echo "remove-item -Force $csvfilename"
echo "remove-item -Force $csvfilename"
remove-item -Force "D:\TEMP\*.*"
remove-item -Force "$Directory$xlsxfilename" #删除两个临时文件
```

标签: OFFICE, SQL, PowerShell, sqlserver, csv转excel, CSV to Excel, CSV, SENDMAIL, SMTP, SQLSERVER TO CSV

非特殊说明，本博所有文章均为博主原创。

如若转载，请注明出处：https://aladown.com/archives/PowerShell%E4%BB%8E%E6%95%B0%E6%8D%AE%E5%BA%93%E5%AF%BC%E5%87%BACSV%E5%B9%B6%E8%BD%AC%E6%8D%A2%E4%B8%BAExcel%E6%96%87%E4%BB%B6%E5%90%8E%E9%82%AE%E4%BB%B6%E5%8F%91%E9%80%81.html

上一篇 MySQL按时间统计数据的方法总结

下一篇 CentOS 6下载遇到SSL证书问题解决方法

评论已关闭

一	二	三	四	五	六	日
◄ ►
				1 1	2	3
4	5	6 1	7	8 1	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

PowerShell从数据库导出CSV并转换为Excel文件后邮件发送

评论已关闭

日历

栏目分类

标签云

PowerShell从数据库导出CSV并转换为Excel文件后邮件发送

评论已关闭

日历

 栏目分类

标签云

日历

栏目分类

标签云