[已解决]请教列写入代码

fdxxhjc

在book1.xls的"A"列中用VB代码自动写入1、2、3...、n的连续数，代码如下，但不成功，请给予指点，谢谢！

Dim a() As Long, n As Long
Private Sub Form_Click()
js = 0
n = Val(InputBox("请输入筛选的起点正整数:", "质数筛选试验"))
For i = 1 To n
    js = js + 1
  '想写入book1.xls
    Dim ZZ1cn1 As New ADODB.Connection
    Dim ZZ1rs1 As New ADODB.Recordset
    ZZ1cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\book1.xls"
    ZZ1rs1.Open "book1", ZZ1cn1, 1, 3
    ZZ1rs1.AddNew
         ZZ1rs1("a") = js
    ZZ1rs1.Update
    ZZ1rs1.Close
    ZZ1cn1.Close
    Set ZZ1rs1 = Nothing
    Set ZZ1cn1 = Nothing
Next i
Print "             本次运行已结束!!"
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-2 10:03

1. Private Sub Form_Click()
   
2.     Dim arr, i&
   
3.     n = Val(InputBox("请输入筛选的起点正整数:", "质数筛选试验"))
   
4.     ReDim arr(1 To n, 1 To 1)
   
5. 
   
6.     For i = 1 To n
   
7.         arr(i, 1) = i
   
8.     Next i
   
9.     Range("a1").Resize(n) = arr
   
10.     MsgBox "填充完毕"
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

直接写表，休须用到ADO呢。

hwc2ycy

1. Private Sub Form_Click()
   
2.     Dim arr, i&
   
3.     n = Val(InputBox("请输入筛选的起点正整数:", "质数筛选试验"))
   
4.     ReDim arr(1 To n, 1 To 1)
   
5. 
   
6.     For i = 1 To n
   
7.         arr(i, 1) = i
   
8.     Next i
   
9.     Range("a1").Resize(n) = arr
   
10.     MsgBox "填充完毕"
    
11. End Sub

复制代码

fdxxhjc

谢谢先生精心指点

xoxov

平时就喜欢看看体育