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

[RockGao]

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) = "CODE"
 ExSheet.Cells(1, 4) = "DATA"
 ExSheet.Cells(1, 5) = "STATUS"

       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

[RockGao]

有没有师傅帮忙解答下，提点下呢

[赵4老师]

为什么不把数据写到半角逗号间隔列，回车换行间隔行的纯文本文件.csv中呢？ 在Excel中一样读。

[RockGao]

引用 2 楼 zhao4zhong1 的回复:

为什么不把数据写到半角逗号间隔列，回车换行间隔行的纯文本文件.csv中呢？ 在Excel中一样读。

没用过那个啊，单纯导入该怎么解决呢