求助：怎样要把VB计算出来的结果导入到excel表里

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:00:55
例如计算出来的结果A=1,B=2,C=3,D=4
导入到excel的A，B，C，D对应的列里去
因为计算嵌套循环所以要反复调用也就是说计算完以后会生成一个数据很多的表有很多行
请问这个程序怎么写呀 先谢谢啦

Give me a mail,I will send the program to you.
你可以先建好这个表，并且在第一行做好表头，以下程序每执行一次，向下增加一行。
你给0分太小气了。

Private Sub cmdWrite_Click()
Dim x As String
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
x = App.Path & "\Bookx.xls"
Open x For Append As #1
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.workbooks.open(x)
For I = 2 To 10000
If ex.Range("A" & I).Value <> "" Then
Else
ex.Range("A" & I).Value = A
ex.Range("B" & I).Value = B
ex.Range("C" & I).Value = C
ex.Range("D" & I).Value = D
Exit For
End If
Next
ex.quit
End Sub

100rmb帮你写