VB6存入日期时间等数据的问题

Question

代码：

Public Sub SaveDataToExcel()
    'Dim XlApp As New Excel.Application
    Dim XlApp As New Excel.Application
    Dim XlWorkBook  As New Excel.Workbook
    Dim XlWorkSheet As New Excel.Worksheet
    Dim voltage As Double
    Dim current As Double
    Dim power As Double
    Dim faultInfo As String
    
    '设置数据
    voltage = 12.5
    current = 3.5
    power = voltage * current
    faultInfo = "No Fault"
    
    Set XlApp = New Excel.Application
    Set XlWorkBook = XlApp.Workbooks.Add
    Set XlWorkSheet = XlWorkBook.Worksheets(1)
    
    '在单元格中写入数据
    XlWorkSheet.Cells(1, 1).Value = "日期"
    XlWorkSheet.Cells(1, 2).Value = "时间"
    XlWorkSheet.Cells(1, 3).Value = "电压"
    XlWorkSheet.Cells(1, 4).Value = "电流"
    XlWorkSheet.Cells(1, 5).Value = "功率"
    XlWorkSheet.Cells(1, 6).Value = "故障信息"
    
    
    
    XlWorkSheet.Cells(2, 1).Value = Format(Now, "yyyy年mm月dd日")
    XlWorkSheet.Cells(2, 2).Value = Format(Time, "hh:mm:ss")
    XlWorkSheet.Cells(2, 3).Value = voltage
    XlWorkSheet.Cells(2, 4).Value = current
    XlWorkSheet.Cells(2, 5).Value = power
    XlWorkSheet.Cells(2, 6).Value = faultInfo
    
    '保存 Excel 文件
    XlWorkBook.SaveAs "D:\VB\CWgraph2\data.xlsx"
    XlWorkBook.Close False
    XlApp.Quit
    
    Set XlWorkSheet = Nothing
    Set XlWorkBook = Nothing
    Set XlApp = Nothing
    
   ' MsgBox "数据已成功保存到 Excel 文件。"
End Sub
运行这段代码，弹出
![img](https://img-mid.csdnimg.cn/release/static/image/mid/ask/f4de317283044797b412a86104b1bdc2.png "#left")
怎么让它即保存又不弹出对话框？谢谢

Answer 1

对话框