Foxtable(狐表)用户栏目专家坐堂 → [求助]用VBA保存的Excel报表导入错误


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

主题:[求助]用VBA保存的Excel报表导入错误

美女呀,离线,留言给我吧!
cherryjing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1127 威望:0 精华:0 注册:2014/5/20 12:22:00
[求助]用VBA保存的Excel报表导入错误  发帖心情 Post By:2014/10/9 9:04:00 [只看该作者]

由于项目要求的报表的特殊性,很难用FOXTABLE的EXCEL模板的办法来做,于是采用了VBA来做导出报表,为求兼容性,导出为xls格式,而当我导入该文件时,开始也用VBA的方法,可是读取单元格值的时候总是失败,如下:

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(g_strExcelFileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(g_strExcelWookSheetName)
Dim Rg As MSExcel.Range = Ws.Range(strRg) 'strRg = "H1:H2"
Dim strValue as string = CStr(Rg.Value)
无论加不加那个CStr类型转换函数,运行到这句就会出错,没办法,我又使用
    Dim Book As New XLS.Book(g_strExcelFileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(g_strExcelWookSheetName)
方法试图读取该文件,可每当运行到第一句就出错,
图片点击可在新窗口打开查看此主题相关图片如下:1.bmp
图片点击可在新窗口打开查看
可当我把那个文件用EXCEL打开并另存为xlsx后,就可以成功读取内容,请版主指教这个问题该如何解决?我装的是office2010。
本来想把导出的文件默认后缀改成xlsx,但考虑到当最后完成发布后,由于不知道最终使用我的软件的机器是装的OFFICE的哪个版本,所以最终没改。


 回到顶部
总数 19 1 2 下一页