ExcelがC：\\ MyDocumentsに保存されています。

Question

Excelにデータをエクスポートしていて、アプリケーションにあるフォルダに保存しようとしていますが、ExcelはデフォルトでC：\ Documentsに保存していますが、 Eに：\ Apllication \は私のコードは、Excelシートに

If ComDset.Tables(0).Rows.Count > 0 Then 

     Try 
      With Excel 
       .SheetsInNewWorkbook = 1 
       .Workbooks.Add() 
       .Worksheets(1).Select() 

       Dim i As Integer = 1 
       For col = 0 To ComDset.Tables(0).Columns.Count - 1 
        .cells(1, i).value = ComDset.Tables(0).Columns(col).ColumnName 
        .cells(1, i).EntireRow.Font.Bold = True 
        i += 1 
       Next 
       i = 2 
       Dim k As Integer = 1 
       For col = 0 To ComDset.Tables(0).Columns.Count - 1 
        i = 2 
        For row = 0 To ComDset.Tables(0).Rows.Count - 1 
         .Cells(i, k).Value = ComDset.Tables(0).Rows(row).ItemArray(col) 
         i += 1 
        Next 
        k += 1 
       Next 
       filename = "ShiftReport" & Format(MdbDate, "dd-MM-yyyy") & ".xls" 
       .ActiveCell.Worksheet.SaveAs(filename) 
      End With 
      System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel) 
      Excel = Nothing 
     Catch ex As Exception 
      MsgBox(ex.Message) 
     End Try 

     ' The excel is created and opened for insert value. We most close this excel using this system 
     Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName("EXCEL") 
     For Each i As Process In pro 
      i.Kill() 
     Next 
    End If 

を生成し、事前

で

おかげ

Answer 1

が持つヘッダに色を割り当てる方法を私に教えている。ここ

レポートあなたはこれを試した？

.ActiveCell.Worksheet.SaveAs("E:\Apllication\Reports\" & filename)