【VB Excel】VB 操作Excel基本步骤

 

VB操作EXCEL,实现数据读取

1、定义Excel操作变量 

Dim objExcelFile As Excel.Application 

Dim objWorkBook As Excel.Workbook 

Dim objImportSheet As Excel.Worksheet 

2、打开Excel进程，并打开目标Excel文件 

Set objExcelFile = New Excel.Application

objExcelFile.DisplayAlerts = False

Set objWorkBook = objExcelFile.Workbooks.Open(strFileName)

Set objImportSheet = objWorkBook.Sheets(1) 

3、获取Excel有效区域的行和列数 

intLastColNum = objImportSheet.UsedRange.Columns.Count

intLastRowNum = objImportSheet.UsedRange.Rows.Count 

4、逐行读取Excel中数据 

由于前两行为Header部分，所以需要从第三行读取 

如果第1到第10个单元格的值均为空或空格，则视为空行 

For intCountI = 3 To intLastRowNum 

''Check if Empty Data Row 

blnNullRow = True 

For intI = 1 To 10 

If Trim$(objImportSheet.Cells(intCountI, intI).Value) <> "" Then 

blnNullRow = False 

End If 

Next intI 

若不是空行，则进行读取动作，否则继续向后遍历Excel中的行 

If blnNullRow = False Then 

获取单元格中的数据，做有效性Check，并将合法数据创建为实体存入对象数组中 

objImportSheet.Cells(intCountI, 1).Value 

…… 

End If 

Next intCountI

5、退出Excel进程，并关闭Excel相关操作对象 

objExcelFile.Quit

Set objWorkBook = Nothing

Set objImportSheet = Nothing

Set objExcelFile = Nothing 

 

Private Sub Command3_Click()
    
    Dim i As Long
    Dim j As Long
    Dim objExl As Excel.Application   '声明对象变量
    Me.MousePointer = 11            '改变鼠标样式
    Set objExl = New Excel.Application    '初始化对象变量
    objExl.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    objExl.Workbooks.Add          '增加一个工作薄
    objExl.Sheets(objExl.Sheets.Count).Name = "book1"  '修改工作薄名称
    objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后
    objExl.Sheets(objExl.Sheets.Count).Name = "book2"
    objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后
    objExl.Sheets(objExl.Sheets.Count).Name = "book3"
    objExl.Sheets("book1").Select     '选中工作薄<book1>
    For i = 1 To 50                   '循环写入数据
        For j = 1 To 5
            If i = 1 Then
                objExl.Selection.NumberFormatLocal = "@"  '设置格式为文本
                objExl.Cells(i, j) = " E " & i & j
            Else
                objExl.Cells(i, j) = i & j
            End If
        Next
    Next
    objExl.Rows("1:1").Select         '选中第一行
    objExl.Selection.Font.Bold = True   '设为粗体
    objExl.Selection.Font.Size = 24     '设置字体大小
    objExl.Cells.EntireColumn.AutoFit  '自动调整列宽
    objExl.ActiveWindow.SplitRow = 1  '拆分第一行
    objExl.ActiveWindow.SplitColumn = 0   '拆分列
    objExl.ActiveWindow.FreezePanes = True   '固定拆分
    objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"  '设置打印固定行
    objExl.ActiveSheet.PageSetup.PrintTitleColumns = ""    '打印标题
    objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _
                                               Format(Now, "yyyy年mm月dd日 hh:MM:ss")
    objExl.ActiveWindow.View = xlPageBreakPreview    '设置显示方式
    objExl.ActiveWindow.Zoom = 100                 '设置显示大小
    '给工作表加密码
    objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _
                               Contents:=True, Scenarios:=True
    objExl.Application.IgnoreRemoteRequests = False
    objExl.Visible = True                       '使EXCEL可见
    objExl.Application.WindowState = xlMaximized    'EXCEL的显示方式为最大化
    objExl.ActiveWindow.WindowState = xlMaximized    '工作薄显示方式为最大化
    objExl.SheetsInNewWorkbook = 3           '将默认新工作薄数量改回3个
    Set objExl = Nothing    '清除对象
    Me.MousePointer = 0   '修改鼠标
    Exit Sub

End Sub