Excel保存在C：\\ MyDocuments默认

我将数据导出到excel并尝试保存到我的应用程序中的一个文件夹中…但是excel默认保存在C：\ Documents中，但我想保存在E：\ Apllication \ Reports

这是我的代码来生成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)