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