精华内容
下载资源
问答
  • Function:To Generate the report. Private Sub GenerateReport() Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Workshe

        ''' <summary>
        ''' Function:To Generate the report.
        ''' </summary>
        ''' <remarks></remarks>
        Private Sub GenerateReport()
            Dim oXL As Excel.Application
            Dim oWB As Excel.Workbook
            Dim oSheet As Excel.Worksheet
            Dim oRng As Excel.Range

            oXL = CreateObject("Excel.Application")
            oXL.Visible = False

            'Create New Workbook and Set Active Sheet
            oWB = oXL.Workbooks.Add
            oSheet = oWB.ActiveSheet

            With oSheet.Range("B3", "BG3")
                .Font.Bold = True
                .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
                .Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlContinuous
                .Cells.BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic)
                .EntireRow.RowHeight = 20
                .EntireColumn.ColumnWidth = 20
                .EntireColumn.AutoFit()
            End With

            Dim SKACollection As String

            For i As Integer = 0 To listBoxSelectedItem.Items.Count - 1
                If i = 0 Then
                    SKACollection = listBoxSelectedItem.Items(i).Text
                Else
                    SKACollection = SKACollection + "," + listBoxSelectedItem.Items(i).Text
                End If
            Next

           ‘Get the data

            Dim dtGenerateReport As New DataTable
            Dim bf As New COPESSGTPStaticDataBF

            bf.GenerateReport(dtGenerateReport, SKACollection)

            If dtGenerateReport.Rows.Count = 0 Then
                PromptUserAlert("No Data", "alert('There have no data about the selected SKAcc number.')")
                Exit Sub
            End If
            Dim fldCount As Integer
            Dim iCol As Integer

            fldCount = dtGenerateReport.Columns.Count

            For iCol = 2 To fldCount + 1
                oSheet.Cells._Default(3, iCol).Value = dtGenerateReport.Columns(iCol - 2).ColumnName
            Next
            Dim ds As New DataSet
            ds.Tables.Add(dtGenerateReport)

            For i As Integer = 0 To dtGenerateReport.Rows.Count - 1
                For iCol = 2 To fldCount + 1
                    oSheet.Cells._Default(4 + i, iCol).Value() = dtGenerateReport.Rows(i)(iCol - 2).ToString
                Next
            Next


            oXL.Selection.CurrentRegion.Columns.AutoFit()
            oXL.Selection.CurrentRegion.Rows.AutoFit()
            'Set data formatting
            With oSheet.UsedRange
                .Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlContinuous
                .Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlContinuous
                .BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic)
                .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
                .HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
                .EntireColumn.AutoFit()
            End With

            ' Set Excel Invisible
            oXL.Visible = False
            Dim strFileName As String
            strFileName = "../TPStaticDataResult.xls"
            oXL.Dialogs(Excel.XlBuiltInDialog.xlDialogSaveAs).Show(strFileName)
            oXL.DisplayAlerts = False

            Call oWB.Close(False)
            oXL.Quit()

            ' Release object references.
            oRng = Nothing
            oSheet = Nothing
            oWB = Nothing
            oXL = Nothing


        End Sub

    展开全文
  • 工作有时候需要大量数据,而手头没有现成的数据怎么办?,很多小伙伴苦思冥想编写数据,意义不大还累个半死,今天推出两种方法随机生成数据小妙招。1、用rand函数生成A与B之间的随机数字(A≤随机数≤B)。操作步骤:...

    工作中有时候需要大量数据,而手头没有现成的数据怎么办?,很多小伙伴苦思冥想编写数据,意义不大还累个半死,今天推出两种方法随机生成数据小妙招。

    1、用rand函数生成A与B之间的随机数字(A≤随机数≤B)。

    操作

    ae025b43913b2db25d897197024320e5.gif

    步骤:选中要生成数字的区域,输入=RAND()*(B-A+1)+A, 例如,生成1到100之间的随机数字,输入:=RAND()*100+1,按ctrl+enter键即可。

    如果你只想生成随机整数,在公式上加上取整函数int即可。例如:生成1到100之间的随机整数,选中要生成数字的区域,输入=int(RAND()*100+1),按ctrl+enter键就生成整数了。

    操作

    e355fd7d3bcdfd7bc9aed10bcac1b4b6.gif

    2、用randbetween函数生成A与B之间的随机数字(A≤随机数≤B)。

    操作

    9ac9fd96107a96a8c4c6ae103580a33d.gif

     步骤:选中要生成数据的区域,输入=RANDBETWEEN(A,B),按ctrl+enter键即可。如,生成1到500之间的随机整数,输入:=RANDBETWEEN(1,500)
      如想得到随机小数,则输入:=RANDBETWEEN(1,500)/10即可。

    操作

    063ace920bf57dc9e4316ebaf64c2b54.gif

    近期内容回顾

    看到人类的本质你会恐惧吗

    vlookup一次性返回多个查询结果

    当了领导才明白的一些道理

    Word跨页重复表头

    如何在Word小方框中打√打×

    if函数,条件判断好帮手

    批量四舍五入或向下取整

    Sumproduct函数,求和、计数、排序万能助手(下)

    Sumproduct函数,求和、计数、排序万能助手(上)

    笔杆子经常用到的写作提纲

    3秒分段显示号码,不再敲空格

    这招一分钟可以干半个月的活

    批量合并相同内容单元格

    Excel多表格批量合并汇总

    Word中英文挤在一起,如何在中英文间批量添加空格

    如何批量提取Word中的汉字

    批量对齐Word姓名,不要再一个个敲空格了

    用replace函数隐藏表格隐私信息

    如何根据身份证自动提取生肖属相

    数据查找函数之vlookup

    创作不易,分享、赞赏均是对作者的支持。

    展开全文
  • 现在要用vb编写一个界面,用户输入型号等 vb就会在excel中寻找对应的长度等等,在通过其他sheet里面的公式算出消耗等等,如何将excel融入到VB中,可以生成exe文件,让用户看不到excel里面的内容 这是关键。...
  • Code32条码编码方式完全与Code39条形码相同,有效字符为:0-9数字。Code32条码由9位数字组成,转换成等效的6位Code39...那么如何把Excel的条码数据批量生成Code32条码呢?可利用琅条码软件的数据库导入功...

    Code32条码编码方式完全与Code39条形码相同,有效字符为:0-9数字。Code32条码由9位数字组成,转换成等效的6位Code39条码。从左侧开始字母“A”属于未编码的可读文本不计算在条码数据内,可由条码软件自动添加,后面接着是8位数字编号和1位校验位,校验位可由条码软件自动计算得出。

    14bdf0478be47a3b51c22f05f4c7b1f0.png

    那么如何把Excel表中的条码数据批量生成Code32条码呢?可利用中琅条码软件中的数据库导入功能导入Excel表数据批量生成Code32条码,下面就来看看具体的操作步骤。

    在条码软件中新建一个空白标签,打开“数据库设置”,添加“Excel数据源”,根据下图步骤依次操作,数据库导入Excel表数据。

    d1133b1763cd602a5f8ec3511f872440.png

    69bd652cbe0afdcc404a56d82fb7936d.png

    利用左侧工具栏中的“绘制一维码”工具在在白色画布上添加一个条形码,双击条形码打开“图形属性-条码”,条码类型修改为“Code32”。

     f2d4e62c275b33ef9d453590485a9557.png

    在“数据源”一栏,点击数据对象下面的“修改”按钮,修改条码数据,弹出的窗口中数据对象类型修改为“数据库导入”,数据库连接就是刚刚添加的Excel表连接,保存修改。

    8a662d742b4935c76042c0fb2dd807b5.png

    在条码软件中打印预览查看批量生成的Code32条码,通过翻页可以查看到数据库导入多少条Excel表数据,就可以批量生成多少个Code32条码。

    33b913d16f348737b29251bd20dc3c52.png 

    综上所述就是把Excel表数据批量生成Code32条码的操作步骤,条码软件支持多种数据库导入方式,如TXT,Excel,Access,MySQL,CSV,SQLServer等常用数据库类型都支持。

    展开全文
  • VB6.0编译环境能打开excel ,但生成exe文件后,就报错![图片说明](https://img-ask.csdn.net/upload/201705/17/1495000293_517657.jpg) ``` Option Explicit Dim newxls As New Excel.Application Dim ...
  • 几年前看见一VB6代码,直接生成Excel文件(不需要Excel),最近把它改写成VB.NET,支持简体中文。 原理:根据以公开的BIFF2.1文件格式,直接Binary写Excel文件。 效果: 下载:...
    几年前看见一VB6代码,直接生成Excel文件(不需要Excel),最近把它改写成VB.NET,支持简体中文。

    原理:根据以公开的BIFF2.1文件格式,直接Binary写Excel文件。

    效果:

    下载:http://files.cnblogs.com/unruledboy/Smart%20Excel%20Lib.zip

    另外,鞠强网友写了一个C#版本:http://www.cnblogs.com/juqiang/archive/2004/07/08/22255.aspx

    http://files.cnblogs.com/unruledboy/smartexcel.rar

    展开全文
  • 作为自助分析人员,常常面临的场景有:【场景A...如 Excel分发给不同的部门或区域填数后收集汇总这里就出现一个很重要的问题,如何从多个同一规律下的文件中读取数据并合并。这个内容已经在我的《PBI基础》讲解得...
  • VB在当前目录生成Excel文件并判断是否重复,运行访问Excel数据目录的工程时,单击“Excel输出按钮”,便会在当前目录下产生一个veryhuo_com.xls文件。程序将检测 Microsoft Excel。如果 Microsoft Excel 在运行,...
  • 操作逻辑首先,生成一个Workbook对象,这个对象相当于是一个在内存Excel文件,它可以包含多个表单。Workbook对象既可以通过读取一个Excel文件来创建,也可以直接在内存创建。它们的实现代码分别是:#读取一个...
  • VB EXCEL检索下载文件

    2014-04-03 16:43:14
    本软件从EXCEL文件中顺序读取URL数据,然后从互联网上自动下载URL指定的文件,并存入ID为目录名的目录。 软件可以自动识别EXCEL文件中的记录行数和URL链接数,并判断硬盘是否存在要下载的文件,如果存在则不下载...
  • VB6如何程序控制EXCEL运行并打开刚生成的一个EXCEL文件 具体细节问题有如下几个: (1)如何判断本机有没有安装EXCEL程序 (2)如何取得EXCEL程序所在的路径 (3)如何判断生成EXCEL文件存在了没有 (4...
  • vb操作Excel文件

    千次阅读 2007-11-05 10:02:00
    原地址:... 比如: 访问Com组件权限,无法读取Excel等 文章描述了怎样双向操作(读取和生成)Excel文件,以及怎样解决遇到的问题!(二).代码 开始时用了下面两个方法进行生成和读取 Ex
  • VB将数据导入Excel文件中

    千次阅读 2005-09-09 00:45:00
    VB将数据导入Excel文件中 Excel 是一个非常优秀的报表制作软件,用VBA可以控制其生成优秀的报表,本文通过添加查询语句的方法,即用Excel的获取外部数据的功能将数据很快地从一个查询语句捕获到EXCEL,比起往...
  • 通过Visual Basic6.0编程,实现从文本格式的地面气象月报数据A文件中提取所需要素,进行统计计算,以Excel格式较美观的气象服务简表输出准确计算结果,在气象资料服务和信息存档方面具有较好的应用价值,有利于提高气象...
  • # 读取excel文件,把学号,名字,姓名组成一个字典后放到列表,然后把学号去重 xlsx = xlrd.open_workbook('三年二班(各科成绩单).xls') # 选择指定sheet sheet = xlsx.sheet_by_index(0) # 依次单元格数...
  • VB汇总计算指定目录Excel表格文件,汇总excel表格,支持子目录,支持格式为.xls(想扩展其他格式的可自行修改代码,600张表格汇总速度为1分钟左右(看配置高低).  可自己指定要汇总的单元格地址.如要汇总A2单元格...
  • Excel中用VB批量生成二维码

    千次阅读 2019-04-24 14:59:23
    需要在excel中enable开发工具 在文件-> 选项 -> 自定义功能,勾上开发工具,然后保存。 在开发工具Tab下,点击Visual Basic Private Sub BarCodeCtrl1_GotFocus() lastrow = Range("a10000").End(xlUp).Row ...
  • 随着信息化教育的普及,相信老师们对于Excel这个办公软件已经不再陌生了,它全称是MicrosoftExcel,是美国微软公司旗下多开发的一款电子表格制作软件。它有着直观的界面、出色的计算功能和图表工具,不仅功能用途...
  • 1. EXCEL文件生成.2.EXCEL文件的下载.1. EXCEL文件生成.Private Sub ExcelOutProc() Dim printBookPath As String = "" Dim printBookName As String = "" Dim excelApp As Excel.Application Dim
  • 如何在VB6导出EXCEL、FOXPRO格式的表一般是在ACCESS或是SQLSERVER查寻,或是汇总,然后生成一个‘记录集’可以显示在GRID里,也可以将这个记录集导出到磁盘。下面可以导出Xls,DBF,DB,MDB(表),这些功能是由ISAM...
  • 本次我们要写一个一键合并多个sheet的VBA小工具。展示的时候都是图片展示,文章最后面有源代码可以复制。大家可以复制尝试。这其中涉及到的Range和相对路径...使用Now()方法为合并后的EXCEL文件命名因为考虑到源数据...
  • 测试环境: 赛扬600+128M+Win2k Prof.(English.)+SQL Server 2000+Excel 2000+VB6(sp4)+ADO2.5测试表记录数:10322,字段数:9 返回表中所有的纪录(select * from table1),每种方法连续测试5次,在VB中使用MsgBox ...
  • 要把数据库设计转成一个excel版本的,百度出来一个脚本文件,很好用发现,留个纪念 在pd,shift+ctrl+X,打开脚本运行,脚本如下,附件也留了一份: [vb] view plain copy   '****...
  • 把数据库设计转成一个excel版本的,百度出来一个脚本文件,很好用发现,留个纪念 在pd,shift+ctrl+X,打开脚本运行,脚本如下,附件也留了一份: [vb] view plaincopy '**********...
  • 先不说了,明天来了之后再写描述。...这个是用来从Excel中生成Insert语句的一个小软件 如果你装了VB6,可以直接下载该源码,然后重新编译。 如果没有VB6,直接运行SQL生成器.exe就ok了,向导还是很明确的
  • VB将报表数据导出到Excel,数据是以LIST列表的形式存在,导出为Excel表时,会对应每列每行的数据,程序原型是老外写的,经过了少量翻译,注意,在导出生成时,速度不是很快,导出的Excel文件可以用Excel2000及以上...
  • VB学习生成JavaBean

    2018-06-08 15:31:00
    Application.ActiveWorkbook.Path 获取当前excel文件所在的文件地址 Excel VBA表示当前工作簿,有Activeworkbook和Thisworkbook 两种表示方法,二者的相同点和区别是什么? thisworkbook指当前VBA代码所处的...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 153
精华内容 61
关键字:

vb中生成excel文件