| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 493 人关注过本帖
标题:請教
只看楼主 加入收藏
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
结帖率:70%
收藏
 问题点数:0 回复次数:2 
請教
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
      
        MsgBox "條件不可為空"         
       Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Exit Sub
    End If
     Frame1.Enabled = False
   
    Set objrs1 = Nothing
   
     strquery = "select  aa,bb,cc from t_abc where cc BETWEEN '" & Text1.Text & "' AND '" & Text2.Text & "'"

    objrs1.Open strquery, objcn, adOpenKeyset, adLockOptimistic
            
    Dim rstCount As Long                    '記錄行數
    Dim rstField As Long                    '記錄列數

    rstCount = objrs1.RecordCount
    rstField = objrs1.Fields.Count
   
    If rstCount <= 0 Then
        Frame1.Enabled = True
        MsgBox "nothing,check,please...!"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1)
        Exit Sub
    End If

    Dim mExApp       As Excel.Application '應用
    Dim mExBook      As Excel.Workbook    '工作薄
    Dim mExSheet     As Excel.Worksheet   '工作表

    Set mExApp = CreateObject("Excel.Application")
    Set mExBook = mExApp.Workbooks.Open(App.Path & "\abc.xls")
    Set mExSheet = mExBook.Worksheets(1)

    Dim lLine   As Long
    Dim Column  As Long
    Dim sCellValue As String

    lLine = 1

    '寫列頭
    For Column = 0 To rstField
        Select Case Column
            Case 0
                sCellValue = "aa"
            Case 1
                sCellValue = "bb"
            Case 2
                sCellValue = "cc"
        End Select
        mExSheet.Cells(lLine, Column + 1) = sCellValue
    Next Column

    '開始內容
    For lLine = 2 To rstCount + 1
        For Column = 0 To rstField
            sCellValue = objrs1.Fields(Column + 4)
            mExSheet.Cells(lLine, Column + 1) = sCellValue
        Next Column
        objrs1.MoveNext         '下一行數據
    Next lLine
   '自動調整列
   For Column = 1 To rstField
      mExSheet.Columns(Column).AutoFit
   Next
    '輸出該表
    objrs1.Requery
    mExBook.SaveAs (Trim(objrs1.Fields(1)) & "-" & Trim(objrs1.Fields(3)) & ".xls")  '保存
    mExBook.Close (True)        '按內容變化關閉
    MsgBox "轉換成功!"
    Frame1.Enabled = True
    Text1 = "": Text2 = ""
    Text1.SetFocus

想知道我那里出了錯幫忙調試一下

[[it] 本帖最后由 jxyga111 于 2008-6-7 09:30 编辑 [/it]]
搜索更多相关主题的帖子: EXCEL 
2008-06-07 08:24
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
调试信息显示哪个地方出错?

2008-06-07 09:02
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
[bo][un]hxfly[/un] 在 2008-6-7 09:02 的发言:[/bo]

调试信息显示哪个地方出错?


[If rstCount <= 0 Then
        Frame1.Enabled = True
        MsgBox "nothing,check,please...!"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1)
        Exit Sub
    End If
]
這里它的個數為-1但是有資料啊
2008-06-07 09:14
快速回复:請教
数据加载中...
 
   



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

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