用FORMAT函数,如:format(now,"yyyy-mm-dd hh:mm:ss")
解决方案 »
- VB中,如何将查询到的N条记录,给N个变量。
- 接口函数和入口函数!!!
- 找RSS碼(Reduced Spaced Symbology)碼制?馬上結.
- vb里做软件最多支持多少个串口。怎样判断串口
- 各位兄弟姐妹们啊,谁能捐赠点可用分给我啊!
- 求spread for windows form 6.0 的下载
- 求助一个老问题,高分赠送!
- Ado的问题,请教高手帮忙!
- 问大家一个菜问题,用Shell打开一个Exe后,怎么关闭它,是不是先FindWindow……
- 有关窗口的问题?
- vb的数据库连接代码不能写在模块中,我本来是想把连接都放在一个模块中,
- Public WithEvents adoPrimaryRS3 As ADODB.Recordset
dim i_col As Integer
'创建EXCEL应用对象,以及相关的EXCEL对象并引用
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.workbooks.Add
Set xlsheet = xlbook.worksheets(1)
i_row = 0
Do While i_row < mshflexgrid.Rows
For i_col = 0 To mshflexgrid.Cols - 1
xlsheet.cells(i_row, i_col + 1) = mshflexgrid.TextMatrix (i_row, i_col)
Next i_col
i_row = i_row + 1
Loop