Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1845|回复: 7

[已解决]出现查询窗体当机,求查询结果写入表"查询结果"中代码

[复制链接]
发表于 2013-5-22 13:50 | 显示全部楼层 |阅读模式
本帖最后由 森林木007 于 2013-5-22 20:17 编辑

请老师看一看附件问题:
出现问题:
1\出现查询窗体当机,
2\求查询结果写入表"查询结果"中代码
查询问题.zip (78.94 KB, 下载次数: 5)
发表于 2013-5-22 14:01 | 显示全部楼层    本楼为最佳答案   
本帖最后由 hwc2ycy 于 2013-5-22 15:12 编辑
  1. Private Sub CommandButton2_Click()

  2.     Dim i As Integer
  3.     Dim j As Integer
  4.     Dim x As Integer
  5.     Dim arr()
  6.     Dim lCount As Long

  7.     On Error GoTo ErrorHandler

  8.     With Me.ListView1
  9.         
  10.         lCount = .ListItems.Count
  11.         If lCount = 0 Then
  12.             MsgBox "列表中无数据可写入工作表"
  13.             Exit Sub
  14.         End If

  15.         ReDim arr(0 To lCount, 1 To .ColumnHeaders.Count)
  16.         For i = 1 To ubound(arr,2)
  17.             arr(0, i) = .ColumnHeaders(i).Text
  18.         Next

  19.         For i = 1 To lCount
  20.             With .ListItems(i)
  21.                 arr(i, 1) = .Text
  22.                 For j = 2 To UBound(arr, 2)
  23.                     arr(i, j) = .SubItems(j - 1)
  24.                 Next j
  25.             End With
  26.         Next i
  27.     End With
  28.     With Worksheets("查询结果")
  29.         Application.ScreenUpdating = False
  30.         .Range("a1").CurrentRegion.ClearContents
  31.         .Range("a1").Resize(lCount + 1, UBound(arr, 2)).Value = arr
  32.         Application.ScreenUpdating = True
  33.     End With
  34.     MsgBox "导出完成"
  35.     Exit Sub
  36. ErrorHandler:
  37.     MsgBox Err.Number & vbCrLf & _
  38.            Err.Description

  39. End Sub
复制代码
回复

使用道具 举报

发表于 2013-5-22 14:01 | 显示全部楼层
查询代码有问题,你帮着测下输出的结果吧。
回复

使用道具 举报

 楼主| 发表于 2013-5-22 14:34 | 显示全部楼层
hwc2ycy 发表于 2013-5-22 14:01
查询代码有问题,你帮着测下输出的结果吧。

多谢!
输出结果,没有数据,老师能不能再指导指导.
回复

使用道具 举报

发表于 2013-5-22 15:01 | 显示全部楼层
本帖最后由 hwc2ycy 于 2013-5-22 15:05 编辑

查询问题.rar (30.59 KB, 下载次数: 6)
回复

使用道具 举报

发表于 2013-5-22 15:02 | 显示全部楼层
查询帮你改了下。刚刚保存到工作表的有点小问题。
回复

使用道具 举报

发表于 2013-5-22 15:09 | 显示全部楼层
继续改。
查询问题.rar (33.9 KB, 下载次数: 18)

评分

参与人数 1 +1 收起 理由
森林木007 + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-5-22 19:55 | 显示全部楼层
hwc2ycy 发表于 2013-5-22 15:09
继续改。

就是这个效果,多谢多谢!!!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 04:44 , Processed in 0.284625 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表