ACCESSは初心者ﾚﾍﾞﾙの者です。ACCESS2003からEXCEL2003の指定ﾌｧｲﾙにｴｸｽﾎﾟｰﾄして起動するVBAｺｰﾄﾞ(ﾎﾞﾀﾝ)を作成して問題なかったのですが事情によりEXCEL2007にｱｯﾌﾟﾃﾞｰﾄしました(ACCESSは2003のままでEXCELﾌｧｲﾙは以前の形式で保存・WIN7PC）。そうするとｴｸｽﾎﾟｰﾄは出来るのですがEXCELが開けなくなりました(そのVBAｺｰﾄﾞでは)。理由が分からなくて困ってます。開くｺｰﾄﾞは 『Shell "excel.exe C:\Users\user\Desktop\○○\△△.xls", vbNormalFocus』で記述してます。
あと次の段階でしたい事は旧ﾊﾞｰｼﾞｮﾝのEXCELﾌｧｲﾙを.xlsx形式に変換してACCESS2003のｺｰﾄﾞでｴｸｽﾎﾟｰﾄを試したのですが今度はｴｸｽﾎﾟｰﾄも出来ませんでした。ｺｰﾄﾞは『DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "ﾃｰﾌﾞﾙ名", "○○\△△.xlsx"』
ｺｰﾄﾞ記述が間違えていると思うのですが、自分では分からなくて・・・
Microsoft Access 掲示板
ACCESS2003からEXCEL2007を開いたりｴｸｽﾎﾟｰﾄしたい
6
コメント
views
4
フォロー
通報 ...
まず、諸々のアップデートをもっと進めませんか？この質問が解決しても、結局、問題の先送りだから無意味でしょ。
次に、VBAコードは白紙に戻して全部作り直しましょう。Excelをあれこれして、Accessに取り込んであれこれして、Excelにエクスポートとかも、外注してAccessに一本化しましょう。いつの時代の話ですか。
りんごさんへｱﾄﾞﾊﾞｲｽありがとうございました。確かに仰る通りですね。先の事を考慮して早急に色々と考え直してみます。それまで当面のExcelﾌｧｲﾙにｴｸｽﾎﾟｰﾄ出来るのにSHELL関数で開かなくなった事だけ解決したいのですが、対処方はないでしょうか？ 互換ﾌｧｲﾙになった兼ね合いだと思うのですが。ｺｰﾄﾞ記述を少し変更したらいいという問題ではないでしょうか？
詳しくないんだけど、excel.exeの部分もフルパスに変えてみるとか。
Excel2003に戻すのはどうですか。また、当面、Windows10とサポート継続中のExcelを用意すると考えないのですか？
下記のサイトが参考になるかもしれません。
https://www.drk7.jp/MT/archives/001226.html
Excel 2003 と Excel 2007 を共存させる場合の留意点
.xlsx形式は 2007以降のバージョンから実装されたものですので、2003の時にはなかったものなので、Access2003で.xlsx形式のエクスポートは不可能です。
エクスポートしてできたファイルを直接ダブルクリックすると開くことはできますか。
開けた場合、その時のエクセルのバージョンは2003ですか、2007ですか。
excel.exe のところをフルパスに変更したらどうでしょうか。
色々とｱﾄﾞﾊﾞｲｽありがとうございました。大変参考になりました。
まずShell関数でexcel.exe のところをﾌﾙﾊﾟｽにして動作させると”実行時ｴﾗｰ53”となりました。指定ﾌｧｲﾙも記述せずExel起動だけでも同様でした。試しにnotepad.exe(ﾌｧｲﾙ指定せずに)だとﾒﾓ帳は起動しました。不思議です。
それでShellを諦めて下記の１でExcelを起動させて ２で指定ﾌｧｲﾙを開くと、上手くいきました。
１：『 Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True』
２：『oApp.Workbooks.Open Filename:="C:○○△△.xls"』
Shellで起動が出来ないのは不明ですが、何とかこれで取りあえずの対処でします。
WIN10／Office2016(ACCESS2016入り)環境の別PCがありまして、それで現行のmdbﾌｧｲﾙを試した事があるのです。そうするとVbaｺｰﾄﾞが無反応となるｺﾏﾝﾄﾞが多くあったので（mbd形式、accdb形式に変換後も）、それに移行するのが億劫で古いﾊﾞｰｼﾞｮﾝを使い続けている次第です。でも先々考えると行き詰まってしまいますね。今後何とかそれを新しいもので使える様にしなくてはと今回感じました。
色々と丁寧にｱﾄﾞﾊﾞｲｽ頂き、大変ありがとうございました。