xlsをcsvに変換するか、EXCEL.exeプロセスを終了させます

Question

DTSパッケージにもとづいたレポートシステムを自動化するアプリケーションがあります。 Webベースのアプリケーションは現在、出力xlsファイルをネットワーク上の別のサーバーに書き込みます。私は、Webサイトが閉じられた後でさえ、書かれているサーバー上で実行されているExcelのインスタンスが残っていることを発見しています。私は、xlsファイルではなくcsvファイルを出力するための私のルーチンを変更することも、ネットワーク接続されたマシン間でEXCEL.exeプロセスを強制終了することもできます。助けてください！

編集：ここでは、私はその絵が、それは基本的に行が分離している示していますが、列はありません小さすぎる場合、CSV

として保存するファイルの拡張子を変更した場合、ファイルは次のようになります。カンマが列を分離することであるべきところに疑問符を持つ代わりに、小さなボックスがあり

ここ

あるなどの近くに、あなたは一例でExcelを使用していない

Public Sub DisplayandConvertToXLS() 
    Dim i As Integer 
    Dim ds As New DataSet 
    Dim da As SqlDataAdapter 
    Dim objFileStream As FileStream 
    Dim objStreamWriter As StreamWriter 
    Dim fs As Object, myFile As Object 
    Dim cnn As SqlConnection = New SqlConnection("DataSource=dpsdb;InitialCatalog=productionservicereminder;User Id=id;Password=pass;") 
    Dim strLine, filePath, fileExcel As String 

    'Create a file name. 

    fileExcel = FileNameTxt.Text & ".xls" 



    'Set a virtual folder to save the file. 
    'Make sure that you change the application name to match your folder. 

    filePath = "\\10.1.2.4\SRS Shortcuts\Export\SQL Output\CSV Reports\" 


    fileName = filePath & FolderNameTXT.Text & "/" & fileExcel 

    'Use FileStream to create the .xls file. 
    objFileStream = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write) 
    objStreamWriter = New StreamWriter(objFileStream) 

    'Use a DataReader to connect to the database. 
    cnn.Open() 
    Dim sql3 As String = DisplayQTXT.Text 

    Dim cmd As SqlCommand = New SqlCommand(sql3, cnn) 
    cmd.Parameters.Add(New SqlParameter("@ProgramGroupID", PgidTXT.Text)) 
    Dim drr As SqlDataReader 

    drr = cmd.ExecuteReader() 

    'Enumerate the field names and records that are used to build the file. 
    For i = 0 To drr.FieldCount - 1 
     strLine = strLine & drr.GetName(i).ToString & Chr(9) 
    Next 

    'Write the field name information to file. 
    objStreamWriter.WriteLine(strLine) 

    'Reinitialize the string for data. 
    strLine = "" 

    'Enumerate the database that is used to populate the file. 
    While drr.Read() 
     For i = 0 To drr.FieldCount - 1 
      strLine = strLine & drr.GetValue(i) & Chr(9) 
     Next 
     objStreamWriter.WriteLine(strLine) 
     strLine = "" 
    End While 

    'Clean up. 
    drr.Close() 
    cnn.Close() 
    ds.Clear() 

    objStreamWriter.Close() 
    objFileStream.Close() 
    objStreamWriter.Dispose() 
    objFileStream.Dispose() 

End Sub 

Answer 1

.xlsファイルを書くための私の現在のルーチンあなたが.csvファイルを出力しています。拡張子が.xlsの.csvファイルを保存するだけです。実際にExcelを起動している場合は、このコードでは実行していません。

Answer 2

ここであなたのコードにはExcelとは何も関係ありません。タブ区切りのファイルを書き出すだけで、拡張子が.xlsになります。

「Chr（9）」を「、」に変更することで、これをかなり簡単にCSVにすることができます（ただし、入力データからコンマを取り除くか、入力データの引用符をエスケープすることを引用している場合は...これは "かなり簡単に"未満です:)）。