2017-08-07 99 views
0

我想在SQL導入腳本後關閉excel,但我無法使用Interopservices方法釋放Com對象。無法使用Interopservices關閉excel

當我試圖釋放com對象與 [System.Runtime.Interopservices.Marshal]::ReleaseComObject(New-Object -Com Excel.Application) 我收到一個錯誤,我缺少一個括號。 我已經在其他人的代碼中查看了這個過程的一些例子,雖然我一定錯過了一些東西,但是這是我一直想念的東西,並且希望在定位時找到一些幫助。

下面是我的腳本。

$serverName = "SERVER"; 
$databaseName = "User_Data" ; 
$tableName = "TABLE" ; 
$filepath = "Path to Xls"; 

#create object to open Excel workbook 
$Excel = New-Object -ComObject Excel.Application 
$Workbook = $Excel.Workbooks.Open($filepath) 
$Worksheet = $Workbook.Worksheets.Item(1) 
$startRow = 2 

#create System.DataTable 
    $dt = new-object "System.Data.DataTable"         
    [void]$dt.Columns.Add("StaffStudentID", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("SurName", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("FirstName", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("Year", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("HomeGroup", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("DOB", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("StaffStudent", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("email", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("ImageName", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("CardKey", [System.Type]::GetType("System.String")) 
    [void]$dt.Columns.Add("F11", [System.Type]::GetType("System.String")) 
    Do {      
     $ColValues1 = $Worksheet.Cells.Item($startRow, 2).Value() 
     $ColValues2 = $Worksheet.Cells.Item($startRow, 3).Value() 
     $ColValues3 = $Worksheet.Cells.Item($startRow, 4).Value() 
     $ColValues4 = $Worksheet.Cells.Item($startRow, 5).Value() 
     $ColValues5 = $Worksheet.Cells.Item($startRow, 6).Value() 
     $ColValues6 = $Worksheet.Cells.Item($startRow, 7).Value() 
     $ColValues7 = $Worksheet.Cells.Item($startRow, 8).Value() 
     $ColValues8 = $Worksheet.Cells.Item($startRow, 9).Value() 
     $ColValues9 = $Worksheet.Cells.Item($startRow, 10).Value() 
     $ColValues10 = $Worksheet.Cells.Item($startRow, 11).Value() 
     $ColValues11 = $Worksheet.Cells.Item($startRow, 12).Value() 
     $startRow++ 
     $dt.Rows.Add($ColValues1,$ColValues2,$ColValues3,$ColValues4,$ColValues5,$ColValues6,$ColValues7,$ColValues8,$ColValues9,$ColValues10,$ColValues11) 
     } 
    While ($Worksheet.Cells.Item($startRow,2).Value() -ne $null) 

$Excel.Quit() 

#connect to SQL Server and import the system.data.table 
$SQLServerConnection = "Data Source=$serverName;Integrated Security=true;Initial Catalog=$databaseName;" 
$bulkCopy = new-object ("Data.SqlClient.SqlBulkCopy") $SQLServerConnection 
$bulkCopy.DestinationTableName = $tableName 
$bulkCopy.WriteToServer($dt) 


#Remove Veriables and com object 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) 
Remove-Variable serverName 
Remove-Variable databaseName 
Remove-Variable tableName 
Remove-Variable filepath 
Remove-Variable excel 
Remove-Variable workbook 
Remove-Variable worksheet 
Remove-Variable startRow 
Remove-Variable dt 
Remove-Variable bulkCopy 
Remove-Variable sqlserverconnection 

謝謝

Wofen

回答

0

你需要保存更改退出()之前? 這種模式適合我。

Powershell: Excel, save and close after run

+0

這是否真正關閉Excel進程,如果它是通過計劃任務跑了? 當我像那樣運行它時,我最終會運行一個excel進程。 –

+0

但是,不,我不需要在數據導入到SQL時保存數據。 –