| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 795 人关注过本帖
标题:一个困扰多日的问题
只看楼主 加入收藏
wangjiangtin
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2010-12-9
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
一个困扰多日的问题
请教各位老师我把代码封装到DLL中从操作表中取数据,可以取到,但是运行到最后却出错,麻烦老师们帮忙看看,见附件

[ 本帖最后由 wangjiangtin 于 2011-1-25 14:56 编辑 ]
搜索更多相关主题的帖子: 老师 
2011-01-19 17:14
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
封装到DLL中,一般都不愿测试代码的。因为似乎有人曾经中过招。

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-01-19 17:40
wangjiangtin
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2010-12-9
收藏
得分:0 
源代码都穿上去了,嘿嘿,版主一看就知道是不是那种代码的呀,帮忙看看吧
2011-01-19 17:42
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
工程未能直接运行,晚上有时间再看看吧。
楼主打包上传的工程自已测试能按下F5运行吗?还有你说的出错,出什么错,说明一下才好

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-01-19 18:27
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
在excel里出错?
"最后却出错",什么是最后?

无知
2011-01-19 23:29
wangjiangtin
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2010-12-9
收藏
得分:0 
谢谢两位版主,源代码是DLL的,封装成dll后在Excel中引用,也就是附件中的操作表,打开"操作表"里面有个导入数据按钮,是引用的RiJiXiTong.dll里面的代码,也就是附件中的源代码内容,运行时可以导入数据,但在导入数据后却显现作用于对象失败,错误代码1004,麻烦两位版主在费心看看,非常感谢。
2011-01-20 07:56
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:20 
程序代码:
Private Sub Command1_Click()
On Error Resume Next

Dim SQL As String

 Dim cnn As Object

 Dim ADOX As Object, TableName As String

 Dim I As Integer

 Dim falg As Integer

 Dim xz
Set xlapp = GetObject(, "Excel.Application")


 If daorushuju.List1.ListIndex = -1 Then
    MsgBox "请选中要导出的报表!", vbInformation, "导出系统提示"
    Exit Sub

 End If
   

    With daorushuju.List1

        For I = 0 To .ListCount - 1 '在条目中循环
                If .Selected(I) Then
                    xz = .List(I) '将选中的条目给变量sht
'---------------------导入数据过程代码------------------------------------------------------------------------
                       Set cnn = CreateObject("adodb.connection")
                       cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;imex=1;';data source=" & MyFileName
                        SQL = "select * from [" & xz & "$]"
                       If InStr(xz, "$") > 0 Then SQL = "select * from [" & xz & "]"
                      ' Sheets("wang").Range("a4").CopyFromRecordset cnn.Execute(SQL)
                     
                      With xlapp.ActiveWorkbook.ActiveSheet
                          ' .Cells.Clear '清除全部
                         .Rows("4:65536").Delete  '删除全部行
                         '  .Range("4:65536").ClearContents  '清除全部功能同上
                        
                           .Range("a4").CopyFromRecordset cnn.Execute(SQL) '写入数据
                   
                          ' .UsedRange.Borders.LineStyle = xlContinuous '添加格线
                           X = .UsedRange.Columns.Count  '使用区域的列数
                           xx = .UsedRange.Rows.Count  '使用区域的行数
                          .Range(Cells(4, 1), Cells(xx + 3, X)).Borders.LineStyle = xlContinuous '添加格线==+3是因为从a4写入的数据--Cells(4, 1)=a4
                          .Range(Cells(4, 1), Cells(xx + 3, X)).Font.Size = 10 '第4行以下设置为10号字体
                           
                        End With
                       cnn.Close
                      Set cnn = Nothing
'-------------------------------------------------------------------------------------------------------------
                 End If
              Next
    End With
   
    Set xlapp = Nothing  '清除定义的对象为空 xlapp.ActiveWorkbook.ActiveSheet
 Unload Me
End Sub

DLL重新编译下。然后在EXCEL宏中先删除引用,然后再添加引用此DLL



===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-01-20 12:30
wangjiangtin
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2010-12-9
收藏
得分:0 
嘿嘿谢谢版主,没有关闭对象就把窗体给关闭了,感谢老师
2011-01-20 14:38
快速回复:一个困扰多日的问题
数据加载中...
 
   



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

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