vb6 提取到 MS Excel 2013答案

【问题标题】：vb6 Extracts to MS Excel 2013vb6 提取到 MS Excel 2013
【发布时间】：2016-09-28 16:40:29
【问题描述】：

所以我的公司正在从 2007 年过渡到 2013 年 - 我们有一些在 VB6 应用程序中编写的报告，这些应用程序从数据库中提取数据并将其写入 Excel。似乎进行了一些更改，这是一个非常困难的过程...

这就是我为我的一些提取创建声明的方式...这段代码在我的 VB6 应用程序中！

dim xlsheet1 as Excel.Worksheet ' i have OPTION EXPLICIT and do this at the top

在我实际编写此报告的功能中，我这样做......

Set xlApp = New Excel.Application
set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.Worksheets.Add

这在 Office 2007 中有效 - 但现在它似乎挂断了 Set xlBook = xlApp.Workbooks.Add

有什么想法吗？

【问题讨论】：

在您的 VB6 项目中，您是否设置了任何引用？
你是不是偶然从 32bit 2007 迁移到 64bit 2013？
support.microsoft.com/en-us/kb/219151
我指的是 Office 安装位。
(a) 当您说“它似乎挂起”时，您实际上是指它挂起（即应用程序变得完全无响应）还是产生某种错误消息？ (b) 如果在运行代码之前打开现有的 Excel 实例，是否会出现与启动代码时 Excel 尚未运行时相同的症状？

【解决方案1】：

当我们从 Windows XP 迁移到 Windows 7 时，我遇到了同样的问题。应用程序无法创建 excel 文件。我将声明从“ExcelSheet”更改为 Object

Dim xlApp as Object
Dim xlBook as Object

然后在使用它的时候我将它设置为excel对象

Set xlApp = New Excel.Application
Set xlBook = New Excel.Workbooks.Add

希望这对你有用！！！

【讨论】：