VB操作Excel大全

原创 2007年09月20日 18:09:00

--------简单的读取-------------------
    Public xlApp As Excel.Application
    Public xlBook As Excel.Workbook
    Public xlSheet As Excel.Worksheet

Public Sub OpenExcel()
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:/Calender.xls")
    Set xlSheet = xlBook.Worksheets(1)
End Sub

Public Sub OpenExcel()
ReadedString =xlSheet.Cells(x, y)
End Sub

Public Sub CloseExcel()
    xlBook.Close (False)
    xlApp.Application.Quit
    Set xlApp = Nothing
End Sub

--------以下为导出(包括各种判断)------------------
g_ExcelSavePath ' 保存路径
g_ExcelFileName '文件名 eg:xx.csv xxx.xls

"判断是否存在,覆盖?
If Dir(g_ExcelSavePath & g_ExcelFileName) <> "" Then
    If MsgBox("文件:" & "  " & g_ExcelSavePath & g_ExcelFileName & "  " & "既在。覆盖?", vbQuestion + vbOKCancel + vbDefaultButton2, "XXXシステム") = vbCancel Then
        Exit Sub
    Else
        Kill (g_ExcelSavePath & g_ExcelFileName)
    End If
End If

"判断是否打开
If ExcelIsOpen(g_ExcelFileName) = True Then                 'Excel is Open
    modGlobal.MsgBoxShow.ShowReturnFalse "MakerPrint", "6009"
    Exit Sub
End If

'定义
    Dim CurrentApp          As Excel.Application
    Dim CurrentBook         As Excel.Workbook
    Dim CurrentSheet        As Excel.Worksheet
    Dim CurrentQuery        As Excel.QueryTable

    strExcelFielName = g_ExcelSavePath & g_ExcelFileName
   
    If CurrentApp Is Nothing Then
        Set CurrentApp = CreateObject("Excel.Application")
    End If
   
   
    If Dir(strExcelFielName) = "" Then
        Set CurrentBook = CurrentApp.Workbooks.Add
        CurrentBook.SaveAs strExcelFielName
    Else
        Kill (strExcelFielName)
        Set CurrentBook = CurrentApp.Workbooks.Add
        CurrentBook.SaveAs strExcelFielName
    End If
   
    CurrentApp.Visible = False
    CurrentApp.DisplayAlerts = False '保存,退出时候不弹出警告

    CurrentSheet.Name = strMakerName

    CurrentBook.Close True
'    CurrentBook.Save
    CurrentApp.DisplayAlerts = True
    CurrentApp.Quit
   
    Set CurrentQuery = Nothing
    Set CurrentSheet = Nothing
    Set CurrentBook = Nothing
    Set CurrentApp = Nothing

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

VB中对EXCEL的各种操作

全面控制 Excel  首先创建 Excel 对象,使用ComObj:  Dim ExcelID as Excel.Application  Set ExcelID as new Excel.A...

【转】用VB操作Excel详解 .

用VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

使用VB或VC操作Excel 2003

1.VB操作EXCEL2003 [vb] view plaincopy ‘*************************************...

VB 操作Excel

全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Appl...

VB操作EXCEL

看了网上很多相关的博客,大都不太完全适用,在这里把一上午摸索出来的结果总结出来。形成一个更适于上手的例子。      首先工程--à引用,选择Microsoft office EXCEL 14.0 l...

VB6操作EXCEL导入数据库

VB6操作EXCEL导入导出数据库

vb.net操作Excel表格类

Public Class Execl Private ExcelApp As Microsoft.Office.Interop.Excel.Application Private Ex...

VB.NET使用EXCEL常见操作

首先,须在项目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打开...

VB.Net程序设计:Excel的基本操作模式

添加excel的引用 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Wor...

【转】用VB操作Excel详解

用VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引...
  • shaoz
  • shaoz
  • 2011-08-11 10:09
  • 3697
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)