Foxtable(狐表)用户栏目专家坐堂 → 如何导出excel


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

主题:如何导出excel

帅哥哟,离线,有人找我吗?
冰淇淋小子
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:182 积分:1306 威望:0 精华:0 注册:2012/3/27 11:54:00
如何导出excel  发帖心情 Post By:2016/3/12 18:12:00 [只看该作者]

 Dim dlg As New SaveFileDialog
Dim flg As New SaveExcelFlags
dlg.Filter= "excel文件|*.xls"
flg.RowNumber = True
flg.CellStyle = True
If dlg.ShowDialog = DialogResult.Ok Then
 Tables("123").SaveExcel(Date.Today & dlg.FileName,"123设备一览表",flg)
End If

我想按照当前日期如:20160312南京徳亨文生物科技有限公司设备一览表导出,怎么设置到导出不成功

 回到顶部