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.Applica...
  • wzk456
  • wzk456
  • 2017年02月08日 15:20
  • 4665

vb 操作excel(持续更新)

Private Sub Command1_Click()    Dim xlApp As Object '定义EXCEL类    'Dim xlApp As Excel.Application    ...
  • yangjun07167
  • yangjun07167
  • 2010年07月11日 22:56
  • 3848

VB操作EXCEL文件大全

Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Workshe...
  • laotou99
  • laotou99
  • 2013年10月23日 10:31
  • 18064

VB操作EXCEL

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

VB中操作Excel的一般做法(读取)

1、定义Excel操作变量Dim objExcelFile As Excel.ApplicationDim objWorkBook As Excel.WorkbookDim objImportShee...
  • venus0314
  • venus0314
  • 2006年01月09日 10:37
  • 3326

[VB/VBA]SQL操作EXCEL

 [VB/VBA]SQL操作EXCEL1、添加引用      (1)、Microsoft Active Data Objects 2.8 Library      (2)、Microsoft ADO ...
  • szwangdf
  • szwangdf
  • 2008年07月16日 12:01
  • 4385

vb调用excel方法大全

 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,...
  • asftrhgjhkjlkttttttt
  • asftrhgjhkjlkttttttt
  • 2009年11月08日 22:06
  • 4482

VB控制EXCEL并使用SQL语句

Dim cn As ADODB.ConnectionSet cn = New ADODB.ConnectionDim x, l As LongDim sql As Stringx = 2With cn...
  • jackeyabc
  • jackeyabc
  • 2007年01月23日 14:57
  • 1106

【转】用VB操作Excel详解

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

VB读写Excel

    最近用excel和VB比较多,就简单的学习了一下VB中对Excel的处理。今天就介绍一些吧。     在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中...
  • tornadofeng
  • tornadofeng
  • 2007年09月27日 15:54
  • 31095
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB操作Excel大全
举报原因:
原因补充:

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