- 博客(2)
- 收藏
- 关注
RSS订阅原创 备份数据库
If Combo1.Text = "" Then MsgBox "请选择数据库存放路径！", vbInformation, "提示" Else Dim mfile As String, mfile2 As String On Error Resume Next mfile = Combo1.Text 得到别处的Access文件的路径 mfile2 = App.Pa
2009-04-20 13:59:00
264
转载 datagrid导出excel
Dim oExcel As Object Dim oBook As Object Dim I, J As Integer Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Add() oExcel.Visible = True For I = 1 To Data
2008-08-27 10:54:00
209
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人