Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

▼

【13154】Excelが二重に表示される Ｔａｋ 17/5/31(水) 11:11

【13155】Re:Excelが二重に表示される 亀マスター 17/5/31(水) 23:10


	【13154】Excelが二重に表示される

Ｔａｋ - 17/5/31(水) 11:11 -


	引用なし

	パスワード

作成済みのExcelファイルを開く処理で
xlsheet.Application.Visible = Trueを実行すると、
Excelが2つ起動してしまいます。

Windows7(32Bit) + Access2010の組合せでは正常に動作していましたが、
Windows10(62Bit)+ Access2016(32Bit)では正常に動作しませんでした。
回避方法を知っている方いらっしゃいましたら教えて頂けますでしょうか？

---------------------------------------------
Dim xlsheet As Object
　　
'EXCEL起動
Set xlsheet = GetObject("C:\Test.xlsx")
xlsheet.Application.Visible = True
---------------------------------------------


	【13155】Re:Excelが二重に表示される

亀マスター - 17/5/31(水) 23:10 -


	引用なし

	パスワード

私の環境（Win 10 64bit ＋ Office2013 32bit）でふたつ起動するということにならなかった（それどころか一瞬起動してすぐに終了した）ので直接的な原因究明にはなりませんが、以下のような方法ではどうでしょう。

Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Workbooks.Open "C:\Test.xlsx"
xlApp.Visible = True

Set xlApp = Nothing


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free