关于数据导入问题
我想把数据导入到EXCEL表格里，语法都没有错误，只是显示不出来数据，提示“没有数据”。帮忙看看代码有没有错误，很急！！！！
Dim exlapp As New Excel.application
Dim exlbook As Excel.Workbook
Dim exlsheet As Excel.Worksheet
Dim rs As New ADODB.Recordset '定义字段
Dim gconn As New ADODB.Connection
Dim strconn As String
Private Sub Command1_Click()
Dim strsql As String
Dim rows As Integer
Set exlapp = CreateObject("Excel.Application") '创建EXCEL应用类
exlapp.Visible = True '设置EXCEL可见
Set exlbook = exlapp.Workbooks.Open("D:\1.xls") '打开EXCEL工作簿
Set exlsheet = exlbook.Worksheets(1) '打开EXCEL工作表
exlsheet.Activate '激活工作表
strsql = "select * from zx210100"
rs.Open strsql, gconn, adOpenDynamic, adLockOptimistic
rows = 4
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
exlsheet.Cells(row, 2) = rs("jgdm")
exlsheet.Cells(row, 3) = rs("jgmc")
rows = rows + 1
rs.movenext
Loop
Else
MsgBox "没有数据!"
End If
End Sub
Private Sub Form_unLoad(cancel As Integer)
rs.Close
exlapp.quit
End Sub
Private Sub Form_Load()
strconn = "Provider=SQLOLEDB.1;Persist Security Info=false;User ID=sa;password=ks53f44z;Initial Catalog=sysi_data;Data Source=DATA"
gconn.Open strconn, "sa", "ks53f44z"
End Sub
问题点数：50、回复次数：6Top
1 楼tztz520（午夜逛街）回复于 2004-12-02 10:49:24 得分 30
'先定义本地游标吧.
rs.CursorLocation = adUseClient
rs.Open strsql, gconn, adOpenDynamic, adLockOptimistic
Top
2 楼pweixing（幸运星）回复于 2004-12-02 10:57:03 得分 0
如果没有定义本地游标的话，rs.RecordCount 为0，当然就不可能执行后面的导入语句了。
If rs.RecordCount > 0 Then
…………
…………
Top
3 楼thisme2401（做人要厚道）回复于 2004-12-02 11:00:30 得分 0
sql server要定义本地游标，
Access不用定义。Top
4 楼sunjie521（sunny）回复于 2004-12-02 11:03:47 得分 0
但是加上本地游标后，运行显示“打开对象时，操作不被允许”，这是怎么回事？Top
5 楼lxjlz（）回复于 2004-12-02 11:52:29 得分 20
Set exlbook = exlapp.Workbooks.Open("D:\1.xls") '打开EXCEL工作簿
Set exlsheet = exlbook.Worksheets(1) '打开EXCEL工作表
exlsheet.Activate '激活工作表
換成
Set exlbook = exlapp.Workbooks.add
Set exlsheet = exlbook.activesheets
試試Top
6 楼thisme2401（做人要厚道）回复于 2004-12-02 12:09:36 得分 0
打开前先关闭记录集
if rs.state=adstateopen then rs.closeTop
