FC2ブログ

ぴーあーる

プロフィール

カテゴリー

リンク

最近の記事

最近のコメント

最近のトラックバック

カレンダー

08 | 2019/09 | 10
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 - - - - -

過去のログ

Plug-in by
@激安・割安・おすすめ商品@

RSSフィード

VB6からEXCELを起動するには

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t08.htm

にVB6からEXCELを起動する方法があったが、スペースがあるパスでエラーになる。。。泣

しかし、解決!

 

Public Function ExecExcel(para As String) As Boolean
  Dim exl As variant
  On Local Error Resume Next
  Set exl = CreateObject("Excel.Application")
  shell exl.path & "\excel.exe " & para, 1
  if err <> 0 then
    ExecExcel = False
  else
    ExecExcel = True
  end if
  On Local Error GoTo 0
End Function

 

上記を以下のように変更したら起動しました。。。

 

Public Function ExecExcel(para As String) As Boolean
  Dim exl As Variant
  On Local Error Resume Next
  Set exl = CreateObject("Excel.Application")
  Shell exl.Path & "\excel.exe """ & para & """", 1
  If Err <> 0 Then
    ExecExcel = False
  Else
    ExecExcel = True
  End If
  On Local Error GoTo 0
End Function

スポンサーサイト




コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

http://bubble2sei.blog69.fc2.com/tb.php/469-f0055142

 BLOG TOP