VB如何获得当前计算机的日期，并写入excel表格内某一单元格

Private Sub Command1_Click()

Dim objExcel As Object

Dim t As String '定义时间变量

Dim p As String '定义文件路径与文件名

Dim s As String '定义表名

'例如你的文件在c:\book1xls,表为sheet1

t = Time

p = "c:\book1xls"

s = "sheet1"

Set objExcel = CreateObject("ExcelApplication")

Set xlbook = objExcelWorkbooksOpen(p)

Set xlsheet = xlbookWorksheets(s)

objExcelVisible = True '设置表可见或不可见

xlsheetcells(1, 1) = t

Set xlsheet = Nothing

Set xlbook = Nothing

Set objExcel = Nothing

End Sub

Sub gettime()

   nowtime = Format(DateTimeNow, "yyyy/MM/dd hh:mm:ss")

   MsgBox nowtime

End Sub

其中DateTimeNow为当前系统的时间

Format是设置时间格式

效果如下

以上就是关于VB如何获得当前计算机的日期，并写入excel表格内某一单元格全部的内容，包括:VB如何获得当前计算机的日期，并写入excel表格内某一单元格、vb net获取系统时间、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！