| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 612 人关注过本帖
标题:vb6写入excel报错
只看楼主 加入收藏
zfy568
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-12-30
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
vb6写入excel报错
vb6写入excel以前是正常的,现在换服务器了,报实时错误48,加载DLL错误
Dim xls As New Excel.Application
    Dim oBook As New Excel.Workbook
    Dim oSheet As New Excel.Worksheet
    Dim fs As New Scripting.FileSystemObject
    Dim i, j As Integer
    Dim aTemp1() As String
    Dim aTemp2() As String
    Dim aTemp3() As String
    Dim strSql As String
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim aFieldName() As String
    '创建文件
    If IsNull(strPath) Or strPath = "" Then
        funWriteExcelData = False
        Exit Function
    End If
    aFieldName() = Split(strFieldName, ",")
    aTemp1() = Split(strData, "$")
    aTemp3() = Split(aTemp1(0), "#")
    ReDim aTemp2(UBound(aTemp1), UBound(aTemp3)) As String
    For i = 0 To UBound(aTemp1) - 1
        aTemp3() = Split(aTemp1(i), "#")
        For j = 0 To UBound(aTemp3)
            aTemp2(i, j) = aTemp3(j)
        Next
    Next
    If CheckFile(strPath) = False Then
        xls.Workbooks.Add
        xls.DisplayAlerts = False
        xls.Workbooks(1).SaveAs strPath
        xls.Workbooks(1).Close
    End If

调试后发现在xls.Workbooks.Add处报错,装了不同版本的office,还是报相同的错误
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: String xls excel Dim New 
2020-10-06 20:33
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:120
帖 子:1015
专家分:5469
注 册:2016-5-10
收藏
得分:10 
回复 楼主 zfy568
“vb6写入excel以前是正常的,现在换服务器了,报实时错误48,加载DLL错误”
换了服务器,路径肯定不对了,因此才会出现 48 的错误,也就是路径错误,检查Excel安装路径与原来服务器安装路径。

请不要选我做版主,不要选我做版主,不要选我做版主,不要选我做版主!!!
2020-10-07 19:16
foreach
Rank: 2
等 级:论坛游民
帖 子:16
专家分:47
注 册:2020-4-15
收藏
得分:10 
Excel版本问题会影响,特别是高版本的引用,到了低版本就会不兼容,而且X64和X86也不兼容
2020-10-11 00:21
yuma
Rank: 10Rank: 10Rank: 10
来 自:银河系
等 级:青峰侠
威 望:3
帖 子:1271
专家分:1850
注 册:2009-12-22
收藏
得分:0 
可以用VBS脚本,VBS脚本可以直接用在VB6中,因为代码是通用的
楼主还在吗?我有代码,你要VB6如何操作excel,我发代码。

心生万象,万象皆程序!   敲敲代码更健康!   
2020-10-18 19:23
快速回复:vb6写入excel报错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.070490 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved