zoukankan      html  css  js  c++  java
  • VBA中操作Excel的部分方法代码示例

    set objExcelApp = createObject("Excel.Application") 
     2objExcelApp.DisplayAlerts = false 
     3objExcelApp.Application.Visible = false 
     4objExcelApp.WorkBooks.add 
     5set objExcelBook = objExcelApp.ActiveWorkBook 
     6set objExcelSheets = objExcelBook.Worksheets 
     7set objSpreadsheet = objExcelBook.Sheets(1) 
     8
     9Dim objField, iCol, iRow 
    10iCol = 1 '取得列号 
    11iRow = 1 '取得行号 
    12objSpreadsheet.Cells(iRow, iCol).Value = "用ASP将Access中的数据导入到Excel文件——西部e网" '单元格插入数据 
    13objSpreadsheet.Columns(iCol).ShrinkToFit=true '设定是否自动适应表格单元大小(单元格宽不变) 
    14'设置Excel表里的字体 
    15objSpreadsheet.Cells(iRow, iCol).Font.Bold = True '单元格字体加粗 
    16objSpreadsheet.Cells(iRow, iCol).Font.Italic = False '单元格字体倾斜 
    17objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 '设置单元格字号 
    18objSpreadsheet.Cells(iRow, iCol).ParagraphFormat.Alignment=1 '设置单元格对齐格式:居中 
    19objspreadsheet.Cells(iRow,iCol).font.name="宋体" '设置单元格字体 
    20objspreadsheet.Cells(iRow,iCol).font.ColorIndex=2 '设置单元格文字的颜色,颜色可以查询,2为白色 
    21objSpreadsheet.Range("A1:F1").merge '合并单元格(单元区域) 
    22objSpreadsheet.Range("A1:F1").Interior.ColorIndex = 1 '设计单元络背景色 
    23'objSpreadsheet.Range("A2:F2").WrapText=true '设置字符回卷(自动换行) 
    24iRow=iRow+1 
    25For Each objField in objRS.Fields 
    26'objSpreadsheet.Columns(iCol).ShrinkToFit=true 
    27objSpreadsheet.Cells(iRow, iCol).Value = objField.Name 
    28'设置Excel表里的字体 
    29objSpreadsheet.Cells(iRow, iCol).Font.Bold = True 
    30objSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
    31objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 
    32objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 
    33iCol = iCol + 1 

  • 相关阅读:
    登录保存用户信息
    GRIDVIEW单击事件
    GRIDVIEW单击双击事件
    gridview打印
    水晶报表
    CRYSTAL net样式
    Web Server 在IIS上部署ASP.NET Core项目
    MVC MVC+EF快速搭建
    MVC MVC常见错误及解决办法
    Open Interface Service WCF三种通信模式
  • 原文地址:https://www.cnblogs.com/zhangchenliang/p/2836576.html
Copyright © 2011-2022 走看看