精华内容
下载资源
问答
  • VB导出excel的三种方法

    2018-09-04 16:27:15
    VB6导出到Excel的三种方法全部编译通过,可以放心下载,文字描述较少,基本都是代码
  • VB6.0 导出excel 方法源代码,已测试通过
  • VB代码 从数据库快速导出数据到EXCEL

    热门讨论 2011-12-21 16:12:37
    代码实现,从数据库快速导出数据到EXCEL文件
  • VB导出excel 的方法

    2013-05-24 14:34:45
    VB导出excel 的方法
  • vb导出excel报表源代码

    热门讨论 2012-09-21 17:47:28
    VB 是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。...
  • VB代码实现导出为Excel

    2020-03-25 15:52:50
    需要安装Microsoft.Office.Interop.Excel ...VB代码实现导出为Excel Private Function ToExcel(excelTalbe As DataTable, filePath As String, fileName As String) As Boolean Dim app As New Micros...

    需要安装Microsoft.Office.Interop.Excel
    前期网上寻找并修改为可用的方法
    VB代码实现导出为Excel

        Private Function ToExcel(excelTalbe As DataTable, filePath As String, fileName As String) As Boolean
            Dim app As New Microsoft.Office.Interop.Excel.Application()
            Try
                app.Visible = False
                Dim wBook As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Add(True)
                Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet = wBook.Sheets(1)
                wSheet.Name = fileName
                Dim objData(excelTalbe.Rows.Count + 1, excelTalbe.Columns.Count) As Object
                '首先将数据写入到二维数组中
                For i As Integer = 0 To excelTalbe.Columns.Count - 1
                    objData(0, i) = excelTalbe.Columns(i).ColumnName
                Next
                If (excelTalbe.Rows.Count > 0) Then
                    For i As Integer = 0 To excelTalbe.Rows.Count - 1
                        For j As Integer = 0 To excelTalbe.Columns.Count - 1
                            objData(i + 1, j) = excelTalbe(i)(j)
                        Next
                    Next
                End If
                Dim startCol As String = "A" '计算要替换的区域
                Dim iCnt As Integer = ((excelTalbe.Columns.Count - 1) \ 26)
                Dim endColSignal As String = IIf(iCnt = 0, "", Chr(Asc("A") + iCnt - 1).ToString())
                Dim endCol As String = endColSignal + Chr((Asc("A") + excelTalbe.Columns.Count - iCnt * 26 - 1)).ToString
                Dim range As Microsoft.Office.Interop.Excel.Range = wSheet.Range(startCol + "1", endCol + (excelTalbe.Rows.Count + 1).ToString)
                range.Value = objData
                range.EntireColumn.AutoFit()
                wSheet.Range(startCol + "1", endCol + "1").Font.Bold = 1
    
    
                '禁止弹出保存和覆盖的询问提示框
                app.DisplayAlerts = False
                app.AlertBeforeOverwriting = False
    
                '保存工作薄
                wSheet.SaveAs(filePath)
                wBook.Close()
    
                app.Quit()
                GC.Collect()
                Return True
            Catch ex As Exception
                MessageBox.Show("导出Excel出错!错误原因:" + ex.Message, "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
                '强制结束进程
                Dim t As IntPtr = New IntPtr(app.Hwnd)
                Dim k As Integer = 0
                GetWindowThreadProcessId(t, k)
                Dim p As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessById(k)
                p.Kill()
                Return False
            End Try
        End Function
    
    展开全文
  • VB将Listview数据导出到Excel表格的实例
  • VB导出EXCEL源代码

    2011-08-08 08:31:23
    VB中GRID表中的内容导出到EXCEL中
  • VB.net导出EXCEL代码

    2012-06-14 09:53:26
    VB.net导出EXCEL代码
  • VB工程中源代码导出工具

    千次阅读 2015-12-11 11:41:45
    i = ThisWorkbook.VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines 'if code count>=1,export 'else skip If i >= 1 Then Select Case vbc.Type Case vbext_ct_ClassModule, vbext_ct_Document '...

    Sub exportVBSourceTool()
    
    Dim ExportPath As String, ExtendName As String
    Dim vbc As VBComponent
    Dim i%
    
        'ExportPath = ThisWorkbook.Path
        ExportPath = "C:\export_VBASource"  'make sure the folder is exist before run
    
        For Each vbc In Application.VBE.ActiveVBProject.VBComponents
            'get module code line count
            i = ThisWorkbook.VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
            
            'if code count>=1,export
            'else skip
            If i >= 1 Then
                Select Case vbc.Type
                Case vbext_ct_ClassModule, vbext_ct_Document    'class module,excel object
                    ExtendName = ".Cls"    'set extension name
                Case vbext_ct_MSForm    'form
                    ExtendName = ".frm"
                Case vbext_ct_StdModule    'module
                    ExtendName = ".Bas"
                End Select
                If ExtendName <> "" Then
                    vbc.Export ExportPath & "\" & vbc.Name & ExtendName
                End If
            End If
        Next
    End Sub

    依赖库:Microsoft Visual Basic for Application Extensibility 5.3

    另,执行时可能需要设置宏安全:File -> Options -> Truest Center -> Micro Settings


    展开全文
  • VB把Listview中显示的内容导出到Excel中,用到了控件:MSCOMCTL.OCX和COMDLG32.OCX,我觉得挺实用的一个报表显示实例。
  • VB编写的文本文件和Excel文件导入导出到数据库的小程序,功能单一,没有其它的功能,还有点不完善,希望大家帮忙完善。 程序支持:数据库写入到文本文件、文本文件导入到数据库、数据库写入到Excel、Excel导入到...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • VB导出Excel

    千次阅读 热门讨论 2014-08-06 20:47:08
    VB与Excel交互时,如何才能讲

    VB与Excel交互时,如何才能将VB中控件的内容导出到Excel呢?

    1、首先在VB中添加引用Microsoft Excel 14.0 Object Library

    2、在VB中定义Excel对象

    Dim xlApp as Excel.Application

    Dim xlBook as Excel.Workbook

    Dim xlSheet as Excel.Worksheet

    3、在VB中写入执行Excel操作的代码

    Set xlApp=new Excel.Application '建立xlApp的引用

    Set xlApp=CreateObject(" Excel.application") ' 创建Excel对象

    Set xlBook =xlApp.Workbooks.add ' 添加工作簿

    xlApp.SheetsInNewWorkbook=1 ‘设置打开工作表数量

    xlApp.VIsible=True '设置Excel可见

    xlApp.Caption="123" ’ 设置名称为123

    xlApp.ActiveSheet.Cells(i,j).Value=" " '给活动工作表中的单元格赋值

    以上是基本的操作,当然对于Word和Access的操作也差不多,不同的只是定义对象

    a、在添加工作簿时也可以将语句改为 Set xlBook=xlApp.Workbooks.Open("路径+文件名")

          两者的不同是Add是添加一个新的工作簿,Open是打开已经存在工作簿

    b、xlApp.SheetsinNewWorkbook=1 后边的值为打开工作表的数量,

    要注意的是:MSHFlexGrid控件是以第0行和第0列开始的,而Excel是以第1行第1列开始的,在导出MSHFlexGrid控件中的数据时要注意了。

    展开全文
  • VB代码生成PDF文件

    2012-10-20 09:28:05
    各种功能齐全,添加文本,图片,表格,报表等等
  • 代码VB导出Excel

    千次阅读 2016-05-03 21:21:33
    VB导出到excel
        Public Sub Export(frmName As Form, FlexGridName As String)
    
        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
        Set xlSheet = xlBook.Worksheets(1)
    
        '向表中添加数据
        Dim intRowIndex As Integer
        Dim intColIndex As Integer
        
        With frmName.Controls(FlexGridName)  '查找控件
            '填充数据到Sheet1
            For intRowIndex = 0 To .Rows - 1
                For intColIndex = 0 To .Cols - 1
                    xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
                Next intColIndex
            Next intRowIndex
        End With
        
        xlApp.Visible = True
        Screen.MousePointer = vbDefault
        Exit Sub
        
    Err_Proc:
        Screen.MousePointer = vbDefault
        MsgBox "请确认您的电脑已安装Excel!", vbExclamation, "提示"
    End Sub
    

    Export Me, "MSHFlexGrid1"

    展开全文
  • VB6.0导出excel的方法源代码,可方便读取excel的数据
  • 内容索引:VB源码,报表打印,Listview,Excel VB将Listview数据输出到Excel表格的实例,用到了控件:MSCOMCTL.OCX和COMDLG32.OCX,仅供学习者参考一下。
  • 内容索引:VB源码,报表打印,Excel VB将数据导出到Excel表格文件中,在VB程序中,数据是以LIST列表的形式存在,导出为Excel表时,会对应每列每行的数据,程序原型是老外写的,经过了少量翻译,注意,在导出生成时,...
  • vb导出到Excel

    2012-04-25 13:28:52
    vb导出到Excel,代码可以正确执行,可是导入一次后,就不行了,关闭程序,在运行则可以
  • VB.NET纯代码实现Excel文件的创建 有代码完全模拟Excel文件写法,最终实现无需Excel程序即可自动创建Excel文件
  • VB.NET2005 DATAGRIDVIEW导出EXCEL含格式控件代码
  • VB.net导出Excel

    热门讨论 2017-11-19 21:25:33
    现在的学习抽象多余具体,在实现导出Excel功能的时候就有体现,把这个功能写成一个模块使用的时候去调这个模块。 Imports System.Windows.Forms Imports Microsoft.Office.Interop.Excel Module ImportToExcel ...
  • 数据导出到Excel的6种方法(VB6)

    千次阅读 2020-02-12 12:48:04
    数据导出到Excel的6种方法(VB6) 在数据操作中,特别是与数据库相关的操作中,我们需要经常导出数据到Excel表格中,下面我们提供了六种方式来将数据导出到Excel表格中: 如果大家C币比较多的话,可以直接下载我整理好...
  • 手机号码归属地批量查询VB6源码。可批量查询手机号码归属地,查询结果可导出到电子表格或文本文档,附有VB代码和号段数据库。
  • VB.NET中导出数据到WORD中 在VB.NET中导出数据到WORD中v在VB.NET中导出数据到WORD中
  • VB.NET SQL查询导出EXECL

    2018-07-16 07:20:20
    VB.NET SQL查询导出EXECL;导出速度快,代码简单高效。需要引用 Microsoft.Office.Interop ;
  • 这是我自己编写的,绝对能用!VB最简易代码,利用AccessMdb数据查询功能,实现数据操作EXCEL导入与导出

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 11,267
精华内容 4,506
关键字:

vb怎么导出代码