【机房】查询-导出Excel

一、导出Excel需具备的条件

1、office软件

2、VB引用

       因为我安装的是office2010版的，所以出现的是Excel14.0，你引用时可能没有14.0，这都取决于你安装的office版本，所以引用之前必须先安装office软件，否则引用里不会出现这句。

3、代码实现

Private Sub cmdExportExcel_Click()    Dim xlApp As New Excel.Application      '声明Excel对象    Dim xlBook As Excel.Workbook            '声明工作簿对象    Dim xlSheet As Excel.Worksheet          '声明工作表单    Dim i As Integer    Dim j As Integer        If MSFlexGrid1.Text = "" Then                           '判断是否有记录可以导出        MsgBox "没有记录可以导出", vbOKOnly + vbExclamation, "提示"        Exit Sub    Else        Set xlApp = CreateObject("Excel.Application")           '调用Excel程序        Set xlBook = xlApp.Workbooks.Add(1)                     '创建新的空白簿        Set xlSheet = Excel.ActiveWorkbook.ActiveSheet           '创建新的工作表单            For i = 0 To MSFlexGrid1.Rows - 1                    '填入数据                For j = 0 To MSFlexGrid1.Cols - 1                xlSheet.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j) 'cell(a,b)表示a行，b列                                Next j            Next i        xlApp.Visible = True        '显示Excel表格        Set xlApp = Nothing     '交还控制给Excel    End IfEnd Sub

代码仓库

比较日期代码：

1、这是我敲学生时的代码

If CDate(DTPickerRu.Value < DTPickerBorn.Value) Then        MsgBox "出生日期不能小于入学日期！请重新输入！", vbOKOnly + vbExclamation, "警告"        Exit Sub    End If

2、这是从网上查到的另一种

If DateDiff("n", CDate(DTPickerStart), CDate(DTPickerEnd)) < 0 Then        MsgBox "起始日期与终止日期有冲突，请重新选择日期！", 48, "提示"        Exit Sub    End If

  DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。

IsDate函数用于判断 date 是否可以被转换为日期或时间。CDate 识别日期文字和时间文字，以及一些在可接受的日期范围内的数字。在将数字转换为日期时，数字的整数部分被转换为日期，分数部分被转换为从午夜开始计算的时间。

CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别，则不能判断年、月、日的正确顺序。另外，如果长日期格式包含表示星期几的字符串，则不能被识别。

date      

必需的。任何有效的日期表达式。（比如 Date() 或者 Now()）

例子 1

d="April 22, 2001"

if IsDate(d) then

document.write(CDate(d))

end if输出：

4/22/01

例子 2

d=#2/22/01#

if IsDate(d) then

document.write(CDate(d))

end if输出：

2/22/01

例子 3

d="3:18:40 AM"

if IsDate(d) then

document.write(CDate(d))

end if输出：

3:18:40 AM