請輸入專案類型(網站專案或者應用程式專案)：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