Excel enregistre dans C: \\ MyDocuments Defaultly

Question

J'exporte des données pour exceler et essaye d'enregistrer dans un dossier qui est dans mon application ... mais l'excel sauve par défaut dans C: \ Documents mais je voulais sauver E: \ Apllication \ Rapports

Voici mon code pour générer la feuille 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 

et me dire comment attribuer la couleur à l'en-tête

Merci à l'avance

Answer 1

Avez tu as essayé ça?

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