Foxtable(狐表)用户栏目专家坐堂 → [求助]导出EXCEL出错


  共有1902人关注过本帖平板打印复制链接

主题:[求助]导出EXCEL出错

帅哥哟,离线,有人找我吗?
易服
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
[求助]导出EXCEL出错  发帖心情 Post By:2015/7/8 9:25:00 [只看该作者]

导出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


 回到顶部