-PR-
締切り
済み

VBでのエクセルの起動

  • 暇なときにでも
  • 質問No.91064
  • 閲覧数331
  • ありがとう数4
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 33% (2/6)

ファイルリストボックスで選択した.xlsファイルを
コマンドボタンを使用してExcelを起動し
そのファイルを表示(使用)するには
どの様にすれば宜しいのでしょうか?
コーディングなど教えて頂けると大変助かります
宜しくお願い致します。
通報する
  • 回答数4
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全4件)

  • 回答No.1
レベル8

ベストアンサー率 46% (22/47)

Excelを起動してファイルを開くところだけ。 Dim xl As Excel.Application Set xl = CreateObject("Excel.Application") xl.Visible = True xl.Workbooks.Open(strFileName) 参照設定はちゃんとしておいてくださいね。 ファイルリストで選択するのもコマンドボ ...続きを読む
Excelを起動してファイルを開くところだけ。

Dim xl As Excel.Application
Set xl = CreateObject("Excel.Application")
xl.Visible = True
xl.Workbooks.Open(strFileName)

参照設定はちゃんとしておいてくださいね。
ファイルリストで選択するのもコマンドボタンが押されたときの処理も聞きたいということであればまたご質問ください。


  • 回答No.2
レベル8

ベストアンサー率 28% (17/60)

選択された、ファイルをEXCELで開くという事でしたら、Shellを使用 すれば、可能かと思います。 ただし、この場合はVBで作成したアプリとは非動機でEXCELが起動 します。 <例>  xl = shell("EXCELのパス bookのパス")
選択された、ファイルをEXCELで開くという事でしたら、Shellを使用
すれば、可能かと思います。
ただし、この場合はVBで作成したアプリとは非動機でEXCELが起動
します。
<例>
 xl = shell("EXCELのパス bookのパス")
  • 回答No.3
レベル7

ベストアンサー率 77% (14/18)

ShellExecute APIを利用するのもいいかも。
ShellExecute APIを利用するのもいいかも。
  • 回答No.4
レベル11

ベストアンサー率 49% (139/279)

millionwakerさんの回答に追加を 既にExcelが起動していれば、そのExcelで開くようにする Dim objExl As Object Err.Clear On Error Resume Next Set objExl = GetObject(, "Excel.Application") If Err.Numbe ...続きを読む
millionwakerさんの回答に追加を

既にExcelが起動していれば、そのExcelで開くようにする

Dim objExl As Object
Err.Clear
On Error Resume Next
Set objExl = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set objExl = CreateObject("Excel.Application")
End If
objExl.Workbooks.Open ファイル名
objExl.Visible = True
Set objExl = Nothing
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ