VB起动Excel的3种方法

转载 2007年10月05日 13:53:00

'===========================================================================
'    ファイル名    : frmMain.frm
'    ファイル説明  : Excelの起動サンプル(3種類)
'    作成者        : Uz
'                    E-Mail   : uz@violet.plala.or.jp
'                    HomePage : http://www1.plala.or.jp/uz/
'    作成日        : 1998/06/17 (Wed)
'    修正日        : 1998/06/17 (Wed)
'    備考          : なし
'===========================================================================
Option Explicit

'   関連付けにより起動に使用
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
Private Const SW_SHOW = 5
Private Declare Function GetDesktopWindow Lib "user32" () As Long


'開くファイル名
Const strFileName = "e:/projects/excel/test/test.xls"

'
'   CreateObjectによりExcelオブジェクトを作成
'   構文チェックなし。VB5の開発支援を受けられない。
'   (入力候補や引数の入力ToolTipsが出ない)
Private Sub Command1_Click()
    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.Workbooks.Open strFileName
End Sub

'
'   関連付けにより起動(API)
'   起動後、VBのコードからの操作は出来ない。
'   (SendKeysを使えば出来るかもしれないが実用的ではないでしょう)
Private Sub Command2_Click()
    Call ShellExecute(GetDesktopWindow, "open", strFileName, Chr$(0), "", SW_SHOW)
End Sub

'
'   VBの参照設定で Microsoft Excel 5.0 Object Library にチェックを入れる。
'   (Excel95の場合(97の場合多少違うかも))
'   開発はこれが一番楽でしょう。
'   構文チェックもしてくれるしVB5の開発支援を受けられるし。
Private Sub Command3_Click()
    Dim oleExcel As Excel.Application
    Set oleExcel = Excel.Application
    oleExcel.Visible = True
    oleExcel.Workbooks.Open strFileName
End Sub

源代码在此下载
 

Excel 二级下拉菜单的3种方法

摘录自:http://hi.baidu.com/chenshake/blog/item/60c1d5fcef1371fbfd037fd3.html 把excelhome的论坛关于下拉菜单的贴...
  • hsicool
  • hsicool
  • 2011年07月27日 10:37
  • 1018

Excel设置数据有效性实现单元格下拉菜单的3种方法

Excel设置数据有效性实现单元格下拉菜单的3种方法    一、直接输入:  1.选择要设置的单元格,譬如A1单元格;  2.选择菜单栏的“数据”→“有效性”→出现“数据有效性”弹出窗口;  3.在...
  • nicole7
  • nicole7
  • 2014年02月10日 17:45
  • 2164

POI使用:用poi接口不区分xls/xlsx格式解析Excel文档(41种日期格式解析方法,5种公式结果类型解析方法,3种常用数值类型精度控制办法)

一、使用poi解析excel文档 注:全部采用poi接口进行解析,不需要区分xls、xlsx格式,不需要判断文档类型。 poi中的日期格式判断仅支持欧美日期习惯,对国内的日期格式并不支持判断,怎么办?...
  • eguid_1
  • eguid_1
  • 2016年07月22日 11:42
  • 2247

VB.net 导入Excel方法(2010及以下版本适用)

需引入命名空间:Imports System.Data.OleDb ''' ''' 读取Excel ''' Public Shared Function LoadD...
  • lqh4188
  • lqh4188
  • 2013年07月16日 09:40
  • 7845

vb读取xls文件而不打开excel进程 ado数据库方法读取xls

'Read Excel File Using ADO Public Function Read_Excel _          (ByVal sFile _           As Stri...

VB操作EXCEL方法汇总

转自:http://bhjsyx.bhjy.net/tresearch/blog/showArticle.jsp?ArticleCode=685187137&CID=00047 Private ...
  • GKQQQ
  • GKQQQ
  • 2017年06月22日 21:30
  • 454

VB打开EXCEL的方法

★VB打开EXCEL的方法 一楼的没有指明 Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open("文件名") 这种语法同...

VB控制Excel的一种方法

  • 2013年07月22日 08:29
  • 396KB
  • 下载

VB封装Excel_VBA代码的三个方法

  • 2015年09月18日 19:37
  • 323KB
  • 下载

VB之操作excel后不能关闭excel进程的原因及解决方法

一、问题: 使用如下代码打开、取值及关闭excel: Public Function ImportFromExcel(excelFile As String) As Long Dim xlApp A...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB起动Excel的3种方法
举报原因:
原因补充:

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