• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:マクロ組んだエクセルをCDに焼き違うパソコンでCDを開きマクロボタンを押すとエラーがでます.)

エクセルのマクロをCDに焼いて違うパソコンで開くとエラーが発生する

このQ&Aのポイント
  • マクロ組んだエクセルをCDに焼き違うパソコンでCDを開くとエラーが発生します。マクロを押すとデスクトップのフォルダ〔指導要綱〕の中のフォルダ〔大阪府〕の中のフォルダ〔能勢町〕へ移動し、その中にあるPDFの一覧が表示されるマクロです。自分のパソコンでは正常に動作するが、別のパソコンで開くと添付画像の画面が表示されるため、起動できません。
  • マクロ組んだエクセルをCDに焼いて別のパソコンで開くとマクロが起動しなくなります。マクロを押すとデスクトップのフォルダ〔指導要綱〕の中のフォルダ〔大阪府〕の中のフォルダ〔能勢町〕へ移動し、その中にあるPDFの一覧を表示するマクロです。自分のパソコンでは正常に動作するが、別のパソコンでは添付画像の画面が表示され、マクロが起動しません。
  • マクロ組んだエクセルをCDに焼き違うパソコンでCDを開くとエラーが発生します。マクロを押すとデスクトップのフォルダ〔指導要綱〕の中のフォルダ〔大阪府〕の中のフォルダ〔能勢町〕へ移動し、その中にあるPDFの一覧が表示されるマクロです。自分のパソコンでは正常に動作するが、別のパソコンでは添付画像の画面が表示され、マクロが起動できません。

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

  • ベストアンサー
  • myRange
  • ベストアンサー率71% (339/472)
回答No.3

おや、まぁ、myRangeです。 回答は出てますが、、、、 その別のパソコンで、 "能勢町"のフォルダーを開くと、 アドレスバーに、パスが表示されますよね。 それをコピペしてやれば確実です。 以上です。  

その他の回答 (3)

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.4

パソコンが変わってもデスクトップまでのパスは SpecialFolders プロパティで取得できるので 'デスクトップパスを取得 myDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") 'デスクトップパス+以降のパス myPath = myDesktop & "\指導要綱\091104\大阪府\能勢町" Shell "explorer.exe " & myPath, 3 とすれば良いのでは

  • 4500rpm
  • ベストアンサー率51% (3209/6282)
回答No.2

>「デスクトップ\指導要綱\091104\大阪府\能勢町」 #1さんが言っているのは、 「C:\Documents and Settings\masako\デスクトップ\指導要綱\091104\大阪府\能勢町」の「\masako\」の部分を たとえば国母さんのパソコンなら「\kokubo\」に変えろと言うことです。 この場合、国母さんのパソコンのデスクトップに「\指導要綱\091104\大阪府\能勢町'」のファイルが無ければ、当然開きません。 または 1)ファイルをCドライブの下におくとPCが変わっても名前を指定しなくて良くなります。 たとえば「C:\指導要綱\091104\大阪府\能勢町""",」 2)ファイルもCDに入れ、CDから読む様にしてすれば、 どのPCでも使えます。

  • tag1701
  • ベストアンサー率54% (67/123)
回答No.1

>C:\Documents and Settings\masako\デスクトップ この部分(特に\masako)を導入したパソコンの名称に 変えればちゃんと出ると思います。

ma198012
質問者

補足

ご回答ありがとうございます!!やってみましたが無理でした。 マクロを変えるということですよね? Sub ボタン49_Click() ' ' ボタン49_Click Macro ' マクロ記録日 : 2010/2/18 ユーザー名 : masako-m ' Shell "explorer.exe ""C:\Documents and Settings\masako\デスクトップ\指導要綱\091104\大阪府\能勢町""", 3 これで自分のパソコンと違うパソコンでもやってみましたが両方 パス'C:\Documents and Settings\masako\デスクトップ\指導要綱\091104\大阪府\能勢町'は存在しないか、ディレクトリではありません。’とエラーの表示が出ます。 End Sub