导出EXCEL出错：

此主题相关图片如下：出错.jpg

If FileSys.DirectoryExists(ProjectPath & "Reports\\表8.xls") Then \' 目录存在
Else
    FileSys.CreateDirectory(ProjectPath & "Reports\\表8.xls") \'创建 目录
End If
Dim flg As New SaveExcelFlags
flg.MergedRanges = True
Tables("近成过").SaveExcel(ProjectPath & "Reports\\表8.xls","近成过 ",flg)
Dim Result As DialogResult
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\\表8.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Rg.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous  \'边框线型
Rg.Borders.Weight = MSExcel.XlBorderWeight.xlThin        \'边框粗细
Rg.Borders.ColorIndex = 1 \'边框颜色
Dim M As MSExcel.Range = Ws.Cells
M.EntireColumn.AutoFit   \'自动调整列宽
M.EntireRow.AutoFit      \'自动调整行高
App.Visible = True
Wb.Save
App.Quit

进程中没有excel.exe

此主题相关图片如下：进程.jpg

改成绝对路径就可以了

If FileSys.DirectoryExists("D:\\My Documents\\Reports") Then \' 目录存在
Else
    FileSys.CreateDirectory("D:\\My Documents\\Reports") \'创建 目录
End If
Dim flg As New SaveExcelFlags
flg.MergedRanges = True
Tables("近成过").SaveExcel("D:\\My Documents\\Reports\\表8.xls","近成过 ",flg)
Dim Result As DialogResult
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\My Documents\\Reports\\表8.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Rg.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous  \'边框线型
Rg.Borders.Weight = MSExcel.XlBorderWeight.xlThin        \'边框粗细
Rg.Borders.ColorIndex = 1 \'边框颜色
Dim M As MSExcel.Range = Ws.Cells
M.EntireColumn.AutoFit   \'自动调整列宽
M.EntireRow.AutoFit      \'自动调整行高
App.Visible = True
Wb.Save
App.Quit

 呃，你的ProjectPath的值根本就不是D:\\My Documents 吧？

 msgbox弹出看一下。