Excel이 C : \\ MyDocuments에 저장됩니다. 기본적으로

Question

Excel로 데이터를 내보내고 내 응용 프로그램에있는 폴더에 저장하려고합니다 ... Excel이 기본적으로 C : \ Documents에 저장되지만 저장하려고합니다. E에서 : \ Apllication \ 여기

엑셀 시트를

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)