精华内容
下载资源
问答
  • VB 打开文件

    2012-01-15 20:01:25
    VB 打开文件 2009年07月21日  关于VB中Shell及ShellExecute的总结  shell 函数只可以执行.exe .com .bat 的可执行文件。  ShellExecute 是个api函数,可以执行与Windows系统相关联的文件。  ShellExecute...
    VB 打开文件 
    2009年07月21日
      关于VB中Shell及ShellExecute的总结
      shell 函数只可以执行.exe .com .bat 的可执行文件。
      ShellExecute 是个api函数,可以执行与Windows系统相关联的文件。
      ShellExecute声明:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
      比如:
      shell "c:\1.doc" 应该报错的,因为shell只能执行.exe .com .bat
      正确的应为:ShellExecute Me.hwnd, "open", "C:\1.doc", "", "", 0
      打开某个网址:ShellExecute Me.hwnd, "open", http://www.sina.com, "", "", 5
      打开Excel:ShellExecute hwnd, "open", "C:\1.xls", vbNull, vbNull, SW_SHOWNORMAL
      打开文件夹
      shell "explorer 文件夹",1
      运用命令指示符:shell "cmd /c start D:\music"  '打开d盘下music的文件夹
      打开网址:
      Shell "C:\Program Files\TheWorld 2.0\TheWorld.exe http://www.baidu.com", 1 '用别的浏览器打开网址
      Shell "explorer.exe http://www.baidu.com", 1 '用IE浏览器打开网址
      调用系统计算器Shell "calc.exe", 3
      调用记事本Shell "NotePad ", vbNormalFocus
      (打开某个记事本:Shell "NOTEPAD.EXE " & 文档路径, vbNormalFocus)
      打开任务管理器:Shell "c:\windows\system32\taskmgr.exe", 1
      打开资源管理器:Shell "c:\windows\explorer.exe " & path, 1
      注销用户 Shell "shutdown -l"
      关闭系统 Shell "shutdown -S -t 0"
      重启 Shell "shutdown -R -t 0"
      0是代表响应的时间
      结束explorer.exe进程
      Shell "taskkill /f /im explorer.exe ", vbHide
      (结束其它进程也是这样,如:shell "taskkill /f /im ttplayer.exe")
      VB ShellExecute 函数应用
      声明
      Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA _ (ByVal hWnd As Long, ByVal lpOperation As String, _  ByVal lpFile As String, ByVal lpParameters As String, _  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
      原型
      HINSTANCE ShellExecute(
        HWND hwnd,          父窗口句柄
        LPCTSTR lpOperation,     操作,open,print,explore
        LPCTSTR lpFile,       文件名,前面可加路径
        LPCTSTR lpParameters,    参数
        LPCTSTR lpDirectory,     默认文件夹
        INT nShowCmd         显示方式
      );
      打开一个应用程序
      ShellExecute(this-m_hWnd,open,calc.exe,,, SW_SHOW );
      或
      ShellExecute(this-m_hWnd,open,notepad.exe,cMyLog.log,,SW_SHOW );
      打开一个同系统程序相关连的文档
      ShellExecute(this-m_hWnd,open,cabc.txt,,,SW_SHOW );
      激活相关程序,发送EMAIL
      ShellExecute(this-m_hWnd,open,mailtoxxf@5y6s.com,,, SW_SHOW );
      打开文件夹
      ShellExecute(handle, open, path_to_folder, NULL, NULL, SW_SHOWNORMAL)
      用系统打印机打印文档
      ShellExecute(this-m_hWnd,print,cabc.txt,,, SW_HIDE);
      本函数还可以用来连接到网页,照下面写就行了:
      ShellExecute 0&, vbNullString, , vbNullString, vbNullString, vbNormalFocus
        或者这样写来发送Email:
      ShellExecute me.hwnd, open, mailtoxxf@5y6s.com, vbNullString, vbNullString, SW_SHOW
      另外有ShellExecute的替代用法,更加简单实用,不用API,一句Shell搞定!
      连接到网页:
        Shell rundll32.exe url.dll,FileProtocolHandler
      打开文件:
        Shell rundll32.exe url.dll,FileProtocolHandler & App.Path & SHELLTST.TXT
      ShellExecute API应用整理
      作者 yanek
      1. 执行“打开”,“查找”,“资源管理器”和“打印”
      必要的声明:
      ’ nShowCmd
      Public Const SW_HIDE = 0
      Public Const SW_SHOWNORMAL = 1
      Public Const SW_SHOWMINIMIZED = 2
      Public Const SW_SHOWMAXIMIZED = 3
      Public Const SW_MAXIMIZE = 3
      Public Const SW_SHOWNOACTIVATE = 4
      Public Const SW_SHOW = 5
      Public Const SW_MINIMIZE = 6
      Public Const SW_SHOWMINNOACTIVE = 7
      Public Const SW_SHOWNA = 8
      Public Const SW_RESTORE = 9
      ’ Error Code
      Public Const ERROR_FILE_NOT_FOUND = 2
      Public Const ERROR_PATH_NOT_FOUND = 3
      Public Const ERROR_BAD_FORMAT = 11
      Public Const SE_ERR_FNF = 2
      Public Const SE_ERR_PNF = 3
      Public Const SE_ERR_ACCESSDENIED = 5
      Public Const SE_ERR_OOM = 8
      Public Const SE_ERR_SHARE = 26
      Public Const SE_ERR_ASSOCINCOMPLETE = 27
      Public Const SE_ERR_DDETIMEOUT = 28
      Public Const SE_ERR_DDEFAIL = 29
      Public Const SE_ERR_DDEBUSY = 30
      Public Const SE_ERR_NOASSOC = 31
      Public Const SE_ERR_DLLNOTFOUND = 32
      Public Declare Function ShellExecute Lib shell32.dll _
      Alias ShellExecuteA _
      (ByVal hwnd As Long, _
      ByVal lpOperation As String, _
      ByVal lpFile As String, _
      ByVal lpParameters As String, _
      ByVal lpDirectory As String, _
      ByVal nShowCmd As Long) As Long
      “打开“操作
      ShellExecute Me.hwnd, open, _
      Text1.Text, _
      vbNullString, vbNullString, _
      SW_SHOWNORMAL
      “查找“操作
      ShellExecute Me.hwnd, find, _
      LocalDir, _
      vbNullString, vbNullString, _
      SW_SHOWNORMAL
      “打印“操作
      ShellExecute Me.hwnd, print, _
      Text1.Text, _
      vbNullString, vbNullString, _
      SW_SHOWNORMAL
      “资源管理器“
      ShellExecute Me.hwnd, explore, _
      LocalDir, _
      vbNullString, vbNullString, _
      SW_SHOWNORMAL
      打开“我的文档“
      ShellExecute Me.hwnd, _
      open, explorer, _
      vbNullString, vbNullString, _
      SW_SHOWNORMAL
      打开“我的电脑“
      ’ 我的电脑
      ’ HKEY_CLASSES_ROOTCLSID’ {20D04FE0-3AEA-1069-A2D8-08002B30309D}
      ShellExecute Me.hwnd, open, _
      explorer, _
      {20D04FE0-3AEA-1069-A2D8-08002B30309D}, _
      vbNullString, SW_SHOWNORMAL
      打开“网上邻居“
      ’ 网上邻居
      ’ HKEY_CLASSES_ROOTCLSID’ {208D2C60-3AEA-1069-A2D7-08002B30309D}
      ShellExecute Me.hwnd, open, _
      explorer, _
      {208D2C60-3AEA-1069-A2D7-08002B30309D}, _
      vbNullString, SW_SHOWNORMAL
      打开“回收站“
      ’ 回收站
      ’ HKEY_CLASSES_ROOTCLSID’ {645FF040-5081-101B-9F08-00AA002F954E}
      ShellExecute Me.hwnd, open, _
      explorer, _
      {645FF040-5081-101B-9F08-00AA002F954E}, _
      vbNullString, SW_SHOWNORMAL
      ShellExecuteEx API演示
      必要声明:
      Public Type SHELLEXECUTEINFO
      cbSize As Long
      fMask As Long
      hwnd As Long
      lpVerb As String
      lpFile As String
      lpParameters As String
      lpDirectory As String
      nShow As Long
      hInstApp As Long
      ’ Optional fields
      lpIDList As Long
      lpClass As String
      hkeyClass As Long
      dwHotKey As Long
      hIcon As Long
      hProcess As Long
      End Type
      ’ fMask
      Public Const SEE_MASK_CLASSKEY = &H3
      Public Const SEE_MASK_CLASSNAME = &H1
      Public Const SEE_MASK_CONNECTNETDRV = &H80
      Public Const SEE_MASK_DOENVSUBST = &H200
      Public Const SEE_MASK_FLAG_DDEWAIT = &H100
      Public Const SEE_MASK_FLAG_NO_UI = &H400
      Public Const SEE_MASK_HOTKEY = &H20
      Public Const SEE_MASK_ICON = &H10
      Public Const SEE_MASK_IDLIST = &H4
      Public Const SEE_MASK_INVOKEIDLIST = &HC
      Public Const SEE_MASK_NOCLOSEPROCESS = &H40
      Public Declare Function ShellExecuteEX Lib shell32.dll _
      Alias ShellExecuteEx _
      (lpExecInfo As SHELLEXECUTEINFO) As Boolean
      执行调用“文件属性“对话框
      Dim dwReturn As Long
      Dim lpExecInfo As SHELLEXECUTEINFO
      With lpExecInfo
      .cbSize = Len(lpExecInfo)
      .fMask = SEE_MASK_NOCLOSEPROCESS Or _
      SEE_MASK_INVOKEIDLIST Or _
      SEE_MASK_FLAG_NO_UI
      .hwnd = Me.hwnd
      .lpVerb = properties
      .lpFile = LocalDir & File1.FileName
      .lpParameters = vbNullChar
      .lpDirectory = vbNullChar
      .nShow = SW_SHOWNORMAL
      .hInstApp = 0
      .lpIDList = 0
      End With
      dwReturn = ShellExecuteEX(lpExecInfo)
      VB SHELL语句用法心得2007年11月09日 星期五 18:22语法:ID=shell(“文件.exe”,Style)
      功能:以Style参数所指定的方式来打开可执行文件窗口形式
      ID:属Integer数据类型代表调用shell函数的传回值。
      文件名.exe 其扩展名可省略文件名可以使用变量若有需要应该加上磁盘驱动器名与路径
      一. 调用系统“创建快捷方式”向导
      是否为VB不支持创建快捷方式而于着急呢?虽然 您可以调用vb5stkit.Dll中的fCreateShellLink函 数,但它是为安装程序设计的,快捷方式的默认路径 总是从当前用户的“\Start Menu\Programs”开始,也 就是说,如果您的Windows95装在C盘上,您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。
      现在,给大家介绍一种极为方便、巧妙的方法: 用Shell语句调用系统“创建快捷方式”向导。
      新建一个项目,在窗体上放一个按钮,双击此按 钮,加入以下代码:
      Private Sub Command1_Click()
      Open App.Path & "\temp.lnk" For Output As #1
      Close #1 '以上两句在程序所在目录建立一 个临时文件
      Shell "Rundll32.exe AppWiz.Cpl,NewLinkHere
      "& App.Path & "\temp.lnk"
      End Sub
      (注意:Shell语句中NewLinkHere后面跟着一个 空格才是引号,否则将出错。)
      运行程序,按一下命令按钮,怎么样?“创建快 捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功 能了。Enjoy!
      二. Rundll32.exe的用途
      我们知道,用Shell语句只能调用可执行文件,即 exe、com、bat和pif文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这 些用法,也许会给您带来一点惊喜。
      1.要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码:
      Shell "Rundll32.exe
      Shell32.dll,Control_RunDLL Timedate.cpl"
      至于打开其他控制面板文件,相信您一定能够举 一反三,尝试一下,换个文件名就成了。
      2.要运行某一快捷方式(*.lnk)则可以用以下 代码:
      She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件,包括 路径,下同。
      3. 也可以这样写来打开ActiveMovie控制:
      Shell "RUNDLL32.EXE amovie.ocx,Rundll",1
      而用Shell "RUNDLL32.EXE amovie.ocx,Rundll /play X",1 将直接播放媒体文件。
      4. Shell "rundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保 护啦,如果你写了一个屏幕保护程序,那么可以在安 装程序中写上它,而不一定要装到system目录下。顺 便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。
      5.按住shift键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。但现在, 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。
      6. 甚至能用这样一句来打印文件(包括HTML所 支持的所有文本与图像格式):
      Shell "rundll32.exe MSHTML.DLL,PrintHTML X”, 1
      怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了,它 可是系统运行必不可少的部件呢!其实 Shell+Rundll32还能调用其他许多系统功能,比如关 于NetMeeting和Telnet方面的。如果您有兴趣,可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看,本文的内容大都是从那里“抄”来的。只要 有足够的决心、信心、耐心,您一定能发现更多有价 值的东西。Good luck!
      Shell 函数
      执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
      语法
      Shell(pathname[,windowstyle])
      Shell 函数的语法含有下面这些命名参数:
      部分 描述
      pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。
      Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。
      windowstyle 命名参数有以下这些值:
      常量 值 描述
      vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。
      VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。
      VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
      VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
      VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
      VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
      说明
      如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。
      注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。
      Shell 函数示例
      本示例使用 Shell 函数来完成一个用户指定的应用程序。
      ' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。
      Dim RetVal
      打开.exe文件
      Shell "打开文件的路径", vbNormalFocus
      
    展开全文
  • vb打开文件

    2011-11-11 23:13:51
    vb打开文件,内涵代码……………………………………………………………………………………
  • vb纯代码打开文件

    2011-11-30 21:46:32
    vb打开文件 纯代码打开的
  • VB打开磁盘文件

    2012-10-08 08:40:40
    这是用VB写的源代码,可以用它来打开电脑中磁盘及插入的U盘中的文件。是学习VB的不错例程。
  • VB打开任何文件源码

    2013-01-31 11:49:26
    使用VB编程打开任何文件的源码,在VB编程中有时要与其它程序或其它文件链接
  • VB打开HEX文件程序

    热门讨论 2011-03-29 13:48:49
    一个VB打开HEX文件的程序,有需要的可以下载参考下。
  • VB打开TXT文件

    2013-05-24 21:59:53
    要求打开TXT,而且要在那个程序所在的文件夹里打开 我为什么用Open App.Path & "\aa.txt" For Input As #1 没有用呢 app.path & "\aa.txt" aa.txt这个文件要放哪里
  • VB打开Excel文件

    万次阅读 2014-03-05 17:12:41
    (1)vb打开Excel    用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入  下面是EXCEL对象的详解 1 前言  做为一种简捷、系统的 Windows应用程序开发工具,VB具有强大的数据处理功能,提供了...
    (1)vb打开Excel
    
     
        用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入
        下面是EXCEL对象的详解

    1 前言

        做为一种简捷、系统的 Windows应用程序开发工具,VB具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库,被广泛应用于建立各种信息管理系统。但是,VB缺乏足够的、符合中文习惯的数据表格输出功能,虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表,但操作起来比较麻烦,中文处理能力也不理想。Excel在表格方面有着强大的功能,我们可以用VB编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel的控制句柄,从而直接控制Excel的一系列操作。本文结合自己的实践和体会,谈谈如何在VB6.0应用程序中调用Exce12000,供大家参考。

    2 Excel对象模型

        为了在VB应用程序中调用Excel,必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构,所提供的对象很多,涉及VB调用Excel时最可能用到的对象有:(见Microsoft Excel对象的文章)

    3 调用Excel

        在VB应用程序中调用Excel,实质是将Excel作为一个外部对象来引用,由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。

    3.1 在VB工程中添加对Excel类型库的引用

        为了能从VB应用程序中访问Excel丰富的内部资源,使Excel应用程序运行得更快,需要在VB工程中添加对Excel类型库的引用。具体步骤如下:
        1) 在VB应用程序中调用Excel,你的计算机系统中必须安装Excel。从VB5“工程”菜单中选择“引用”;
        2) 在“引用”对话框中选择Excel类型库:"Microsoft Excel9.0 Object Library"
        3) 单击左边小方框,使之出现“√”符号;
        4) 按“确定”退出。

    3.2 引用Application对象

        Application对象是Excel对象模型的顶层,表示整个Excel应用程序。在VB应用程序中调用Excel,就是使用Application对象的属性、方法和事件。为此,首先要声明对象变量:
      Dim VBExcel As Object
        或直接声明为Excel对象:
      Dim VBExcel As Excel.Application
        在声明对象变量之后,可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。

    1)用CreateObject函数生成新的对象引用:
      Set VBExcel=CreateObject ("Excel.Application")
        字符串“Excel.Application”是提供Excel应用程序的编程ID,这个变量引用Excel应用程序本身。

    2)用GetO场ect函数打开已存在的对象引用:
      Set AppExcel=GetObject("Temp.XLS")
        上面语句打开文件Temp.XLS。

    3)Application对象常用的属性、方法

    Visible属性,    取True或False,表明Excel应用程序是否可见。
    Left,Top属性,   Excel窗口的位置;
    Height, Width属,性Excel窗口的大小;
    WindowState属性,指定窗口的状态;
    Quit方法,       退出Microsoft Excel;
    Calculate方法,  重新计算所有打开的工作簿、工作表或单元格。
    Evaluate方法,   求值数学表达式并返回结果。

    3.3 使用Excel应用程序

        下面分类给出其中常用的属性和方法。
    1)使用工作薄
        Workbook对象代表Excel应用程序中当前打开的一个工作簿,包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。

    常用的方法有:
    Add方法:     创建新的空白工作簿,并将其添加到集合中。
    Open方法:    打开工作簿。
    Activate方法:激活工作簿,使指定工作簿变为活动工作簿,以便作为Active Workbook对象使用。
    Save方法:    按当前路径和名称保存现有工作簿(如是首次保存,则将其保存到缺省名称中,如BOOK1.XLS)。
    SaveAs方法:  首次保存工作簿或用另一名称保存工作簿。
    Close方法:   关闭工作簿。
    PrintOut方法:打印工作簿,语法为:
        PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)
        可选参数:
        From:打印的起始页号,如省略将从起始位置开始打印。
        To:打印的终止页号,如省略将打印至最后一页。
        Copies:要打印的份数,如省略将只打印一份。
        Preview:如果为True则Excel打印指定对象之前进行打印预览。如果为False或省略则立即打印该对象。
        Printer:设置活动打印机的名称。
        ToFile:如果为True则打印输出到文件。
        Collate:如果为True则逐份打印每份副本。
        下面语句将活动工作簿的2到5页打印3份:
        ActiveWorkbook.PrintOut From:=2 To 5 Copies:=3

    2)使用工作表
        Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。

    常用的属性、方法有:
    Worksheets属性:返回Sheets集合。
    Name属性:      工作表更名。
    Add方法:       创建新工作表并将其添加到工作簿中。
    Select方法:    选择工作表。
    Copy方法:      复制工作表。
    Move方法:      将指定工作表移到工作簿的另一位置。
    Delete方法:    删除指定工作表。
    PrintOut方法:  打印工作表。

        示例:将C盘工作簿中的工作表复制到A盘工作簿中:
        Dim VBExcel As Excel.Application
        Set VBExcel=CreateObject("Excel.Application")
        With VBExcel
            Workbooks.Open "C:\Temp\Ex1.XLS"
            Workbooks.Open"A:\Ex2.XLS"
            Workbooks("Ex1.XLS").Sheets ("Sales").Copy
            Workbooks("Ex2.XLS")
            Workbooks("Ex2.XLS").Save
            Workbooks("Ex1.XLS").Close
            Workbooks("Ex2.XLS").Close
            Quit
        End With

    3)使用单元范围
    Range对象,    代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。
    常用的属性、方法有:
    Range属性:    Range (arg)其中arg为A1样式符号,表示单个单元格或单元格区域。
    Cells属性:    Cells (row, col )(其中row为行号,col为列号)表示单个单元格。
    ColumnWidth属性:  指定区域中所有列的列宽。
    Rowl3eight属性:   指定区域中所有行的行宽。
    Value属性:    指定区域中所有单元格的值(缺省属性)。
    Formula属性:  指定单元格的公式,由A1--样式引用。
    Select方法:   选择范围。
    Copy方法:     将范围的内容复制到剪贴板。
    C1earContents方法:    清除范围的内容。
    Delete方法:           删除指定单元范围。

    4)使用图表
    Chart对象,  代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。
    常用方法有:
    Add方法:        新建图表工作表,返回Chart对象。
    PrineOut方法:   打印图表。
    ChartWizard方法:修改给定图表的属性,其语法为:
        ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)
        其中:
        Source:包含新图表的源数据的区域。如省略,将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。
        Gallery:图表类型,其值可为下列常量之一:xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter,         xlCombination, x13DArea, x13Dbar,x13DColumn, x13DLine, x13Dpie,x13 Dsurface,xlDoughnut或xlDefaultAutoFormat。
        Format:内置自动套用格式的编号。如省略,将选择默认值。
        P1otBy:指定系列中的数据是来自行(xlRows)还是列(xlColumns)。
        CategoryLabels:表示包含分类标志的源区域内行数或列数的整数。
        SeriesLabels:表示包含系列标志的源区域内行数或列数的整数。
        HasLegend:若指定True,则图表将具有图例。
        Title:图表标题文字。
        CategoryTitle:分类轴标题文字。
        ValueTitle:数值轴标题文字。
        ExtraTitle:三维图表的系列轴标题,或二维图表的第二数值轴标题。
        可组合使用Add方法和ChartWizard方法,以创建包含工作表中数据的图表工作表。下例基于工作表“Sheetl”中单元格区域“A1:A20”中的数据生成新的折线图并打印。
        With Charts.Add
            ChartWizard source:=Worksheets ("sheet1").Range_
                ("a1:a20"),gallery:=xlLine, title:=“折线图表”
            Printout
        End With

    5)使用Excel工作表函数
        在VB语句中可使用大部分的Excel工作表函数,可通过WorksheetFunction对象调用Excel工作表函数。下面的Sub过程用Min工作表函数求出指定区域中单元格的最小值,并通过消息框显示结果值。
        Sub UserFunction()
            Dim myRange As Range
            Set myRange=Worksheets ("Sheet1").Range("B2:F10")
            answer=Application.WorksheetFunction.Min(myRange)
            MsgBox answer
        End Sub
        如果使用以区域引用为参数的工作表函数,必须指定一个Range对象。如可用Match工作表函数对A1:A10区域的所有单元格进行搜索。
        Sub FindFirst()
            myVar=Application.WorksheetFunction.Match_
                (9,orksheets( 1).Range("A1:A10"),0)
            MsgBox myVar    
        End Sub
        要在单元格中插人工作表函数,可将该函数指定为对应于Range对象的Formula属性值。在以下示例中,将当前工作簿Sheetl内A1:B3区域的Formula属性指定为RAND工作表函数(此函数产生二个随机数)。
        Sub InsertFormula()
            Worksheets ("Sheet1" ).Range("A1:B3").Formula="RAND()"
        End Sub
        以上简要介绍了Excel对象模型中部分对象及其属性和方法,更详细的信息可参阅Excel 2000帮助中的“Microsoft Excel Visual Basic参考”一节的内容。实际上,Microsoft Office家族的Word,PowerPoint, Access和Project等应用程序都可以在VB应用程序中调用,其原理和步骤完全相同,只是其对象模型有所不同而已。

    4、示例:
        首先建立一个窗体(FORM1),在窗体中加入一个DATA控件和一按钮,引用Microsoft office/9.shtml' target='_blank' >Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library;选择"确定"。

        在FORM的LOAD事件中加入:
        Data1.DatabaseName = 数据库名称
        Data1.RecordSource = 表名
        Data1.Refresh
        在按钮的CLICK事件中加入
        Dim Irow, Icol As Integer
        Dim Irowcount, Icolcount As Integer
        Dim Fieldlen() "存字段长度值
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Add
        Set xlSheet = xlBook.Worksheets(1)
        With Data1.Recordset.MoveLast
            If .RecordCount < 1 Then
                MsgBox ("Error 没有记录!")
                Exit Sub
            End If
            Irowcount = .RecordCount "记录总数
            Icolcount = .Fields.Count "字段总数
            ReDim Fieldlen(Icolcount).MoveFirst
            For Irow = 1 To Irowcount + 1
                For Icol = 1 To Icolcount
                    Select Case Irow
                    Case 1 "在Excel中的第一行加标题
                        xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
                    Case 2 "将数组FIELDLEN()存为第一条记录的字段长
                        If IsNull(.Fields(Icol - 1)) = True Then
                            Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
                        Else
                            Fieldlen(Icol) = LenB(.Fields(Icol - 1))
                        End If
                        xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
                        xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
                    Case Else
                        Fieldlen1 = LenB(.Fields(Icol - 1))
                        If Fieldlen(Icol) < Fieldlen1 Then
                            xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
                            Fieldlen(Icol) = Fieldlen1
                        Else
                            xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
                        End If
                        xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
                    End Select
                Next
                If Irow <> 1 Then
                    If Not .EOF Then .MoveNext
                End If
            Next
            With xlSheet
                .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"
                .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
                .Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous
            End With
            xlApp.Visible = True
            xlBook.Save
            Set xlApp = Nothing
        End With

          

    (2)VB中后台打开Excel文件

        某些时候需要打开Excel文件来获取或者写入数据,但又不希望跳出打开的Excel文件窗口,可以用下面的代码:
      Dim eb AsNew excel.Application, wb as excel.Workbook
       Set wb = eb.Application.Workbooks.Open(FileName:=nameOfFile,ReadOnly:=False)' open
       ' do your work   
       wb.Close True ' save and close
        原理:New Excel.Application新建了一个Excel实例,这个实例默认不可见。具体而言,获取Excel.Application实例有两种方式:    
       Dim eb As Excel.Application
       Set eb = CreateObject(, "Excel.Application")
            ' 新建Excel实例,同dim eb as new Excel.Application
       Set eb = GetObject(, "Excel.Application")
            ' 从Windows环境获取Excel实例,如果当前没有打开的Excel窗口,将出现错误

        如果对是否后台打开没有要求的话,最好结合上面两种方式获取Excel实例:' 获取Excel实例,如果当前已经有excel窗口,则直接获取当前实例,否则新建实例
    Function GetExcelApp() As Excel.Application
        On ErrorResume Next
        Set GetExcelApp = GetObject(, "Excel.Application")
        If Err.Number > 0 Then Err.Clear: Set GetExcelApp = New Excel.Application
    End Function

     

    展开全文
  • VB打开PDF文件的代码

    热门讨论 2010-07-29 21:56:57
    VB打开PDF文件的代码,我是好不容易才找到滴哟。
  • VB打开多个文件实现

    2013-06-14 11:57:31
    VB编的打开简单打开文件程序,可以一次性选中并打开多个文件
  • 主要介绍了VB打开与保存txt文件的方法,涉及使用VB操作文本文件的相关技巧,需要的朋友可以参考下
  • VB打开文本文件.doc

    2010-06-30 15:59:59
    VB打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。
  • VB打开和删除文件.rar用VB打开和删除文件.rar
  • VB打开水晶报表文件

    2011-12-25 22:38:14
    近期还有好几个朋友在为怎么在VB打开已经制作好的水晶报表文件(*.rpt)而伤脑筋,就特地做了一个简单的例子演示了一下。
  • VB以拖动文件打开文件的示例,看到不少程序有这种效果,甚至现在WEB上也有这种效果了,记的QQ邮箱里就有拖动文件到指定区域添加附加的功能,本程序基于VB源码实现,将文件拖放到窗口区域内,窗口随着Picture控件自动...
  • VB打开程序,记忆打开过的文件,保留到菜单条或者工具条上,程序关闭后再打开要保留它们。
  • 打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。同时期盼大家也来参与,借VB编程乐园这块宝地互相...

           打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。同时期盼大家也来参与,借VB编程乐园这块宝地互相交流。如您有这份心,土人在这里先说声谢谢!
      下面所举的例子均假设F盘下有一个名为d.txt的文本文件,若需要尝试这些例子请作相应的改动。
     
    方法一:
        用定长的String变量获取文本内容?由于定长String变量支持的下界为65400 , 所以在打开超过32K字节的文件时超出部分的字节将无法获取:

    Private Sub Command1_Cliack()
        Dim sA As String * 65400 '声明定长String变量
        Open "F:d.txt" For Binary As #1   '用二进制打开文件
        Get #1, , sA '用Get语句从文件中获取字节
        Text1 = sA '显示打开的文件
        Close #1 '关闭文件
    End Sub

      
    方法二:
      先声明一字符串变量,然后用空格填充字符串,使变量大小与文件大小一致,再通过Get语句将文件全部数据存储到变量中,从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件,但应该注意的是,装载文件的容器必须能装载大于32K的文件,下例用RichTextBox控件显示打开的文件:

    Private Sub Command1_Click()
        Dim sA As String
        Open "f:d.txt" For Binary As #1
        sA = Space$(LOF(1)) '用空格填充sA变量
        Get #1, , sA '用Get语句获取文件全部内容
        RichTextBox1.Text = sA
        Close #1
    End Sub

     

    方法三:
      用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换,从而达到打开文件的目的。可打开任意大小文件。此法笔者曾有一篇文章谈及,这里再给一个简单例子:

    Private Sub Command1_Click()
        Open "f:d.txt" For Input As #1
        RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
        Close #1
    End Sub

      
    方法四:
      用Shell语句直接调出Windows的记事本,给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意:在可执行文件和要打开的文本文件之间要有空格):
        Shell "NotePad.EXEf:d.txt", vbNormalFucus
     
    方法五:
    用RichTextBox控件自身的LoadFile属性打开文件:
      RichTextBox1.LoadFile "f:d.txt",rtfText

    摘自:网络整理


    相关参考


    VB输入文本文件实现右对齐

    VB计算文本文件的行数

    VB打开文本文件各种方法

    vb:读写文本文件

    vb UTF文本文件访问

    简述UTF8编码原理及其文本文件的读写技术【转】

    VB 读写TXT文本文件函数

    VB 判断是否文本文件

    VB 按指定编码格式写入文本文件


    VB相关


    vbline的用法[]

    画图工具的VB实现

    VB 一个获得自己外网 IP 地址的程序代码

    VB程序中实现IP地址子网掩码网关DNS的更改 []

    VB 中应用 FSO 对象模型介绍(摘自网络)

    [] VbFSO 对象的介绍

    VB 画坐标轴

    VB 二进制文件的操作

    [VB]BMPJPGVBKeyCode常数用法

    vb实时曲线的绘制和保存

    VB操作EXCEL

    vb初学回顾:最大公约数 最小公倍数 素数求取

    vb 关于窗口样式的API以及处理文本的API参考

    【引用】在VB6.0中实现弹出式菜单的几种方法

    【引用】URLDownloadToFile_VB下载文件!

    利用WinRar压缩和解压缩文件

    VB 剪切板

    VB实现指示窗口中拖动方框的程序

    VB绘制走动的表针

    如何用VB制作DLL文件

    【引用】VB修改IP地址

    VB多窗体退出代码

    []VB:如何检测到U盘的插拔(源代码)

    巧用SendMessage函数扩展Treeview功能

    vb中如何在任务管理器里面隐藏应用程序进程

    如何实现VBEXCEL的无缝连接

    一个API方式存取日志文件的模块[VB]

    VB用记录集填充表格函数

    VB打开文本文件各种方法

    vb ClipBoard 剪切板应用(复制剪切粘贴)

    【引用】窗口处理技巧大全 vb(窗体控件)

    【转】 Md rd命令之VB

    vb:读写文本文件

    vb中实现真正锁定的带自定义菜单的文本控件

    【引用】使用CommonDialogShowSave后如何判断是保存还是取消?

    vb 关于commondialog的多选VB获取Windows操作系统所有版本

    vb UTF文本文件访问

    VB编程中的Unicode vs Ansi

    VBPiView4注册机

    VB获取超过2G文件的大小

    CopyMemory还要快的函数SuperCopyMemory

    VB:编程效率快步提高之:十七种可用一行代码完成的技巧

    VB画出来的五星红旗

    Qt第一印象——QteQt


    更多精彩>>>
    展开全文
  • vb路径打开文件

    2013-05-02 21:21:25
    想在界面中通过浏览的方式选定一个excel文件,然后再进行数据提取,怎么操作? 我现在能够提取数据,但是就是必须把excel文件放在程序中制定的路径下,想弄的灵活些,就是随便选到一个excel就可以提取,求帮助!
  • VB如何打开文件

    2013-01-16 17:23:27
    我要实现这么个功能: bim a as string a=text1.text if a.txt存在 then 打开a.txt else 则创建a.txt并打开 end if 大概就是要做这样子的,具体代码未能实现。
  • vb打开帮助文件

    2008-01-22 12:08:00
    ShellExecute Me.hwnd, "Open", App.Path & "MyEBook.CHM", "", AppPath, 1 
    ShellExecute Me.hwnd, "Open", App.Path & "MyEBook.CHM", "", AppPath, 1 
    展开全文
  • 第四章 算法基础及的基本语句;1了解结构化程序设计的基本概念 2掌握 程序设计中的常用语句 3掌握顺序选择和循环结构及相应的语句;教学内容;4.1 算法及程序设计基础;1算法的概念;18;[算法描述];3算法的特征;...
  • vb文件打开文件的关闭

    千次阅读 2014-10-13 10:00:09
    打开数据文件(首次操作为建立数据文件并且打开) 进行读写操作 关闭数据文件   1、文件打开 格式: Open 文件名 For 方式 [Access 存取类型] [lock] As [#]文件号 [Len=记录长度] 文件名:...
  • VB不用控件打开文件

    2011-10-15 08:41:45
    微软在VB6.0中提供了一个通用对话框控件,虽然您可以直接的调用,但我们建议使用GetOpenFileName这个API函数。 它可以让您省去那个几十KB的大家伙而且它的工作效率也比控件要快的多。既然有这么多好处那我们还是先来...
  • 可直接运行的VB6.0示例程序,实现功能:采用相对路径打开文件
  • VB6.0 自定义对话框,自定义Dialog...成功之后你会发现,打开文件,文件夹对话框的控件 ,有新建文件夹按钮,还有其他的一些附加功能。里面用到了自定义的VB类库。代码中的注释是英文的,本对话框运行效果如图所示。
  • VB 调用 HTMLHELP函数 首先当然是要在工程中加入上面的声明,然后编辑工程的菜单,在“帮助”菜单的CLICK方法中加入代码,就能打开chm帮助文件
  • VB打开文本文件的各种方法

    千次阅读 2009-11-05 00:13:00
    打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。 下面所举的例子均假设F盘下有一个名为d.txt的文本...
  • # 用VB打开EXCEL文件,EXCEL里的MX SHEET加载项不显示也不启动了 ## ,不用VB打开,直接单独打开EXCEL是可以使用MX SHEET的,这怎么解决 VB打开EXCEL,怎么没有启动里面的加载项MX SHEET功能 Dim xlApp As Excel....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,437
精华内容 974
关键字:

vb打开文件