作者raypeter96 (小宝)
看板Visual_Basic
标题[.NET] 写入Excel
时间Thu Jan 17 21:44:47 2013
请输入专案类型(网站专案或者应用程式专案):vb.net
我利用Timer写入Excel,每一秒产生一个乱数,五秒时间到立即停止,
但是我的程式一直开新档,也一直存档,可是最後却只存到最後一秒的乱数
不知道有哪位大大可以帮我修改程式
Imports Microsoft.Office.interop.excel
Public Class Form1
Dim t As Integer = 0
Public xlApp As New Application
Public xlBook As Workbook
Public xlSheet As Worksheet
Public xlRange As Range
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Dim r(100) As Integer
Dim v(100) As Integer
Dim w(100) As Integer
Dim i As Integer
xlBook =
xlApp.Workbooks.Open("C:\Users\USER\Desktop\123123123\test.xlsx")
For i = 0 To t
xlSheet = xlBook.Sheets(1)
xlRange = xlSheet.Cells(t + 1, 1)
r(t) = Rnd() * 9 + 1
xlRange.Value = r(t)
xlRange = xlSheet.Cells(t + 1, 3)
v(t) = Rnd() * 9 + 1
xlRange.Value = v(t)
xlRange = xlSheet.Cells(t + 1, 5)
w(t) = Rnd() * 9 + 1
xlRange.Value = w(t)
Next
xlBook.SaveAs("C:\Users\USER\Desktop\123123123\test3.xlsx")
xlBook.Close()
If t = 5 Then
Timer1.Enabled = False
End If
t = t + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
End Class
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.101.184
1F:→ Ammenze:看起来并没有把最後一秒前的东西保留下来,一直盖过去 01/21 15:27
2F:→ Ammenze:应该把tick里面的回圈拿掉就可以达到你想要的结果吧 01/21 15:31