为什么我每保存一次数据到Excel，就新建一个Excel文本呢，我想存完一定数量的再新建啊

Question

Private Sub CmdSaveFile_Click()

Timexin.Enabled = True

Dim Ex As Object
Dim ExBook As Object
Dim ExSheet As Object

Set Ex = CreateObject("Excel.Application")
Set ExBook = Ex.Workbooks.Add
Set ExSheet = ExBook.Worksheets("Sheet1") '打开
ExSheet.Activate '激活工作表
Ex.Visible = True

With ExSheet

If iCount > 255 Then
MsgBox "超过行数限制"
Exit Sub
End If

    arrStr(iCount, 1) = Text1.Text
    arrStr(iCount, 2) = Text2.Text
    arrStr(iCount, 3) = Text3.Text
    arrStr(iCount, 4) = Text4.Text
    arrStr(iCount, 5) = Text5.Text

ExSheet.Cells(1, 1) = "ID"
ExSheet.Cells(1, 2) = "TIME"
ExSheet.Cells(1, 3) = "AX"
ExSheet.Cells(1, 4) = "BX"
ExSheet.Cells(1, 5) = "DX

   Dim i As Long


For i = 0 To iCount - 1

   ExSheet.Cells(i + 2, 1) = arrStr(i, 1)
   ExSheet.Cells(i + 2, 2) = arrStr(i, 2)
   ExSheet.Cells(i + 2, 3) = arrStr(i, 3)
   ExSheet.Cells(i + 2, 4) = arrStr(i, 4)
   ExSheet.Cells(i + 2, 5) = arrStr(i, 5)
Next i
iCount = iCount + 1

    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
On Error Resume Next
Ex.ActiveWorkbook.SaveAs ("C:\Users\Mary\Desktop.xlsx")

Set ExSheet = Nothing
Set ExBook = Nothing
' Ex.Quit
Set Ex = Nothing
Ex.List1.Clear

End With

ExBook.Save
'xlbook.Close

End Sub

http://ask.csdn.net/#

Answer 1

保存的那个函数， 应该有个参数 用于是否是追加。 你再看看吧