[vb打印excel表格]VB打开EXCEL的方法

[vb打印excel格]VB打开EXCEL的 [vb打印excel表格]VB打开EXCEL的方法 篇一 : VB打开EXCEL的方法 ?VB打开EXCEL的方法 一楼的没有指明 Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open 这种语法同样excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application Set xlApp = CreateObject Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells = “测试” „写入内容 xlBook.SaveAs „保存文件 xlApp.Quit Set xlApp = Nothing 本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。 ?打开相对路径下的文件 Private Sub Command1_Click Shell App.Path & “\aaa.bat” End Sub 还有更简单的: Private Sub Command1_Click Shell “aaa.bat” End Sub aaa.bat就是那个BAT的名字. 那就不一定...... 因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件 代码: Private Sub Command1_Click Shell “explore.exe aaa.jpg” End Sub ?VB调用EXCEL自带的查询功能在表格中查找内容 Private Sub ComCx_Click On Error GoTo 50 i = xlBook.Worksheets.Range.Find).Row ?将程序中所有这一类的对象的某一属性全部更改为需要的属性 Dim Item As Object „定义对象 For Each Item In Me If TypeOf Item Is TextBox Then Item.Text = ““ „将所有TextBox的Text属性值变为空 If TypeOf Item Is ComboBox Then Item.ListIndex = -1 „将所有的ComboBox的ListIndex属性值变为“-1” Next If Not i = 0 Then Dm = Trim Sm = Trim.Cells.Value) Dw = Trim.Cells.Value) TexSm.Text = Sm & “ “ & ““ ComQd.Visible = True GoTo 100 End If 50 TexSm.Text = “没有找到相匹配的信息～” 100 End Sub ?如何使编的程序可以调用excel 首先要引用 再定义对象及其类型 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject „创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open xlApp.Visible = False Set xlSheet = xlBook.Worksheets ?另存为 ChDir “D:\” ActiveWorkbook.SaveAs Filename:=“D:\合金厂产品质检明细表.xls”, FileFormat:=xlExcel8, _ Password:=““, WriteResPassword:=““, ReadOnlyRecommended:=False, _ CreateBackup:=False VB是常用的应用软件开发工具之一，由于VB的报表功能有限， 而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作 带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统， 如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表，其方法如下: 1、在工程中引用Microsoft Excel类型库: 从”工程”菜单中选择”引用”栏;选择Microsoft Excel 9.0 Object Library，然后选择”确定”。表示在工程中要引用 EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象: Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令: Set xlApp = CreateObject „创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open „打开已经存在的EXCEL工件簿文件 xlApp.Visible = True „设置EXCEL对象可见 Set xlSheet = xlBook.Worksheets „设置活动工作表 xlSheet.Cells =值 „给单元格赋值 xlSheet.PrintOut „打印工作表 xlBook.Close „关闭工作簿 xlApp.Quit „结束EXCEL对象 Set xlApp = Nothing „释放xlApp对象 xlBook.RunAutoMacros „运行EXCEL启动宏 xlBook.RunAutoMacros „运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对 EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成 VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。 二、 EXCEL的宏功能: EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器， 其中有一工程属性窗口，点击右键菜单的”插入模块”，则增加一个 “模块1”，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏:一个是启动宏 ，另一个是关闭宏。它们的特性是:当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭 宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令 xlBook.RunAutoMacros 和xlBook.RunAutoMacros 来运行启动宏和关闭宏。 三、 VB与EXCEL的相互勾通: 充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下: 在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程 序在 执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。 如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。 四、举例: 1、在VB中，建立一个FORM，在其上放置两个命令按钮，将,ommand1的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 = ““ Then „判断EXCEL是否打开 Set xlApp = CreateObject „创建EXCEL应用类 xlApp.Visible = True „设置EXCEL可见 Set xlBook = xlApp.Workbooks.Open „打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets „打开EXCEL工作表 xlsheet.Activate „激活工作表 xlsheet.Cells = “abc” „给单元格1行驶列赋值 xlBook.RunAutoMacros „运行EXCEL中的启动宏 Else MsgBox End If End Sub Private Sub Command2_Click If Dir ““ Then „由VB关闭EXCEL xlBook.RunAutoMacros „执行EXCEL关闭宏 xlBook.Close „关闭EXCEL工作簿 xlApp.Quit „关闭EXCEL End If Set xlApp = Nothing „释放EXCEL对象 End End Sub 2、在,盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为”bb.xls”的EXCEL文件。 3、在”bb.xls”中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘: Sub auto_open Open “d:\temp\excel.bz” For Output 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的无缝连接。 ?JDE代码查询程序源代码 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim Dm As String Dim Sm As String Dim Dw As String Dim i As Integer Dim SouS As Object Private Sub ComCx_Click „i = 2 „Do While i ““ Then ComFgYy1.BackColor = &HFF& ComFgYy2.BackColor = &HFF& Cf = 1 End If end select end sub 运行效果:如果case中Cf=1执行，则CfZ的值变为1，并弹出消息框 ?如何判断字符串为是否为数字 判断表达式的运算结果是否为数字，返回 Boolean 值。 描述 返回 Boolean 值指明表达式的值是否为数字。 语法 IsNumeric expression 参数可以是任意表达式。 说明 如果整个 expression 被识别为数字，IsNumeric 函数返回 True;否 则函数返回 False。 如果 expression 是日期表达式 ，IsNumeric 函数返回 False。下面的示例利用 IsNumeric 函数决 定变量是否可以作为数值: Dim MyVar, MyCheck MyVar = 53 „赋值。 MyCheck = IsNumeric „ 返回 True。 MyVar = “459.95” „ 赋值。 MyCheck = IsNumeric „ 返回True。 MyVar = “45 Help” „ 赋值。 MyCheck = IsNumeric „ 返回 False。 ?在frmlogin中设置用户及密码检查功能 Dim LogIn As Boolean Select Case ComUserName.Text Case “测试” If txtPassword.Text = “.....” Then txtUserName.Text = “测试” LogIn = True Else LogIn = False End If Case “魏敏” If txtPassword.Text = “wm” Then txtUserName.Text = “魏敏” LogIn = True Else LogIn = False End If Case “黄选华” If txtPassword.Text = “hxh” Then txtUserName.Text = “黄选华” LogIn = True Else LogIn = False End If Case “胡丽萍” If txtPassword.Text = “hlp” Then txtUserName.Text = “胡丽萍” LogIn = True Else LogIn = False End If Case “张岚” If txtPassword.Text = “zl” Then txtUserName.Text = “张岚” LogIn = True Else LogIn = False End If Case “冯现萍” If txtPassword.Text = “fxp” Then txtUserName.Text = “冯现萍” LogIn = True Else LogIn = False End If Case “陶学群” If txtPassword.Text = “txq” Then txtUserName.Text = “陶学群” LogIn = True Else LogIn = False End If Case “陶明艳” If txtPassword.Text = “tmy” Then txtUserName.Text = “陶明艳” LogIn = True Else LogIn = False End If End Select ?将一个文件复制到另外一个目录，并改变名字 Dim xlFile, xlFileCopy As String xlFile = App.Path & “\xls\合金厂产品质检明细表.xls” xlFileCopy = “C:\xlTemp\” & “Copy” & Format & “.xc” FileCopy xlFile, xlFileCopy ?用format函数自定义日期/时间格式 ?VB读取一个文件的创建日期: 我看网上找到一个，用fso的 Dim file As Variant Dim fso As Variant Set fso = CreateObject Set file = fso.GetFile MsgBox vbLf & “创建时间:” & file.DateCreated & _ vbLf & “修改时间:” & file.DateLastModified & _ vbLf & “访问时间:” & file.DateLastAccessed 另外还有一个问题，就是获取文件版本，可以使用 Declare Function GetFileVersionInfo Lib “version.dll” _ Alias “GetFileVersionInfoA” As Long 但是我对其中的一些参数意思不太明白。 lptstrfilename自然是文件的名字，应该是包括全路径的;后面三个 参数是什么意思我就不太懂了，特别的，最后一个类型是any，这是 什么东东, ?删除指定位置的普通文件 Private Declare Function FindFirstFile Lib “kernel32” Alias “FindFirstFileA” As Long Private Declare Function FindNextFile Lib “kernel32” Alias “FindNextFileA” As Long Private Declare Function FindClose Lib “kernel32” As Long Private Declare Function FileTimeToSystemTime Lib “kernel32” As Long Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Const MAX_PATH = 260 Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Dim Fdata As WIN32_FIND_DATA Private Sub DelFiles On Error Resume Next Dim R1 As Long, R2 As Long, TmpTime As String Dim SYSTM As SYSTEMTIME R1 = FindFirstFile If = False Then FileTimeToSystemTime Fdata.ftCreationTime, SYSTM TmpTime = CStr & “-” & CStr & “-” & CStr & “ “ & CStr & “:” & CStr & “:” & CStr If CDate 篇二 : VB打印excel Private Sub Command1_Click Dim S As String, FileName As String, i As Integer, j AsInteger Dim xlApp Dim xlBook Dim xlSheet FileName = App.Path & “\1.xls”„程序所在目录下的文件,请修改 Set xlApp =CreateObject?创建EXCEL对象 xlApp.DisplayAlerts =False?不显示对话框 Set xlBook =xlApp.Workbooks.Open?打开已经存在的EXCEL工件簿文件 xlApp.Visible =True?设置EXCEL对象可见 Set xlSheet=xlBook.Worksheets?设置活动工作表 xlSheet.Cells = ““„清除单元格内容 xlSheet.Cells =1?修改单元格内容 xlSheet.PrintOut „打印工作表 xlBook.SaveAsFileName:=FileName?保存工作表,结束时一定别忘了 保存 xlBook.Close „关闭工作簿这里的True表示退出时,)保存修改 xlApp.quit?结束EXCEL对象 Set xlApp =Nothing?释放xlApp对象 End Sub