精华内容
下载资源
问答
  • vb控制EXCEL

    2013-03-02 11:35:40
    VB控制EXCEL电子表格,希望对所有爱好VB的朋友有帮助
  • VB控制excel

    2012-02-18 08:37:26
    VB控制excel的命令总结,最全 的总结,绝对好用
  • VB控制EXCEL

    2003-09-08 00:00:00
    VB控制EXCEL
  • VB控制EXCEL VB控制EXCEL

    2008-09-25 18:38:39
    VB控制EXCEL VB控制EXCEL VB控制EXCEL
  • vb 控制 excel

    2009-03-11 12:47:09
    vb 控制 excel 在程序开发当中不免会遇到要对Excel进行各种各样的操作,最常见的应该就是将数据导出到Excel中,以下篇幅就是讲述对Excel的一些基本操作和方法,掌握了这些方法对今后实现更为复杂的Excel操作打下一个...
  • VB控制Excel

    2013-01-31 22:21:19
    vbexcel的读控制的代码
  • vb控制excel

    2008-02-02 21:44:05
    自己写的类,包含打开excel创建表,将数据导出表
  • vb控制excel

    2008-09-18 10:46:56
    vb控制excel表 利用VB编程控制Excel处理测量数据
  • VB控制excel资料大全

    2012-08-02 09:23:05
    VB 控制excel资料大全及代码示例 工作开发所用,传统的控制excel程序太慢。本程序代码借助第三方控件,实现了excel的快速操作
  • VB控制Excel中插入的ActiveX控件,简单易懂,利于新手。
  • VB控制Excel的代码

    2009-06-09 15:53:55
    VB控制Excel的代码 VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报...
  • VB控制EXCEL工作薄删除一个表不错的代码我使用的
  • vb控制excel

    2011-01-18 16:47:06
    vb环境下常用控制excel的方法和代码及实例
  • VB控制EXCEL源码

    2009-02-11 20:31:57
    使用VB控制EXCEL的各项操作源代码,功能比较多。
  • 利用VB控制Excel自动输入表格并且自动保存,刚朋友哪里拿到的程序,自己还没看呢,拿出来跟大家一起分享,
  • VB控制EXCEL生成报表

    千次阅读 2007-01-23 15:42:00
    csdn_用VB控制EXCEL生成报表 做为一种简捷、系统的 Windows应用程序开发工具,Visual Basic 5 具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库,...
    csdn_用VB控制EXCEL生成报表 
    做为一种简捷、系统的 Windows应用程序开发工具,Visual Basic 5
    具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL
    Server、Oracle、XBase等多种数据库,被广泛应用于建立各种信息管理系统。但是,VB缺乏足够的、符合中文习惯的数据表格输出功能,虽然使用Crystal
    Report控件及 Crystal
    Reports程序可以输出报表,但操作起来很麻烦,中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能,我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel
    97 的控制句柄,从而直接控制Excel 97的一系列操作。

    下面给出一个实例:

    首先建立一个窗体(FORM1)在窗体中加入一个DATA控件和一按钮,

    引用Microsoft Excel类型库:

    从"工程"菜单中选择"引用"栏;

    选择Microsoft Excel 8.0 Object Library;

    选择"确定"。

    在FORM的LOAD事件中加入:
      Data1.DatabaseName = 数据库名称
      Data1.RecordSource = 表名
      Data1.Refresh

    在按钮的CLICK事件中加入
      Dim Irow, Icol As Integer
      Dim Irowcount, Icolcount As Integer
      Dim Fieldlen() "存字段长度值
      Dim xlApp As Excel.Application
      Dim xlBook As Excel.Workbook
      Dim xlSheet As Excel.Worksheet

      Set xlApp = CreateObject("Excel.Application")
      Set xlBook = xlApp.Workbooks.Add
      Set xlSheet = xlBook.Worksheets(1)

      With Data1.Recordset
      .MoveLast

      If .RecordCount < 1 Then
        MsgBox ("Error 没有记录!")
        Exit Sub
      End If

      Irowcount = .RecordCount "记录总数
      Icolcount = .Fields.Count "字段总数

      ReDim Fieldlen(Icolcount)
      .MoveFirst

    8

      For Irow = 1 To Irowcount + 1
       For Icol = 1 To Icolcount
      Select Case Irow
      Case 1 "在Excel中的第一行加标题
      xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
      Case 2 "将数组FIELDLEN()存为第一条记录的字段长

      If IsNull(.Fields(Icol - 1)) = True Then
        Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
         "如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度
      Else
        Fieldlen(Icol) = LenB(.Fields(Icol - 1))
      End If

      xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
       "Excel列宽等于字段长
      xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
       "向Excel的CellS中写入字段值
      Case Else
      Fieldlen1 = LenB(.Fields(Icol - 1))

      If Fieldlen(Icol) < Fieldlen1 Then
      xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
       "表格列宽等于较长字段长
      Fieldlen(Icol) = Fieldlen1
       "数组Fieldlen(Icol)中存放最大字段长度值
      Else
       xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
      End If

      xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
      End Select
      Next
      If Irow <> 1 Then
      If Not .EOF Then .MoveNext
      End If
      Next
      With xlSheet
      .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"
       "设标题为黑体字
      .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
       "标题字体加粗
      .Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle =
    xlContinuous
       "设表格边框样式
      End With
      xlApp.Visible = True "显示表格
      xlBook.Save "保存
      Set xlApp = Nothing "交还控制给Excel
      End With

    本程序在中文Windows98、中文VB5下通过。 
     
    展开全文
  • VB控制Excel写单元格

    2009-04-11 19:36:18
    打开Excel文件并可以根据设置向指定单元格写入数据,没有保存功能,如果需要保存请使用Excel的功能。 版本:1.0.2 iLeaper@hotmail.com
  • VB控制Excel的一种方法

    2013-07-22 08:29:31
    把数据填充的Excel中,进行保存、打印等操作。
  • VB控制Excel文件写操作

    2009-04-11 15:03:21
    功能:打开Excel文件并可以根据设置向指定单元格写入数据。没有保存功能,如果需要保存请使用Excel的功能。 版本:1.0.0 iLeaper@hotmail.com
  • 关于vb控制excel问题

    2013-08-12 10:08:36
    excelXLS = CreateObject("Excel.Application") excelWK = excelXLS.Workbooks.Open(strFieldName) // j = 0 excelWS = excelWK.Worksheets(j + 1) //选中sheet1 excelWK.Sheets.Add() excelWK.Sheets(...
  • !!如何用vb控制excel表格的具体操作 指定链接 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd 
     
    
    !!如何用vb控制excel表格的具体操作
    指定链接   
       Private    Declare    Function    ShellExecute    Lib    "shell32.dll"    Alias    "ShellExecuteA"    (ByVal    hwnd    As    Long,    ByVal    lpOperation    As    String,    ByVal    lpFile    As    String,    ByVal    lpParameters    As    String,    ByVal    lpDirectory    As    String,    ByVal    nShowCmd    As    Long)    As    Long   
        
       'Option    Explicit   
       Dim    x(1    To    4,    1    To    5)    As    Integer   
       Dim    a,    i,    j    As    Integer   
       Dim    b    As    String   
        
       Private    Sub    Command1_Click()   
               Dim    ex    As    Object   
               Dim    exbook    As    Object   
               Dim    exsheet    As    Object   
               Set    ex    =    CreateObject("Excel.Application")   
               Set    exbook    =    ex.Workbooks().Add   
               Set    exsheet    =    exbook.Worksheets("sheet1")   
       '按控件的内容赋值   
       '11   
               exsheet.Cells(1,    1).Value    =    Text1.Text   
       '为同行的几个格赋值   
               Range("C3").Select   
               ActiveCell.FormulaR1C1    =    "表格"   
       '          ex.Range("c3").Value    =    "表    格"   
               ex.Range("d3").Value    =    "    春    天    "   
               ex.Range("e3").Value    =    "    夏    天    "   
               ex.Range("f3").Value    =    "    秋    天    "   
               ex.Range("g3").Value    =    "    冬    天    "   
       '大片赋值   
               ex.Range("c4:g7").Value    =    x   
       '按变量赋值   
           a    =    8   
           b    =    "c"    &    Trim(Str(a))   
           ex.Range(b).Value    =    "下雪"   
       '另外一种大片赋值   
               For    i    =    9    To    12   
               For    j    =    4    To    7   
               exsheet.Cells(i,    j).Value    =    i    *    j   
               Next    j   
               Next    i   
       '计算赋值   
       exsheet.Cells(13,    1).Formula    =    "=R9C4    +    R9C5"   
       '设置字体   
       Dim    exRange    As    Object   
       Set    exRange    =    exsheet.Cells(13,    1)   
       exRange.Font.Bold    =    True   
        
       '设置一行为18号字体加黑   
         Rows("3:3").Select   
               Selection.Font.Bold    =    True   
               With    Selection.Font   
                       .Name    =    "宋体"   
                       .Size    =    18   
                       .Strikethrough    =    False   
                       .Superscript    =    False   
                       .Subscript    =    False   
                       .OutlineFont    =    False   
                       .Shadow    =    False   
                       .Underline    =    xlUnderlineStyleNone   
                       .ColorIndex    =    xlAutomatic   
               End    With   
       '设置斜体   
               Range("E2").Select   
               Selection.Font.Italic    =    True   
       '设置下划线   
               Range("E3").Select   
               Selection.Font.Underline    =    xlUnderlineStyleSingle   
        
       '设置列宽为15   
               Selection.ColumnWidth    =    15   
        
       '设置一片数据居中   
       Range("C4:G7").Select   
               With    Selection   
                       .HorizontalAlignment    =    xlCenter   
                       .VerticalAlignment    =    xlBottom   
                       .WrapText    =    False   
                       .Orientation    =    0   
                       .AddIndent    =    False   
                       .ShrinkToFit    =    False   
                       .MergeCells    =    False   
               End    With   
       '设置某区域的小数位数   
               Range("F4:F7").Select   
               Selection.NumberFormatLocal    =    "0.00"   
                
       '求和   
               Range("G9:G13").Select   
               Range("G13").Activate   
               ActiveCell.FormulaR1C1    =    "=SUM(R[-4]C:R[-1]C)"   
       '某列自动缩放宽度   
               Columns("C:C").EntireColumn.AutoFit   
       '画表格   
               Range("C4:G7").Select   
               Selection.Borders(xlDiagonalDown).LineStyle    =    xlNone   
               Selection.Borders(xlDiagonalUp).LineStyle    =    xlNone   
               With    Selection.Borders(xlEdgeLeft)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeTop)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeBottom)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeRight)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlInsideVertical)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlInsideHorizontal)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlThin   
                       .ColorIndex    =    xlAutomatic   
               End    With   
       '加黑框   
       Range("C9:G13").Select   
               Selection.Borders(xlDiagonalDown).LineStyle    =    xlNone   
               Selection.Borders(xlDiagonalUp).LineStyle    =    xlNone   
               With    Selection.Borders(xlEdgeLeft)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlMedium   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeTop)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlMedium   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeBottom)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlMedium   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               With    Selection.Borders(xlEdgeRight)   
                       .LineStyle    =    xlContinuous   
                       .Weight    =    xlMedium   
                       .ColorIndex    =    xlAutomatic   
               End    With   
               Selection.Borders(xlInsideVertical).LineStyle    =    xlNone   
               Selection.Borders(xlInsideHorizontal).LineStyle    =    xlNone   
       '设置某单元格格式为文本   
               Range("E11").Select   
               Selection.NumberFormatLocal    =    "@"   
       '设置单元格格式为数值   
               Range("F10").Select   
               Selection.NumberFormatLocal    =    "0.000_);(0.000)"   
       '设置单元格格式为时间   
               Range("F11").Select   
               Selection.NumberFormatLocal    =    "h:mm    AM/PM"   
        
       '取消选择   
       Range("C10").Select   
       '设置横向打印,A4纸张   
       '          With    ActiveSheet.PageSetup   
       '                  .PrintTitleRows    =    ""   
       '                  .PrintTitleColumns    =    ""   
       '          End    With   
       '          ActiveSheet.PageSetup.PrintArea    =    ""   
               With    ActiveSheet.PageSetup   
       '                  .LeftHeader    =    ""   
       '                  .CenterHeader    =    ""   
       '                  .RightHeader    =    ""   
       '                  .LeftFooter    =    ""   
       '                  .CenterFooter    =    ""   
       '                  .RightFooter    =    ""   
       '                  .LeftMargin    =    Application.InchesToPoints(0.75)   
       '                  .RightMargin    =    Application.InchesToPoints(0.75)   
       '                  .TopMargin    =    Application.InchesToPoints(1)   
       '                  .BottomMargin    =    Application.InchesToPoints(1)   
       '                  .HeaderMargin    =    Application.InchesToPoints(0.5)   
       '                  .FooterMargin    =    Application.InchesToPoints(0.5)   
       '                  .PrintHeadings    =    False   
       '                  .PrintGridlines    =    False   
       '                  .PrintComments    =    xlPrintNoComments   
       '                  .PrintQuality    =    300   
       '                  .CenterHorizontally    =    False   
       '                  .CenterVertically    =    False   
                       .Orientation    =    xlLandscape   
       '                  .Draft    =    False   
                       .PaperSize    =    xlPaperA4   
       '                  .FirstPageNumber    =    xlAutomatic   
       '                  .Order    =    xlDownThenOver   
       '                  .BlackAndWhite    =    False   
       '                  .Zoom    =    100   
               End    With   
       '跨列居中   
               Range("A1:G1").Select   
               With    Selection   
                       .HorizontalAlignment    =    xlCenter   
       '                  .VerticalAlignment    =    xlBottom   
       '                  .WrapText    =    False   
       '                  .Orientation    =    0   
       '                  .AddIndent    =    False   
       '                  .ShrinkToFit    =    False   
                       .MergeCells    =    True   
               End    With   
               Selection.Merge   
        
       '打印表格   
       ActiveWindow.SelectedSheets.PrintOut    Copies:=1   
        
       '取值   
       Text1.Text    =    exsheet.Cells(13,    1)   
       '保存   
       ChDir    "C:/WINDOWS/Desktop"   
       ActiveWorkbook.SaveAs    FileName:="C:/WINDOWS/Desktop/aaa.xls",    FileFormat:=xlNormal,    Password:="123",    WriteResPassword:="",    ReadOnlyRecommended:=False,    CreateBackup:=False   
        
        
             '    关闭工作表。   
             exbook.Close   
             '用    Quit    方法关闭    Microsoft    Excel   
             ex.Quit   
             '释放对象   
             Set    ex    =    Nothing   
             Set    exbook    =    Nothing   
             Set    exsheet    =    Nothing   
       Dim    retval   
       '用excel打开表格   
       retval    =    Shell("C:/Program    Files/Microsoft    Office/Office/EXCEL.EXE"    &    "    "    &    "C:/WINDOWS/Desktop/aaa.xls",    1)   
        
        
             End    Sub   
        
       Private    Sub    Form_Load()   
               Me.Show   
       End    Sub   
        
       Private    Sub    Image2_Click()   
       '打开主页   
       ret&    =    ShellExecute(Me.hwnd,    "Open",    "http://dyqing.533.net",    "",    App.Path,    1)   
        
       End    Sub   
        
       Private    Sub    Image1_Click()   
       '发送邮件   
       ret&    =    ShellExecute(Me.hwnd,    "Open",    "mailto:duyunqing@163.net",    "",    App.Path,    1)   
        
       End    Sub 
    展开全文
  • With workSheet .Range(.Cells(1, 10), .Cells(2, 12)).Borders(XlBordersIndex.xlEdgeTop).LineStyle= xlContinuous End With vb 提示 xlContinuous未声明,这要如何改
  • VB控制Excel工作薄实例精选二

    千次阅读 2013-05-03 13:23:04
    1、获取Excel数据图表到VB的PictureBox控件中 '先引用对象库:Microsoft Excel 11.0 Object Library Option Explicit Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel....

        1、获取Excel数据图表到VB的PictureBox控件中

    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
            On Error GoTo Errhandler
            CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
            CommonDialog1.FilterIndex = 1
            CommonDialog1.ShowOpen
            Set xlExcel = New Excel.Application
            xlExcel.Workbooks.Open CommonDialog1.FileName
            Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
            Application.Visible = True
            Set xlSheet = xlBook.Worksheets("Sheet1") '指定Sheet表
            xlSheet.ChartObjects(2).Chart.CopyPicture '读取第2个数据图表到剪贴板
            Picture1.Picture = Clipboard.GetData      '粘贴数据到图片框
            Clipboard.Clear                           '清除剪贴板数据
    Errhandler:
            Exit Sub
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        On Error Resume Next
        xlBook.Close
        xlExcel.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlExcel = Nothing
    End Sub
    

        效果图如下:

     

        2、插入图片到Excel表格中

    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
            On Error GoTo Errhandler
            CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
            CommonDialog1.FilterIndex = 1
            CommonDialog1.ShowOpen
            Set xlExcel = New Excel.Application
            xlExcel.Workbooks.Open CommonDialog1.FileName
            Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
            Application.Visible = True
            Application.DisplayAlerts = False '不提示保存对话框
            Set xlSheet = xlBook.Worksheets("Sheet1") '指定Sheet表
            xlBook.Sheets("Sheet1").Select  '指定Sheet表
            ActiveSheet.Pictures.Insert("F:\资料\My Pictures\20056158712694.jpg").Select  '插入图片
            xlBook.Save
    Errhandler:
            Exit Sub
    End Sub
    
    Private Sub Form_Load()
        Picture1.Picture = LoadPicture("F:\资料\My Pictures\20056158712694.jpg")
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        On Error Resume Next
        xlBook.Close
        xlExcel.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlExcel = Nothing
    End Sub
    


    效果图如下:

     

     

        3、获取Excel表格中的Ole对象(获取图像)

    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
            On Error GoTo Errhandler
            CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
            CommonDialog1.FilterIndex = 1
            CommonDialog1.ShowOpen
            Set xlExcel = New Excel.Application
            xlExcel.Workbooks.Open CommonDialog1.FileName
            Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
            Application.Visible = True
            Application.DisplayAlerts = False '不提示保存对话框
            Set xlSheet = xlBook.Worksheets("Sheet1") '指定Sheet表
            xlBook.Sheets("Sheet1").Select  '指定Sheet表
            xlSheet.Shapes(3).CopyPicture '读取编号为3的图片。需要注意的是,该命令不仅能获取数据图表,也能获取图片。
            '或者xlSheet.OLEObjects(3).CopyPicture
            Picture1.Picture = Clipboard.GetData      '粘贴数据到图片框
            Clipboard.Clear                           '清除剪贴板数据
    Errhandler:
            Exit Sub
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        On Error Resume Next
        xlBook.Close
        xlExcel.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlExcel = Nothing
    End Sub
    
    


    效果图如下:

     

    展开全文
  • 最简单的生成复杂报表的方法,最需要几行代码就行了
  • VB控制Excel工作薄实例精选一

    千次阅读 2013-05-02 15:52:35
    1、获取Excel工作薄所有Sheet表名称、Sheet表的个数、删除指定Sheet表: '先引用对象库:Microsoft Excel 11.0 Object Library Option Explicit Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook...

        1、获取Excel工作薄所有Sheet表名称、Sheet表的个数、删除指定Sheet表:

    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
            On Error GoTo Errhandler
            CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
            CommonDialog1.FilterIndex = 1
            CommonDialog1.ShowOpen
            Set xlExcel = New Excel.Application
            xlExcel.Workbooks.Open CommonDialog1.FileName
            Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
            Application.Visible = False
            Application.DisplayAlerts = False '不提示保存对话框
            Debug.Print xlBook.Worksheets.Count 'Sheet表的个数
            For Each xlSheet In xlBook.Worksheets
               Set xlSheet = xlBook.Worksheets(xlSheet.Name)
               Debug.Print xlSheet.Name '列出所有Sheet表
               If xlSheet.Name = "Sheet5" Then xlSheet.Delete '删除Sheet5表
            Next
            xlBook.Save
            
    Errhandler:
            xlBook.Close
            xlExcel.Quit
            Set xlSheet = Nothing
            Set xlBook = Nothing
            Set xlExcel = Nothing
    End Sub
    


        2、获取Excel工作薄某Sheet表有效数据的行数、列数:

    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
            On Error GoTo Errhandler
            CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
            CommonDialog1.FilterIndex = 1
            CommonDialog1.ShowOpen
            Set xlExcel = New Excel.Application
            xlExcel.Workbooks.Open CommonDialog1.FileName
            Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
            Application.Visible = False
            Set xlSheet = xlBook.Worksheets("Sheet1") '或者xlBook.Sheets("Sheet1").Select'指定Sheet表
            Debug.Print xlExcel.ActiveSheet.UsedRange.Rows.Count    '有效数据行数
            Debug.Print xlExcel.ActiveSheet.UsedRange.Columns.Count '有效数据列数
    Errhandler:
            xlBook.Close
            xlExcel.Quit
            Set xlSheet = Nothing
            Set xlBook = Nothing
            Set xlExcel = Nothing
    End Sub
    
    
        3、用数组填充Excel某区域
    '先引用对象库:Microsoft Excel 11.0 Object Library
    Option Explicit
    
    Dim xlExcel As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Private Sub Command1_Click()
    
            Dim Data(1 To 200, 1 To 10) As String
            Dim i As Long, j As Long
            
            For i = 1 To 200
                For j = 1 To 10
                    Data(i, j) = j
                Next
            Next
            
            On Error GoTo Errhandler
            xlExcel.Application.Visible = True
            Me.MousePointer = vbHourglass
            xlExcel.Workbooks.Add '创建新的工作薄
            xlExcel.Workbooks(1).Activate '激活工作薄
            Set xlSheet = xlExcel.Workbooks(1).Worksheets("Sheet1") '指定Sheet表
            'Set xlSheet = xlBook.Worksheets("Sheet1")
            xlSheet.Activate
            xlSheet.Columns("A:J").NumberFormatLocal = "@" '设置A-J列为文本格式。
            '或者xlSheet.Range("A:J").NumberFormatLocal = "@"
            xlSheet.Range("A1:J200 ") = Data '填充数组到区域A1到J200
            xlSheet.Columns.EntireColumn.AutoFit '列自适应
            Me.MousePointer = vbDefault
            
    Errhandler:
            Exit Sub
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        On Error Resume Next
        xlBook.Close
        xlExcel.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlExcel = Nothing
    End Sub
    


    展开全文
  • VB控制EXCEL并使用SQL语句

    千次阅读 2007-01-23 14:57:00
    "Extended Properties=Excel 8.0;" .Open End With Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.ActiveConnection = cn If tablename1.Text <> "" Then  rs.Open "select * from " & "[" & ...
  • VB全面控制EXCEL

    2011-07-15 10:15:41
    自己搜集的一些VB控制EXCEL的例子代码,以及比较完整的属性方法集合。
  • vb全面控制excel

    2010-11-17 17:12:20
    vb全面控制excel,这里介绍了关于操作excel文件的相关方法,开发人员一定有用的。
  • vb控制ACCESS及EXCEL

    2018-02-11 13:39:51
    详细介绍了通过vb控制ACCESS及EXCEL,完成数据录入、查询的几种方法。

空空如也

空空如也

1 2 3 4 5 ... 14
收藏数 276
精华内容 110
关键字:

vb控制excel