• ベストアンサー

EXCEL2003のマクロで

実行させるマクロファイルと同ディレクトリにファイルOPENさせるためのファイルがいるかどうかのロジックって存在しますか? ファイルが開かないのでエラーではなく、ファイルが存在しないからエラーとはきだしたいのです。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。maruru01です。 Dir関数で存在確認をすればいいのでは? Dir関数の詳細はヘルプなどで。

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.2

#1でご回答は出てますが、 Sub test01() MsgBox CurDir x = Dir("aa4.xls") If x = "" Then MsgBox "ファイルなし" Else MsgBox "ファイルあり" End If End Sub をご参考に。 CurDir関数がVBAにあるので、ご参考に。

すると、全ての回答が全文表示されます。

関連するQ&A

  • EXCEL2003でマクロ ファイル操作

    Workbooks.Open Filenameでファイルを開くとき フルパスを指定してやらないといけませんが、 マクロ実行ファイルと同ディレクトリにある場合は パスはいらないのでしょうか? 別途記述(ロジック)方法があるのでしょうか? よろしくお願いします。

  • Excel2003でマクロを組みました。

    Excel2003でマクロを組みました。 それなりにコードを書き込んだので、ファイルとしての容量が3MBくらいあります。 ためしにソース(Module1~35)を全て削除してみたら、2.2MBまで減りました。 (思ったより減らなかったですが) ファイル容量を減らしたいし、マクロを実行する側としてはソースはいらないので、 C言語のソースをコンパイルして実行ファイルだけを取り出して使うように、 (=プログラムの実行にはソースは必要無いように) Excelファイルからマクロの実行部分だけを抜き出す、 なんてことは可能でしょうか。 マクロとプログラムは違うから不可能でしょうか。

  • マクロによる自動化について

    マクロを構築して マクロを実行すると指定されたディレクトリにある basファイルを取り込み実行するようにしたいのですが、 どのようにすればよいでしょうか?

  • 【Excel】 2003で使用していたマクロが2007でエラーになります。

    こんにちは フリーソフトで「マクロ_リネーム・コピー_ファイル」を利用しています。 http://www.vector.co.jp/soft/win95/util/se383332.html ファイルは正常に開きます。 対象フォルダを指定し、シート作成をクリックすると 「実行エラー'445'オブジェクトはこの動作をサポートしていません。」となります。 Excel2003で正常に使っていましたが、Excel2007で実行すると エラーになります。 フリーソフトですが最近の更新もされていないようです。 作者と連絡をとることもできず困っています。 このマクロを2007で実行するのはあきらめるしかないでしょうか。 また、他のマクロを使っているファイルでもエラーが起こるでしょうか。 2003と2007では、互換性に問題があるのでしょうか。 Excelを利用できることで、大変重宝していただけにこの先困ってしまいます。 よろしくお願いします。

  • Excel2002でマクロやVBAが使えない

    ファイルNO230881にExcel97で作ったマクロがExcel2000で使えないという質問がありましたが、私の場合Excel2000で作ったマクロがExcel2002で使えません。 ファイルNO230881の方は自動修復で直ったそうですが、自動修復のリストにExcel が乗ってきていないので困っています。 起きている症状は、 Excel2000で作成したマクロを、Excel2002で実行しようとしたら、***はマクロを含んでいますとメッセージが出て、マクロを有効にすると、オブジェクトライブラリは登録されていませんというメッセージが出てきたので、OKにし、もう一度マクロを有効にしたら、「***の修復   ***にエラーが検出されましたがMicrosoftExcelは次の修復を行うことによってファイルを開くことができました。修復を保持するにはこのファイルを保存してください。  VisualBasicプロジェクトが失われました。 ActiveXコントロールが失われました。」というエラーメッセージが出てきて、マクロがなくなってしまい、また新しくマクロを記録しようとしても、記録できません、というエラーメッセージが出てきてマクロが作れなくなってしまいました。 尚、セキュリティは中にしてありますが、低でもマクロの記録ができないです。なぜでしょう? VBAプロジェクトのライブラリファイル参照がうまくいっていないということはわかるんですが、VBエディタの[ツール]>[参照設定]がグレーで開くことができません。 みなさんのお知恵をお貸しください。

  • 【Excel2003】マクロの実行

    お世話になります。 フォルダー内全てのエクセルファイルに、あるマクロを実行したいのですが可能でしょうか? 例としましては フォルダー「変更ファイル」 以下中にあるファイル ------------------------ ファイル「A.xls」 ファイル「B.xls」 ファイル「C.xls」 ファイル「マクロ.xls」←ソートを行うマクロ入り ------------------------ 「変更ファイル」フォルダー内の「マクロ.xls」を実行してA,B,Cファイル(フォルダー内全てのファイル)内データーを各ファイル毎ソートしたい。 この作業はマクロ.xlsのマクロをカスタマイズしてすることは可能でしょうか? 可能ならやり方を教えてください。 お願いいたします。

  • 【Excel】マクロのエラー

    先日、ここで質問させていただきながら、複数のファイルの全シートから、会社名と金額を取り出して、一覧表を作成するマクロを作りました。(Excel2003使用) この複数のファイルと一覧表は同じフォルダに入っているのですが、一覧表が4種類あるので、そのフォルダ内に『一覧表』という名前のフォルダを作って、その中に4つの一覧表を移動しました。 その後、マクロを実行すると時々「ファイルが見つからない」といった内容のエラーが出るようになったのですが、一旦、中止して一覧表の元になるファイルを1つ開いて何もせずにそのまま閉じた後、再度マクロを実行するとエラーは出ません。 このエラーは、やはり『一覧表』フォルダを作って移動させたことが原因でしょうか?また、このエラーが出ないようにする方法はあるのでしょうか? コードは下記のようになっていて、“ファイル名”というシートに一覧表の元になる複数のファイル名が入力してあります。 Sub LISTOUT() OUT_LINE = 1 MY_BOOK = ActiveWorkbook.Name Sheets("ファイル名").Select For FILE_GYO = 2 To Cells(2, 1).End(xlDown).Row Sheets("ファイル名").Select FILE_NAME = Cells(FILE_GYO, 1) Workbooks.Open Filename:=FILE_NAME OPEN_BOOK = ActiveWorkbook.Name SHEET_SU = Sheets.Count For i = 1 To SHEET_SU Sheets(i).Select CODE_NO = ActiveSheet.Name KAISHAMEI = Cells(2, 3) TSUKIKEI = Cells(1, 23) RUIKEI = Cells(1, 25) Workbooks(MY_BOOK).Activate Sheets("一覧表").Select OUT_LINE = OUT_LINE + 1 Cells(OUT_LINE, 1) = CODE_NO Cells(OUT_LINE, 3) = KAISHAMEI Cells(OUT_LINE, 4) = TSUKIKEI Cells(OUT_LINE, 6) = RUIKEI Workbooks(OPEN_BOOK).Activate Next ActiveWorkbook.Close Next End Sub マクロに関しては初心者ですので、詳しく教えていただけると助かります。

  • Excel2002(xp)でマクロやVBAが使えない

    起きている症状は、 Excel2000で作成したマクロを、Excel2002で実行しようとしたら、***はマクロを含んでいますとメッセージが出て、マクロを有効にすると、オブジェクトライブラリは登録されていませんというメッセージが出てきたので、OKにし、もう一度マクロを有効にしたら、「***の修復   ***にエラーが検出されましたがMicrosoftExcelは次の修復を行うことによってファイルを開くことができました。修復を保持するにはこのファイルを保存してください。  VisualBasicプロジェクトが失われました。 ActiveXコントロールが失われました。」というエラーメッセージが出てきて、マクロがなくなってしまい、また新しくマクロを記録しようとしても、記録できません、というエラーメッセージが出てきてマクロが作れなくなってしまいました。 尚、セキュリティは中にしてありますが、低でもマクロの記録ができないです。なぜでしょう? VBAプロジェクトのライブラリファイル参照がうまくいっていないということはわかるんですが、VBエディタの[ツール]>[参照設定]がグレーで開くことができません。 みなさんのお知恵をお貸しください。

  • EXCEL:ファイルを閉じるマクロ

    ファイルA.xlsにファイルB.xlsを開くマクロを作りました。 今度はファイルB.xlsにBを閉じるマクロを作りたいのです。 どうやったらいいのでしょうか? そのマクロは実行ボタンを作ってクリックしたら開く・閉じるをするようにしたいです。 よろしくお願いします。

  • Webサバーに有るExcelのマクロが動かない

    Webサーバに有るExcelファイルを、htmlのリンクから開いて、マクロを実行すると、csvファイルの読込で下記のエラーに成ります 「実行時エラー'1004' 'open'メゾットは失敗しました'Workbooks'オブジェクト'」です。 リンクで開かないで、直接開いて実行すると問題なく動きます。 どうしたら良いのか力を貸してください。

このQ&Aのポイント
  • 5/30日光回線をマネーフォワードに変更するにあたって家の電話回線はなくす予定です。それに伴ってスマホからWi-Fi飛ばして良くコピーしてますが、それは電話回線がなくなっても大丈夫でしょうか?ご教授いただけたら幸いです。
  • 現在auひかりを利用している環境で、5/30にマネーフォワードに変更する予定です。この変更に伴って家の電話回線はなくなりますが、スマホからWi-Fiを使ってコピーをすることは可能でしょうか?教えていただけると助かります。
  • 質問です。家の電話回線をなくすために、5/30にマネーフォワードに変更する予定です。その際、スマホからWi-Fiを利用してコピーをすることは可能でしょうか?よろしくお願いします。
回答を見る

専門家に質問してみよう