精华内容
下载资源
问答
  • vb调用excel方法详解及操作相关操作命令大全
    千次阅读
    2020-11-04 16:08:58

    如果你要在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。

        因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
        第一层:Application对象,即Excel本身;
        第二层:workbooks对象集,指Excel的工作簿文件;

        第三层:worksheets对象集,表示的是Excel的一个工作表;

        第四层:Cells和Range对象,指向Excel工作表中的单元格。

        新建立一个VB的工程,先放一个button,名称为Excel_Out。先定义好各层:

    Dim xlapp As Excel.Application 'Excel对象
    Dim xlbook As Excel.Workbook '工作簿
    Dim xlsheet As Excel.Worksheet '工作表

        我们打算做的是:打开/新建一个excel,在其中对某工作表的一些单元格修改其值,然后另存为test.xls文件。

    Private Sub Excel_Out_Click()
    Dim i, j As Integer
    Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
      'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
    Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
    'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
    xlapp.Visible = True '设置EXCEL对象可见(或不可见)
    Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
                                  ''~~~当前工作簿的第一页,这里也可以换成“表名”

    '下面就是简单的在一些单元格内写入数字
    For i = 7 To 15
       For j = 1 To 10

         xlsheet.Cells(i, j) = j   '当前工作簿第一页的第I行第J列
       Next j
    Next i

    With xlsheet      '设置边框为是实线
        .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
    End With

    '引用当前工作簿的第二页
    Set xlsheet = xlapp.Application.Worksheets(2)
         xlsheet.Cells(7, 2) = 2008   '在第二页的第7行第2列写入2008
    xlsheet.SaveAs App.Path & "\test.xls"           '按指定文件名存盘
    'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿


    xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close


    Set xlapp = Nothing '释放xlApp对象

    End Sub

        这样,我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料汇总一下,为人为已感觉还还挺有用的:

         

     

    1.创建Excel对象
    eole=CREATEOBJECT(′Excel.application′)
    2.添加新工作簿
    eole.Workbooks.add
    3.设置第3个工作表为激活工作表
    eole.Worksheets(〃sheet3〃).Activate
    4.打开指定工作簿
    eole.Workbooks.Open(〃c:\temp\ll.xls〃)
    5.显示Excel窗口
    eole.visible=.t.
    6.更改Excel标题栏
    eole.Caption=〃VB应用程序调用Microsoft Excel〃
    7.给单元格赋值
    eole.cells(1,4).value=XM(XM为数据库字段名)
    8.设置指定列的宽度(单位:字符个数)
    eole.ActiveSheet.Columns(1).ColumnWidth=5
    9.设置指定行的高度(单位:磅)
    eole.ActiveSheet.Rows(1).RowHeight=1/0.035
    (设定行高为1厘米,1磅=0.035厘米)
    10.在第18行之前插入分页符
    eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
    11.在第4列之前删除分页符
    eole.ActiveSheet.Columns(4).PageBreak=0
    12.指定边框线宽度(Borders参数如下)
    ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
    13.设置四个边框线条的类型
    eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
    (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)
    14.设置页眉
    eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃
    15.设置页脚
    eole.ActiveSheet.PageSetup.CenterFooter=〃第&P页〃
    16.设置页眉到顶端边距为2厘米
    eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
    17.设置页脚到底边距为3厘米
    eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
    18.设置顶边距为2厘米
    eole.ActiveSheet.PageSetup.TopMargin=2/0.035
    19.设置底边距为4厘米
    eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
    20.设置左边距为2厘米
    veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
    21.设置右边距为2厘米
    eole.ActiveSheet.PageSetup.RightMargin=2/0.035
    22.设置页面水平居中
    eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
    23.设置页面垂直居中
    eole.ActiveSheet.PageSetup.CenterVertically=.t.
    24.设置页面纸张大小(1-窄行8511 39-宽行1411)
    eole.ActiveSheet.PageSetup.PaperSize=1
    25.打印单元格网线
    eole.ActiveSheet.PageSetup.PrintGridlines=.t.
    26.拷贝整个工作表
    eole.ActiveSheet.UsedRange.Copy
    27.拷贝指定区域
    eole.ActiveSheet.Range(〃A1:E2〃).Copy
    28.粘贴
    eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
    29.在第2行之前插入一行
    eole.ActiveSheet.Rows(2).Insert
    30.在第2列之前插入一列
    eole.ActiveSheet.Columns(2).Insert
    31.设置字体
    eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃
    32.设置字体大小
    eole.ActiveSheet.Cells(1,1).Font.Size=25
    33.设置字体为斜体
    eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
    34.设置整列字体为粗体
    eole.ActiveSheet.Columns(1).Font.Bold=.t.
    35.清除单元格公式
    eole.ActiveSheet.Cells(1,4).ClearContents
    36.打印预览工作表
    eole.ActiveSheet.PrintPreview
    37.打印输出工作表
    eole.ActiveSheet.PrintOut
    38.工作表另存为
    eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
    39.放弃存盘
    eole.ActiveWorkbook.saved=.t.
    40.关闭工作簿
    eole.Workbooks.close
    41.退出Excel
    eole.quit
    更多相关内容
  • 利用visual basic 6.0 调用excel,并且进行简单的计算并且赋值,代码可更改性强
  • vb调用excel实例

    2013-07-11 11:27:15
    主要是VB调用excel实现数据录入及保存
  • vb调用excel方法大全

    千次阅读 2009-11-08 22:06:00
    VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。 因为EXCEL是以层次...

     

    在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。

        因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
        第一层:Application对象,即Excel本身;
        第二层:workbooks对象集,指Excel的工作簿文件;
        第三层:worksheets对象集,表示的是Excel的一个工作表;
        第四层:Cells和Range对象,指向Excel工作表中的单元格。

        新建立一个VB的工程,先放一个button,名称为Excel_Out。先定义好各层:

    Dim xlapp As Excel.Application 'Excel对象
    Dim xlbook As Excel.Workbook '工作簿
    Dim xlsheet As Excel.Worksheet '工作表

        我们打算做的是:打开/新建一个excel,在其中对某工作表的一些单元格修改其值,然后另存为test.xls文件。

    Private Sub Excel_Out_Click()
    Dim i, j As Integer
    Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
      'Set xlbook = xlapp.Workbooks.Open(App.Path & "/test.xls") '打开已经存在的test.xls工件簿文件
    Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
    'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
    xlapp.Visible = True '设置EXCEL对象可见(或不可见)
    Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
                                  ''~~~当前工作簿的第一页,这里也可以换成“表名”

    '下面就是简单的在一些单元格内写入数字
    For i = 7 To 15
       For j = 1 To 10

         xlsheet.Cells(i, j) = j   '当前工作簿第一页的第I行第J列
       Next j
    Next i

    With xlsheet      '设置边框为是实线
        .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
    End With

    '引用当前工作簿的第二页
    Set xlsheet = xlapp.Application.Worksheets(2)
         xlsheet.Cells(7, 2) = 2008   '在第二页的第7行第2列写入2008
    xlsheet.SaveAs App.Path & "/test.xls"           '按指定文件名存盘
    'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿


    xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close


    Set xlapp = Nothing '释放xlApp对象

    End Sub

        这样,我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧,还挺有用的:

          1.创建Excel对象 
        eole=CREATEOBJECT(′Excel.application′) 
        2.添加新工作簿 
        eole.Workbooks.add 
        3.设置第3个工作表为激活工作表 
        eole.Worksheets(〃sheet3〃).Activate 
        4.打开指定工作簿 
        eole.Workbooks.Open(〃c:/temp/ll.xls〃) 
        5.显示Excel窗口 
        eole.visible= true 
        6.更改Excel标题栏 
        eole.Caption=〃VB应用程序调用Microsoft   Excel〃 
        7.给单元格赋值 
        eole.cells(1,4).value=XM(XM为数据库字段名) 
        8.设置指定列的宽度(单位:字符个数) 
        eole.ActiveSheet.Columns(1).ColumnWidth=5 
        9.设置指定行的高度(单位:磅) 
        eole.ActiveSheet.Rows(1).RowHeight=1/0.035 
        (设定行高为1厘米,1磅=0.035厘米) 
        10.在第18行之前插入分页符 
        eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 
        11.在第4列之前删除分页符 
        eole.ActiveSheet.Columns(4).PageBreak=0 
        12.指定边框线宽度(Borders参数如下) 
        ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 
        13.设置四个边框线条的类型 
        eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 
        (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线) 
        14.设置页眉 
        eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃 
        15.设置页脚 
        eole.ActiveSheet.PageSetup.CenterFooter=〃第&P页〃 
        16.设置页眉到顶端边距为2厘米 
        eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 
        17.设置页脚到底边距为3厘米 
        eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 
        18.设置顶边距为2厘米 
        eole.ActiveSheet.PageSetup.TopMargin=2/0.035 
        19.设置底边距为4厘米 
        eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 
        20.设置左边距为2厘米 
        veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 
        21.设置右边距为2厘米 
        eole.ActiveSheet.PageSetup.RightMargin=2/0.035 
        22.设置页面水平居中 
        eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 
        23.设置页面垂直居中 
        eole.ActiveSheet.PageSetup.CenterVertically=.t. 
        24.设置页面纸张大小(1-窄行8511   39-宽行1411) 
        eole.ActiveSheet.PageSetup.PaperSize=1 
        25.打印单元格网线 
        eole.ActiveSheet.PageSetup.PrintGridlines=.t. 
        26.拷贝整个工作表 
        eole.ActiveSheet.UsedRange.Copy 
        27.拷贝指定区域 
        eole.ActiveSheet.Range(〃A1:E2〃).Copy 
        28.粘贴 
        eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial 
        29.在第2行之前插入一行 
        eole.ActiveSheet.Rows(2).Insert 
        30.在第2列之前插入一列 
        eole.ActiveSheet.Columns(2).Insert 
        31.设置字体 
        eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃 
        32.设置字体大小 
        eole.ActiveSheet.Cells(1,1).Font.Size=25 
        33.设置字体为斜体 
        eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 
        34.设置整列字体为粗体 
        eole.ActiveSheet.Columns(1).Font.Bold=.t. 
        35.清除单元格公式 
        eole.ActiveSheet.Cells(1,4).ClearContents 
        36.打印预览工作表 
        eole.ActiveSheet.PrintPreview 
        37.打印输出工作表 
        eole.ActiveSheet.PrintOut 
        38.工作表另存为 
        eole.ActiveWorkbook.SaveAs(〃c:/temp/22.xls〃) 
        39.放弃存盘 
        eole.ActiveWorkbook.saved=.t. 
        40.关闭工作簿 
        eole.Workbooks.close  

        41.设置单元格水平居中显示
        eole.ActiveSheet.Cells(1,1).HorizontalAlignment = -4108

        42.退出Excel  
        eole.quit
     
     
    展开全文
  • VB/VBA调用EXCEL和WORD文件,并操作、修改,增加文件中的内容
  • 利用VB操作Excel

    千次阅读 多人点赞 2019-02-13 09:50:17
    VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel ...

    用VB操作Excel详解

    一、 VB读写EXCEL表:

    VB本身提自动化功能可以读写EXCEL表,其方法如下:

    1、在工程中引用MicrosoftExcel 类型库:

    从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确

    定"。表示在工程中要引用

    EXCEL类型库。

    2、在通用对象的声明过程中定义EXCEL对象:

    Set xlApp =CreateObject("Excel.Application") '创建EXCEL对象
    
    Set xlBook =xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
    
    xlApp.Visible = True '设置EXCEL对象可见(或不可见)
    
    Set xlSheet =xlBook.Worksheets("表名") '设置活动工作表
    
    xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
    
    xlSheet.PrintOut '打印工作表
    
    xlBook.Close (True) '关闭工作簿
    
    xlApp.Quit '结束EXCEL对象
    
    Set xlApp = Nothing '释放xlApp对象
    
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    
    xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
    Dim xlApp As Excel.Application
    
    Dim xlBook As Excel.WorkBook
    
    Dim xlSheet As Excel.Worksheet

    3、在程序中操作EXCEL表常用命令:

    在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。

    二、EXCEL的宏功能:

    EXCEL提供一个VisualBasic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中,EXCEL有两个自动

    宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())。它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过下面命令来运行启动宏和关闭宏。

    xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 

     

    三、VB与EXCEL的相互勾通:

    充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:

    在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。

    四、举例:

    1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序: 

    Dim xlApp As Excel.Application '定义EXCEL类
    
    Dim xlBook As Excel.Workbook '定义工件簿类
    
    Dim xlsheet As Excel.Worksheet '定义工作表类
    
    Private Sub Command1_Click() '打开EXCEL过程
    
    If Dir("D:\temp\excel.bz")= "" Then '判断EXCEL是否打开
    
    Set xlApp =CreateObject("Excel.Application") '创建EXCEL应用类
    
    xlApp.Visible = True '设置EXCEL可见
    
    Set xlBook =xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
    
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    
    xlsheet.Activate '激活工作表
    
    xlsheet.Cells(1, 1) = "abc"'给单元格1行驶列赋值
    
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
    
    Else
    
    MsgBox ("EXCEL已打开")
    
    End If
    
    End Sub
    
    Private Sub Command2_Click()
    
    If Dir("D:\temp\excel.bz")<> "" Then '由VB关闭EXCEL
    
    xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
    
    xlBook.Close (True) '关闭EXCEL工作簿
    
    xlApp.Quit '关闭EXCEL
    
    End If
    
    Set xlApp = Nothing '释放EXCEL对象
    
    End
    
    End Sub

    2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

    3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入已下程序存盘:

    Sub auto_open()
    
    Open "d:\temp\excel.bz" ForOutput As #1 '写标志文件
    
    Close #1
    
    End Sub
    
    Sub auto_close()
    
    Kill "d:\temp\excel.bz" '删除标志文件
    
    End Sub

    4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

    首先创建Excel 对象,使用ComObj:

    Dim ExcelID as Excel.Application
    
    Set ExcelID as new Excel.Application

    1)显示当前窗口:

    EelID.Visible:=True;xc

    2)更改Excel标题栏:

    ExcelID.Caption:='应用程序调用MicrosoftExcel';

    3)添加新工作簿:

    ExcelID.WorkBooks.Add;

    4)打开已存在的工作簿:

    ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');

    5)设置第2个工作表为活动工作表:

    ExcelID.WorkSheets[2].Activate;

    或ExcelID.WorkSheets['Sheet2'].Activate;

    6)给单元格赋值:

    ExcelID.Cells[1,4].Value:='第一行第四列';

    7)设置指定列的宽度(单位:字符个数),以第一列为例:

    ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;

    8)设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:

    ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米

    9)在第8行之前插入分页符:

    ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;

    10)在第8列之前删除分页符:

    ExcelID.ActiveSheet.Columns[4].PageBreak:=0;

    11)指定边框线宽度:

    ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;

    WithxlBook.ActiveSheet.Range("B2:L" + Trim(Str(i + 1))).Borders

    1-左2-右3-顶4-底5-斜(\) 6-斜(/)

    12)清除第一行第四列单元格公式:

    ExcelID.ActiveSheet.Cells[1,4].ClearContents;

    13)设置第一行字体属性:

    ExcelID.ActiveSheet.Rows[1].Font.Name:='隶书';

    ExcelID.ActiveSheet.Rows[1].Font.Color:=clBlue;

    ExcelID.ActiveSheet.Rows[1].Font.Bold:=True;

    ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;

    14)进行页面设置:

    a.页眉:

    ExcelID.ActiveSheet.PageSetup.CenterHeader:='报表演示';

    b.页脚:

    ExcelID.ActiveSheet.PageSetup.CenterFooter:='第&P页';

    c.页眉到顶端边距2cm:

    ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035;

    d.页脚到底端边距3cm:

    ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035;

    e.顶边距2cm:

    ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035;

    f.底边距2cm:

    ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035;

    g.左边距2cm:

    ExcelID.ActiveSheet.PageSetup.LeftMargin:=2/0.035;

    h.右边距2cm:

    ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035;

    i.页面水平居中:

    ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035;

    j.页面垂直居中:

    ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035;

    k.打印单元格网线:

    ExcelID.ActiveSheet.PageSetup.PrintGridLines:=True;

    15)拷贝操作:

    a.拷贝整个工作表:

    ExcelID.ActiveSheet.Used.Range.Copy;

    b.拷贝指定区域:

    ExcelID.ActiveSheet.Range['A1:E2'].Copy;

    c.从A1位置开始粘贴:

    ExcelID.ActiveSheet.Range.['A1'].PasteSpecial;

    d.从文件尾部开始粘贴:

    ExcelID.ActiveSheet.Range.PasteSpecial;

    16)插入一行或一列:

    a.ExcelID.ActiveSheet.Rows[2].Insert;

    b.ExcelID.ActiveSheet.Columns[1].Insert;

    17)删除一行或一列:

    a.ExcelID.ActiveSheet.Rows[2].Delete;

    b.ExcelID.ActiveSheet.Columns[1].Delete;

    18)打印预览工作表:

    ExcelID.ActiveSheet.PrintPreview;

    19)打印输出工作表:

    ExcelID.ActiveSheet.PrintOut;

    20)工作表保存:

    IfnotExcelID.ActiveWorkBook.Savedthen

    ExcelID.ActiveSheet.PrintPreview

    Endif

    21)工作表另存为:

    ExcelID.SaveAs('C:\Excel\Demo1.xls');

    22)放弃存盘:

    ExcelID.ActiveWorkBook.Saved:=True;

    23)关闭工作簿:

    ExcelID.WorkBooks.Close;

    24)退出Excel:

    ExcelID.Quit;

    25)设置工作表密码:

    ExcelID.ActiveSheet.Protect"123",DrawingObjects:=True,Contents:=True,Scenarios:=True

    26)EXCEL的显示方式为最大化

    ExcelID.Application.WindowState=xlMaximized

    27)工作薄显示方式为最大化

    ExcelID.ActiveWindow.WindowState=xlMaximized

    28)设置打开默认工作薄数量

    ExcelID.SheetsInNewWorkbook=3

    29)'关闭时是否提示保存(true保存;false不保存)

    ExcelID.DisplayAlerts=False

    30)设置拆分窗口,及固定行位置

    ExcelID.ActiveWindow.SplitRow=1

    ExcelID.ActiveWindow.FreezePanes=True

    31)设置打印时固定打印内容

    ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"

    32)设置打印标题

    ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""

    33)设置显示方式(分页方式显示)

    ExcelID.ActiveWindow.View=xlPageBreakPreview

    34)设置显示比例

    ExcelID.ActiveWindow.Zoom=100

    35)让Excel响应DDE请求

    Ex.Application.IgnoreRemoteRequests=False

    用VB操作EXCEL示例代码

    Private Sub Command3_Click()

    On Error GoTo err1

    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

    EndIf

    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 '修改鼠标

    ExitSub

    err1:

    objExl.SheetsInNewWorkbook=3

    objExl.DisplayAlerts=False '关闭时不提示保存

    objExl.Quit'关闭EXCEL

    objExl.DisplayAlerts=True '关闭时提示保存

    Set objExl=Nothing

    Me.MousePointer=0

    End Sub

    本人最近在做个程序,由于以前没涉及过此类编程,且手头没有相关技术资料,于是遂在网上淘金。可不

    幸的是网上搜到的此方面的代码大都是抄袭而来,错误太多,几乎无法使用和参考。为此,本人结合网上

    的资料和自己的研究分析,做了很多测试。以下代码为本人初次用VB6控制并读写EXCEL时,测试的部

    分代码,基本都通过了测试。在这里特意把更正且通过测试的代码做了笔记,便于自己需要时直接参考。

    测试环境:VB6.0sp6企业版、Office2003、WinXP

    真确的引用:“工程(P)”—“引用(N)”—引用项目

    Excel 2000中:

    Microsoft Excel 9.0 Object Library

    Microsoft Office 9.0 Object Library

    Excel 2003中:

    Microsoft Excel 11.0 Object Library

    Microsoft Office 11.0 Object Library

    Private Sub Test_Click()

    '--------------------------------

    ' 功能:读RESULT.TXT到EXCEL中去

    ' 用法:主程序自动调用处理

    '--------------------------------

    '打开最终结果文件resulr.txt

    Dim i, j, iLen As Integer

    Dim s() As String

    Dim sStr As String

    If iOutNum <> 0 Then

    Close iOutNum '先关闭

    End If

    fOutFile = Trim(App.Path) &"\Result.txt" '最终格式化结果

    iOutNum = FreeFile()

    Open fOutFile For Input As #iOutNum

    '控制EXCEL代码

    Dim xlApp As Object'Excel.Application

    Dim xlBook As Object 'Excel.Workbook

    Dim xlSheet As Object'Excel.Worksheet

    Screen.MousePointer = vbHourglass '改变鼠标样式

    'On Error GoTo Err_Proc

    Set xlApp =CreateObject("Excel.Application") '创建新的EXCEL文件

    Set xlBook = xlApp.WorkBooks.Add

    Set xlSheet = xlBook.WorkSheets(1)

    'Begin to fill data to sheet

    'Set xlBook =xlApp.Workbooks.Open("c:\1.xls") '打开已存在的某EXCEL文件

    Set xlSheet = xlBook.Sheets(1) '设置活动工作表(1)

    '***********************************************************

    '试验代码部分

    xlSheet.Cells(1, 1) = "A" '把第一行第一列改成A

    xlSheet.Cells(1, 2) = "B" '把第一行第二列改成B

    xlSheet.Cells(2, 1) = "C" '把第二行第一列改成C

    xlSheet.Cells(3, 2) = "D" '把第3行第二列改成D

    '**********************************************************

    '显示当前窗口

    xlApp.Visible = True '设置EXCEL对象可见(或不可见)

    '更改Excel标题栏

    xlApp.Caption = "CDMA基站告警后台分析系统报表"

    '修改单元格颜色

    With xlBook.Sheets(1) '第1张工作表'或者With xlBook.ActiveSheet

    .Range("A1","F10").Font.Color = RGB(112, 220, 21)

    End With

    '修改单元格边框

    WithxlBook.ActiveSheet.Range("A2:K9").Borders '边框设置

    .LineStyle = 1'xlBorderLineStyleContinuous

    .Weight = 1 'xlThin

    .ColorIndex = 1

    End With

    '单元格字体设置

    WithxlBook.ActiveSheet.Range("A3:K9").Font '字体设置

    .Size = 9

    .Bold = True

    .Italic = True

    .ColorIndex = 1

    End With

    '设置单元格格式为文本格式

    'xlBook.Sheets(1).Selection.NumberFormatLocal= "@" '设置格式为文本,没有通过

    '准备修改EXCEL单元格内容

    i = 0

    While Not EOF(iOutNum)

    Line Input #iOutNum, sStr '顺序按行读取

    sStr = Trim(sStr) '压缩空格

    If Len(Trim(sStr)) > 0 Then

    s() = Split(sStr, ",") '空格分隔符

    iLen = UBound(s())

    '写EXCEL单元格

    i = i + 1 '记录号+1

    For j = 0 To iLen

    xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

    Next j

    End If

    Wend

    '其它设置

    xlSheet.Rows("2:2").Select'选中第一行

    xlApp.Columns("A:E").Select'选中A~E列

    xlApp.Selection.Font.Bold = True '设为粗体

    xlApp.Selection.Font.Size = 10 '设置字体大小

    xlApp.Cells.EntireColumn.AutoFit '自动调整列宽

    xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

    '拆分

    xlApp.ActiveWindow.SplitRow = 1 '拆分第一行

    xlApp.ActiveWindow.SplitColumn = 2 '拆分第2列

    '

    '设置指定列宽、或行高:(单位:字符个数)

    'xlBook.Sheets(1).Columns(1).ColumnsWidth= 5

    xlBook.Sheets(1).Rows(2).RowHeight =5 / 0.035 '//1厘米

    '激活某个工作表为活动工作表

    xlApp.WorkSheets(2).Activate

    Set xlSheet = xlBook.Sheets(3)

    '

    '边框设置,测试通过

    WithxlBook.ActiveSheet.Range("A2:K9").Borders '边框设置

    .LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

    .Weight = 2 'xlThin

    .ColorIndex = 1

    End With

    '进行页面设置:代码真TMD灵活

    '页眉:

    xlBook.ActiveSheet.PageSetup.CenterHeader= "XXXXC网基站掉站后台分析报表"

    '页脚:

    xlApp.WorkSheets(2).PageSetup.CenterFooter= "第&P页"

    '页眉到顶端边距2cm:

    xlApp.WorkSheets(2).PageSetup.HeaderMargin= 2 / 0.035

    '页脚到底端边距3cm:

    xlBook.Sheets(1).PageSetup.HeaderMargin= 3 / 0.035

    '顶边距2cm:

    xlApp.WorkSheets(2).PageSetup.TopMargin= 2 / 0.035

    '底边距2cm:

    xlApp.WorkSheets(2).PageSetup.BottomMargin= 2 / 0.035

    '左边距2cm:

    xlApp.WorkSheets(2).PageSetup.LeftMargin= 2 / 0.035

    '右边距2cm:

    xlApp.WorkSheets(2).PageSetup.RightMargin= 2 / 0.035

    '页面水平居中:

    xlApp.WorkSheets(2).PageSetup.CenterHorizontally= 2 / 0.035

    '页面垂直居中:

    xlApp.WorkSheets(2).PageSetup.CenterVertically= 2 / 0.035

    '打印单元格网线:

    xlApp.WorkSheets(2).PageSetup.PrintGridLines= True

    '

    '拷贝操作:

    '拷贝整个工作表:

    xlApp.ActiveSheet.Used.Range.Copy'有问题!

    '拷贝指定区域:

    xlApp.WorkSheets(1).Range("A1:E2").Copy

    '从A1位置开始粘贴:

    xlApp.WorkSheets(2).Range("A1:E2").PasteSpecial

    'ExcelID.ActiveSheet.Range.["A1"].PasteSpecial

    '从文件尾部开始粘贴:

    ExcelID.ActiveSheet.Range.PasteSpecial

    '打印预览工作表:

    xlApp.ActiveSheet.PrintPreview

    '打印输出工作表

    xlApp.ActiveSheet.PrintOut

    '工作表保存,预览

    If Not xlApp.ActiveWorkBook.SavedThen

    xlApp.ActiveSheet.PrintPreview

    End If

    '增加新工作簿、表

    xlApp.WorkBooks.Add '增加一个工作薄

    xlApp.WorkSheets.Add '增加一个工作表

    '工作表另存为:

    xlBook.SaveAs("C:\Demo1.xls") '测试通过

    '设置工作表的名称

    xlApp.Worksheets(2).Name = "测试工作表"

    '放弃存盘:

    xlApp.ActiveWorkBook.Saved = True '测试通过

    '关闭工作簿:

    xlApp.WorkBooks.Close

    '退出Excel:

    xlApp.Quit

    '保存设置

    xlApp.DisplayAlerts = False '关闭时不提示保存

    xlApp.DisplayAlerts = True '关闭时提示保存

    xlApp.Quit '关闭EXCEL

    '释放资源

    Set xlApp = Nothing '释放xlApp对象

    Set xlBook = Nothing

    Set xlSheet = Nothing

    Screen.MousePointer = vbDefault

    Close iOutNum

    End Sub

    唯一不足的是,像.LineStyle =xlBorderLineStyleContinuous这类代码,"="右边的常量

    xlBorderLineStyleContinuous,类似的在网上几乎搜不到完整的定义,,相当郁闷~~~

    最终成品(关键)代码,用于自动生成EXCEL报表:

    Private Sub 生成报表()

    Dim i, j, iLen As Integer

    Dim s() As String

    Dim sStr As String

    If iOutNum <> 0 Then

    Close iOutNum '先关闭

    End If

    fOutFile = Trim(App.Path) &"\Result.txt" '最终格式化结果

    iOutNum = FreeFile()

    Open fOutFile For Input As #iOutNum

    '控制EXCEL代码,前期准备

    Dim xlApp As Object'Excel.Application

    Dim xlBook As Object 'Excel.Workbook

    Dim xlSheet As Object'Excel.Worksheet

    Screen.MousePointer = vbHourglass

    'On Error GoTo Err_Proc

    Set xlApp =CreateObject("Excel.Application")

    Set xlBook = xlApp.WorkBooks.Add

    '指定第1个工作表sheets(1)

    Set xlSheet = xlBook.Sheets(1)

    '激活某个工作表为活动工作表

    'xlApp.Worksheets(1).Activate

    '显示当前窗口

    xlApp.Visible = True

    '更改Excel标题栏

    xlApp.Caption = "淮北(Cdma)基站告警报表"

    '设置工作表的名称

    xlApp.WorkSheets(1).Name =CDate(Date)

    '单元格颜色设置

    With xlBook.Sheets(1)

    .Range("C2:C3").Font.Color= vbRed

    .Range("I2:L3").Font.Color= vbRed

    '.Range(xlSheet.Cells(2, 9),xlSheet.Cells(2, 12)).Font.Color = vbRed'效率低下

    End With

    '单元格合并

    With xlSheet

    .Range("B2:B3").MergeCells= True '合并

    .Range("C2:C3").MergeCells= True

    .Range("D2:D3").MergeCells= True

    .Range("E2:E3").MergeCells= True

    .Range("G2:G3").MergeCells= True

    .Range("H2:H3").MergeCells= True

    .Range("I2:I3").MergeCells= True

    .Range("J2:J3").MergeCells= True

    .Range("K2:K3").MergeCells= True

    .Range("L2:L3").MergeCells= True

    End With

    '单元格设置

    xlSheet.Columns("A:L").Select

    xlApp.Selection.Font.Name = "宋体" '设置字体类型

    xlApp.Selection.Font.Size = 10 '设置字体大小

    '修改数据前,设置G/H列单元格格式为“自定义”格式

    xlBook.Sheets(1).Range("G:H").NumberFormatLocal= "yyyy-mm-dd hh:mm:ss" '自定义格式

    '或修改成文本格式也行:xlBook.Sheets(1).Cells.NumberFormatLocal= "@" '文本格式

    '

    '准备修改EXCEL单元格内容

    With xlBook.ActiveSheet

    i = 0

    While Not EOF(iOutNum)

    Line Input #iOutNum, sStr '顺序按行读取

    sStr = Trim(sStr) '压缩空格

    If Len(Trim(sStr)) > 0 Then

    s() = Split(sStr, ",") '空格分隔符

    iLen = UBound(s())

    '写EXCEL单元格

    i = i + 1 '记录号+1

    For j = 0 To iLen

    .Cells(i + 1, j + 2) = Trim(s(j))

    If j >= 5 And j <= 6 AndInStr(Trim(s(j)), ":") > 0 Then

    xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

    If Right(Trim(s(j)), 8) >="00:00:00" And Right(Trim(s(j)), 8) <= "06:00:00" Then

    .Cells(i + 1, j +2).Interior.ColorIndex = 37 '设置特殊颜色,00~06时段不考核

    End If

    End If

    Next j

    End If

    Wend

    End With

    '数据修改完毕后,建议设置自动合适列宽

    With xlBook.ActiveSheet

    .Columns("A:H").Select

    .Columns.AutoFit

    End With

    '或:xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

    '

    '个别单元格需要设定自动换行

    WithxlBook.ActiveSheet.Range("I2:I3")

    .WrapText = True

    .Columns("I:I").Select

    .ColumnWidth = 7.1

    End With

    '边框设置为“细黑实线”

    WithxlBook.ActiveSheet.Range("B2:L" + Trim(Str(i + 1))).Borders '边框设置

    .LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

    .Weight = 2 'xlThin

    .ColorIndex = 1

    End With

    '

    With xlBook.ActiveSheet '或xlApp.WorkSheets (1)

    '数据区域:全部设置居左

    .Range("B2:L" + Trim(Str(i+ 1))).HorizontalAlignment = 2 '1:xlLeft/2:xlRight

    '

    '进行页面设置:代码真TMD灵活

    With .PageSetup

    '顶端标题行

    .PrintTitleRows = "$2:$3"

    '页眉:

    .CenterHeader = "淮北电信C网基站掉站报表"

    '页脚:

    .CenterFooter ="&""楷体_GB2312,常规""&8淮北电信无线中心" & Chr(10)& "第&P页/&N页"

    'A4纸、横向

    .Orientation = 2 ':xlPortrait 横向/1:xlLandscape 纵向

    End With

    End With

    '冻结窗口

    xlSheet.Range("F4").Select

    xlApp.ActiveWindow.FreezePanes = True

    '

    '保存设置

    'xlApp.DisplayAlerts = False '关闭时不提示保存

    '工作表另存为:

    'xlBook.SaveAs("C:\Demo1.xls") '测试通过

    'xlApp.WorkBooks.Close '关闭工作簿

    'xlApp.Quit '退出Excel:

    'xlApp.WorkBooks.Add '增加一个工作薄

    'xlApp.WorkSheets.Add '增加一个工作表

    '释放资源

    Set xlApp = Nothing

    Set xlBook = Nothing

    Set xlSheet = Nothing

    Screen.MousePointer = vbDefault

    Close iOutNum

    End Sub

    参考源码空间:

    枕善居http://www.mndsoft.com/blog/(dx05611240)

    人人为我http://www.winvb.com/Default.asp?page=2

    搜珍网http://www.dssz.com/search.php?keyword=telnet

    开源http://www.vscodes.com/

    笔记2:

    C:\>shutdown ?

    用法: shutdown [-i | -l | -s| -r | -a] [-f] [-m \\computername] [-t xx] [-c "co

    mment"] [-d up:xx:yy]

    没有参数显示此消息(与? 相同)

    -i 显示GUI界面,必须是第一个选项

    -l 注销(不能与选项-m 一起使用)

    -s 关闭此计算机

    -r 关闭并重启动此计算机

    -a 放弃系统关机

    -m \\computername 远程计算机关机/重启动/放弃

    -t xx 设置关闭的超时为xx秒

    -c "comment" 关闭注释(最大127 个字符)

    -f 强制运行的应用程序关闭而没有警告

    -d [p]:xx:yy 关闭原因代码

    u 是用户代码

    p 是一个计划的关闭代码

    xx 是一个主要原因代码(小于256 的正整数)

    yy 是一个次要原因代码(小于65536 的正整数)

    Qzone

    vb6.0 操作excel(3)

    .Range("L2:L3").MergeCells= True

    EndWith

    '单元格设置

    xlSheet.Columns("A:L").Select

    xlApp.Selection.Font.Name = "宋体" '设置字体类型

    xlApp.Selection.Font.Size = 10 '设置字体大小

    '修改数据前,设置G/H列单元格格式为"自定义"格式

    xlBook.Sheets(1).Range("G:H").NumberFormatLocal= "yyyy-mm-dd hh:mm:ss" '自定义格式

    '或修改成文本格式也行:xlBook.Sheets(1).Cells.NumberFormatLocal= "@" '文本格式

    '

    '准备修改EXCEL单元格内容

    With xlBook.ActiveSheet

    i = 0

    While Not EOF(iOutNum)

    Line Input #iOutNum, sStr '顺序按行读取

    sStr = Trim(sStr) '压缩空格

    If Len(Trim(sStr)) > 0 Then

    s() = Split(sStr, ",") '空格分隔符

    iLen = UBound(s())

    '写EXCEL单元格

    i = i + 1 '记录号+1

    For j = 0 To iLen

    .Cells(i + 1, j + 2) = Trim(s(j))

    If j >= 5 And j <= 6 AndInStr(Trim(s(j)), ":") > 0 Then

    xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

    If Right(Trim(s(j)), 8) >="00:00:00" And Right(Trim(s(j)), 8) <= "06:00:00" Then

    .Cells(i + 1, j +2).Interior.ColorIndex = 37 '设置特殊颜色,00~06时段不考核

    End If

    End If

    Next j

    End If

    Wend

    EndWith

    '数据修改完毕后,建议设置自动合适列宽

    With xlBook.ActiveSheet

    .Columns("A:H").Select

    .Columns.AutoFit

    EndWith

    '或:xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

    '

    '个别单元格需要设定自动换行

    WithxlBook.ActiveSheet.Range("I2:I3")

    .WrapText = True

    .Columns("I:I").Select

    .ColumnWidth = 7.1

    EndWith

    '边框设置为"细黑实线"

    WithxlBook.ActiveSheet.Range("B2:L" + Trim(Str(i + 1))).Borders '边框设置

    .LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

    .Weight = 2 'xlThin

    .ColorIndex = 1

    EndWith

    '

    With xlBook.ActiveSheet '或xlApp.WorkSheets (1)

    '数据区域:全部设置居左

    .Range("B2:L" + Trim(Str(i+ 1))).HorizontalAlignment = 2 '1:xlLeft/2:xlRight

    '

    '进行页面设置:代码真TMD灵活

    With .PageSetup

    '顶端标题行

    .PrintTitleRows = "$2:$3"

    '页眉:

    .CenterHeader = "淮北电信C网基站掉站报表"

    '页脚:

    .CenterFooter ="&""楷体_GB2312,常规""&8淮北电信无线中心" & Chr(10)& "第&P页/****&N页"

    'A4纸、横向

    .Orientation = 2 ':xlPortrait 横向/1:xlLandscape 纵向

    EndWith

    EndWith

    '冻结窗口

    xlSheet.Range("F4").Select

    xlApp.ActiveWindow.FreezePanes = True

    '

    '保存设置

    'xlApp.DisplayAlerts = False '关闭时不提示保存

    '工作表另存为:

    'xlBook.SaveAs("C:\Demo1.xls") '测试通过

    'xlApp.WorkBooks.Close '关闭工作簿

    'xlApp.Quit '退出Excel:

    'xlApp.WorkBooks.Add '增加一个工作薄

    'xlApp.WorkSheets.Add '增加一个工作表

    '释放资源

    Set xlApp = Nothing

    Set xlBook = Nothing

    Set xlSheet = Nothing

    Screen.MousePointer = vbDefault

    Close iOutNum

    End Sub

    展开全文
  • 【程序老媛出品,必属精品,亲测校正,质量保证】 资源名:VBA实现Excel的vlookup函数功能程序...源码说明: 自己用vb写的一个程序,实现Excel的vlookup函数的功能,提供全部源码 适合人群:新手及有一定经验的开发人员
  • 如何在VB调用EXCEL的自定义排序功能,以A列为基础做升序排列,排列时B/C/D.......列跟随A列而改变。排列内容为数字 ![图片说明](https://img-ask.csdn.net/upload/201901/07/1546857876_650237.png) 请老师帮忙...
  • 将该代码在VBA的脚本中粘贴入,即可在EXCEL调用函数
  • VB6.0调用Excel制作任意表格

    千次阅读 2019-12-24 15:40:42
    VB中制作报表一般来讲有三种方法: 1、直接使用VB6.0中自带的Data Report 来做,这种方法有很大的局限性,对于比较规则的报表,但对于比较复杂的报表,比如说一张报表,上部分是人员的工资,下部分是人员的各日的...

    在VB中制作报表一般来讲有三种方法:
    1、直接使用VB6.0中自带的Data Report 来做,这种方法有很大的局限性,对于比较规则的报表,但对于比较复杂的报表,比如说一张报表,上部分是人员的工资,下部分是人员的各日的考勤,使用这种方法就无能为力。
    2、使用直接的打印方法,即Printer.print ,这种方法直接向打印机打印,就象过去使用Foxpro似的,需要进行打印机定位,并且在Windows下,不同的字符数字所占的宽度也不相同,所以这种方法使用起来非常麻烦。
    3、使用微软的Excel。本文重点讨论用Excel来制作报表所涉及的问题。我们用Excel做报表时,不仅是将所要的内容填到Excel的工作表中,而且还需要填写公式、定义合适的格式(格线、字体、对齐)等。
    Excel的每张工作表是由若干行、若干列构成的,行列的交叉形成的小格称作单元格。我们正好可以用这些现成的单元格来做我们的报表的相应的格。为了程序简单,可以将报表的模板做好,如表头,相应的行高、列宽、字体、对齐调整好(事实上,这些也可以通过程序来实现,只是麻烦点。),然后利用VB程序来操纵Excel。
    这里我们以SQL SERVER 7.0为后台数据。首先定义好需要的变量,在VB6.0的菜单"工程\引用"中确保 Microsoft Excel 8.0 Object Library(在Excel2000中,此处为Excel 9.0)复选框选中。
    再向Excel工作表中填入数据:
    Dim VBExcel As Excel.Application
    Dim xlbook As Excel.Workbook 定义Excel工作簿对象
    Dim xlsheet As Excel.Worksheet 定义Excel工作表对象
    Dim rssalary As New ADODB.Recordset 定义记录集
    rssalary.Open SQLStrsalary, CNstring, adOpenStatic, adLockReadOnly
    rssalary 为已计算好的工资数据记录集。
    SQLStrsalary 是SQL语句(如select * FROM SALARY)。
    Cnstring 是连接字符串(如Provider=SQLOLEDB.1;Integrated
    Security=SSPI;Persist Security Info=False;
    Initial Catalog=DBname;Data Source=servername)。
    Set VBExcel = createObject("excel.application")
    VBExcel.Visible = True
    根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
    Set xlbook = VBExcel.Workbooks.Open(ExcelFile)
    ExcelFile为事先设计好的Excel模板文件(包括路径)
    Set xlsheet = xlbook.Worksheets("salary")
    Salary 为Excel模板工作表的名字
    xlsheet.Activate
    下面是向单元格中填写数据(以一个简单的工资打印为例):
    xh = 1
    Row = 6 从第6行开始是工资数据,1-5 行为工资单表头
    SumRow = Row SumRow用来存放合计的起始行
    Do While Not rssalary.EOF
    Col = 1
    xlsheet.Cells(Row, Col).Value = xh
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = rssalary("name")
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("jngz").Value)
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("jbdx").Value)
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("gwgz").Value)
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("zygz").Value)
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("jfgz").Value)
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = Str(rssalary("yfgz").Value)
    xh = xh + 1
    Row = Row + 1
    rssalary.MoveNext
    Loop
    以上可将各人的工资项打印出来,下面是合计(仅以一列的合计为例,填写公式):
    Col = 1
    xlsheet.Cells(Row, Col).Value = ""
    Col = Col + 1
    xlsheet.Cells(Row, Col).Value = "合计"
    Col = Col + 1
    HeJi = "=SUM(c" + Trim(Str(SumRow)) + ":c" + Trim(Str(Row - 1)) + ")"
    xlsheet.Cells(Row, Col).Value = HeJi
    填入公式,HeJi是一个字符串变量。
    如果用到的汇总是求平均、记数等,可用相应的Excel函数来替代上面的SUM,如COUNT、AVERAGE等。
    因为Excel中所见到的格线,其实并不是实际存在的线,只是为了分割各个单元格;而如果在Exce的选项中设置上有网格线的话,那么每一个格的四周都有线,并不一定能符合实际的需要。因此,如果只是某些地方需要画线,可用以下方法为某个单元格加上边框:
    xlsheet.Cells(Row, Col).Borders(xlTop).Weight = xlThin
    其中Borders 的参数可为:xlTop,xlBottom,xlRight,xlLeft 代表位置。
    它的Weight 的值可为:xlThin,xlMedium,xlThick.... 代表线粗。
    在Excel 中,如果某个单元格的宽度小于其中内容的长度,其中的内容将显示一串"#",真正的内容就看不到了,我们可用以下的方法来解决:
      xlsheet.Cells(Row, Col).ShrinkToFit = true
    这样Excel可以自动将单元格中内容的字体缩小来适合所在的单元格的宽度。也可以将模板中所有可能用到的单元格格式的对齐方式中的"缩小字体填充"项选中,然后将不需要缩小字体填充的单元格设为:
       xlsheet.Cells(Row, Col).ShrinkToFit =false
    由于Excel中对于对齐方式(即靠左、右,上、下等)有它自己默认的方式,如数字自动在单元格中靠右,文字自动靠左。如果需要中单元格的内容在某个单元格中的对齐方式可以这样来做:
    水平对齐:xlsheet.Cells(Row, Col).HorizontalAlignment = xlCenter
    其中xlCenter处可为xlLeft、xlRight。
    垂直对齐:xlsheet.Cells(Row, Col). VerticalAlignment = xlCenter
    其中xlCenter处可为xlTop、xlBottom。
    如果需要用到单元格的内容在多个单元格中居中(跨列居中),可以这样来实现(下例可实现第一行的A到H列居中):
    Dim Total As Range
    RangeCells = "a" + RTrim(LTrim(Str(1))) + ":" + "h" + RTrim(LTrim(Str(1)))
    Set Total = Range(RangeCells)
    Total.select
    Total.HorizontalAlignment = xlHAlignCenterAcrossselection
    然后在这几个单元格中的最前一个单元填入实际内容。
    xlsheet.Cells(1, 1).Value = "实际内容"
    有时我们可能会用到改变字体及尺寸,可以通过以下方法实现:
    Sheet1.Cells(Row,Col).Font.Name = "隶书"
    Sheet1.Cells(Row,Col).Font.Size = 20
    在单元格中输入数字性的文本,如05182381104,写到Excel的单元格中时,Excel会自动将其视为数字,从而变为5182381104。要解决这个问题,可这样做:
    xlsheet.Cells(Row, Col).Value=" "+"05182381104"
    上句中的两个双引号中间是一个单引号。
    另外,如果一张Excel工作表的长度超过了所设定的打印机的纸张的长度,Excel将自动分页,第二页就会没有表头。在出现这种情况下,如果表头是模板中固定好的,可在模板中设置好,方法是在Excel的菜单"文件\页面设置"中来设置。如果表头是在程序中形成的,可用下面的方法:
    xlsheet.PageSetup.PrintTitleRows = rows("1:6").Address
    这里"1:6"是根据表头所在的行来自行设定的。
    xlsheet.PageSetup.PrintTitleColumns = Columns("A:p").Address
    这里"A:P"是根据表头所在的列来设定的。
    通过上面这些方法来制做我们平常所见的报表,应该是不会有太大的问题。其实,我们在Excel软件中所能做到的,在VB中都可以通过调用来实现。

    展开全文
  • VB打开EXCEL的方法

    千次阅读 2013-11-07 18:55:48
    VB打开EXCEL的方法 一楼的没有指明 Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open("文件名") 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook...
  • excel做的线性回归,结果不太对,怎么回事呢?很可能是公式输入出错。逐一点一下数据,看看函数栏。谁会EXCLE做加权移动平均、单指数平滑、双指数平滑、线性回归、逐步回归分析、距离加权最小二乘平滑可以明确告诉...
  • vb.net基于excel数据生成chartcontrol折线图 Imports System.Windows.Forms.DataVisualization.Charting Imports Microsoft.Office.Interop.Excel Imports System.Data.OleDb Imports DevExpress.XtraCharts ...
  • EXCEL单元格中直接使用由VB6.0创建的dll中的自定义函数
  • VB操作EXCEL表的常用方法

    万次阅读 多人点赞 2019-01-07 17:39:12
    VB是常用的应用软件开发工具之一...但由于VBEXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: ...
  • VB累加求和(函数过程计算)演示源程序,主要练习自定义函数的方法及使用,‘注意格式和参数以及调用函数的程序执行顺序。顺便说一下,调用函数过程,到这里后要跳到函数处执行函数,然后回来继续往下执行。这里定义了...
  • excel-自定义函数及使用

    千次阅读 2021-10-19 10:46:03
    然后在新打开的vb页面上新建模块。这个test.xlsx就是我之前打开的excel文件。 函数编写规则 参考Office支持 自定义函数以Function语句开始,以End Function结束 可以指定0个或多个参数 在函数中必须包含一个语句,...
  • Application.Onkey"{Enter}","HanShu",使用这个语句实现当在特定单元格按下回车键时,可以调用模块HanShu,但我现在想要通过这个语句传递参数,比如我想写成Application.Onkey"{Enter}","HanShu(CanShu1,CanShu2)...
  • 在VSTO中如何利用C#创建EXCEL自定义函数
  • VB代码-excel自动排序

    2020-04-05 22:59:19
    VB代码 Option Explicit Sub rangeit() Dim r Dim firstNotNull Dim FirstValue Dim FitstPos Dim Count Dim NewPos Dim NewValue '从(1.2)开始寻找第一个不为空的单元格位置 For r = 2 To 10000...
  • VBA Excel 自定义函数不能调用成功的问题的解决方法问题以及解决方案的列举(持续更新中) 问题以及解决方案的列举(持续更新中) 自定义函数是自动化各种Excel重复操作的重要函数,我们可以用它实现各种自己的奇葩...
  • 我需要一个数组作为C++函数中的输出参数,然后从VB6调用函数。我正在使用VS 2015与C++的DLL项目。在从VB6调用的C++ DLL函数中输出数组参数我找不到创建数组并在C++代码中返回它的方法(这将是最佳解决方案),所以我...
  • VB调用AutoCAD.ppt

    2021-03-07 06:28:11
    VB调用AutoCAD.pptVB调用AutoCAD并画图,计算机辅助设计 (此部分内容可参考AutoCAD中的帮助),VB调用AutoCAD,在 VB调用AutoCAD ,必须先引用 AutoCAD 类型库。要在 VB 中完成此操作,请从“工程”菜单中选择“引用”...
  • 效果:在excel里创建一个按钮,开发一些VB script,可以连接指定的ABAP系统并执行系统里的ABAP function module。 在这里例子里执行ABAP系统的函数TH_USER_LIST, 把当前系统登录的用户取回来显示在excel里。 ...
  • vb调用bartender并打印

    千次阅读 2019-09-02 17:11:18
    1. 用vb创建了一个按钮,想实现点击按钮就自动调用指定位置的bartender模板(.btw格式) 2. 使用的bartender版本为专业版(Professional),但是点击按钮就报错或者不打印标签 3. 代码如下: Public Sub mybtw...
  • 如何通过VB合并Excel单元格以及设置Excel行高? 例如:我想把第一列的第4,5,6,7行合并。。。我在怎样让合并单元格里的字居中,怎样改变字体。 请不吝赐教。。。 ===========================================...
  • 如果源数据在Excel中,输出数据也希望在Excel中,我能否在过程中调用Python来进行数据分析?当然能,我们在《金融风险管理》《量化投资分析》等课程中,有大量任务是从Excel文件中获取数据,最终结果又保存到Excel.....
  • 在开始之前,请确保你的电脑上成功配置了python、excel、xlwings。 在excel中引入xlwings模块,有两种方法,任选其一即可。(同时使用会报“两个EXCEL无法打开同一个文件”的错误) 推荐方法:通过命令行导入 ...
  • 目录 '1.函数作用:返回 Column 英文字............函数作用:等用Shell调用的程序执行完成后再执行其它程序...................................................112 '111.函数作用:将Mouse显示成动画....................
  • 编程之家收集整理的这篇文章主要介绍了vb读取WPS的EXCEL文档并另存为其他,编程之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。Dim xlAppDim xlApp2Dim xlBookDim xlBook2Dim xlSheetDim xlSheet2Dim ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,516
精华内容 2,206
关键字:

vb调用excel函数