请输入专案类型(网站专案或者应用程式专案)：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