[.NET] 寫入Excel
請輸入專案類型(網站專案或者應用程式專案)：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
→
01/21 15:27, , 1F
01/21 15:27, 1F
→
01/21 15:31, , 2F
01/21 15:31, 2F