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的论坛关于下拉菜单的贴...

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

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

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

需引入命名空间:Imports System.Data.OleDb ''' ''' 读取Excel ''' Public Shared Function LoadD...

VB控制Excel的一种方法

  • 2013-07-22 08:29
  • 396KB
  • 下载

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

一、问题: 使用如下代码打开、取值及关闭excel: Public Function ImportFromExcel(excelFile As String) As Long Dim xlApp A...

VB中对EXCEL的各种操作

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

vb调用excel方法大全

  • 2015-11-20 14:57
  • 18KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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