他のパソコンで自作のマクロを使いたい

質問

Excel2000でマクロをつくりました。これを他の人のパソコンで使うと
絶対参照のためエラーが発生します。相対参照にしたいのですが方法が分かりません。よろしくお願いします。

Sub 給与マクロ起動() '起動確認済
ChDir "C:\Documents and Settings\aitaine\デスクトップ\総務\kyuyo"
Workbooks.Open(Filename:= _
"C:\Documents and Settings\aitaine\デスクトップ\総務\kyuyo\kyuyomacro.xls"). _
RunAutoMacros Which:=xlAutoOpen
ActiveWindow.WindowState = xlMaximized

End Sub

回答No.4

popesyu · ベストアンサー

結局、kyuyomacro.xlsとそれ以外にもう一つのファイルがあるということで宜しいのでしょうか？
まずkyuyomacro.xlsともう一つのファイルを同じフォルダ内にいれます。

>. _ RunAutoMacros Which:=xlAutoOpen　の部分は貼り付けるとエラーが
この部分も意味が分からないのですが・・・。
とりあえず
Workbooks.Open(Filename:=ThisWorkbook.Path & "\kyuyo\kyuyomacro.xls").RunAutoMacros Which:=xlAutoOpen

これをこのまま貼り付ければ動きませんかね？？ 1004エラーは単純にその場所に指定されたファイルが見つからないというだけのことかと思いますが。

お礼

popesyu様
今こぴぺしました。作動しました！ありがとうございました。
マクロ超初心者として、相手にわかるように質問することをもっと勉強すべきだと悟りました。みなさま貴重な時間をすいませんでした。

回答No.3

popesyu

kyuyomacro.xlsというファイルは自分自身のことなんでしょうか？　それとも一緒に配布される別のファイルなのでしょうか。
自分自身ならそうやってフルパスで指定する必要はないですが。Me　とか　ActiveWorkbook、ThisWorkBookで代用できます。

一緒に配布されるのであれば、パスの部分を
ThisWorkbook.Path
などにして動的に取得するように修正する
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_140.html

補足

説明不足で申し訳ありません。よろしくお願いします。
マクロを以下のように修正すると、起動はできますが、実行時エラー1004となりソフトが使用できません。kyuyomacro.xlsは、シェアウエアでＥｘｃｅｌ仕様の給与計算ソフトです。
. _ RunAutoMacros Which:=xlAutoOpen　の部分は貼り付けるとエラーが出て貼り付けできません。

Sub 給与起動()
Application.ScreenUpdating = False
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
MsgBox "現在のカレントフォルダは" & vbCr & _
CurDir & vbCr & "です。"
Workbooks.Open Filename:=ThisWorkbook.Path & "\kyuyo\kyuyomacro.xls"
ActiveWindow.WindowState = xlMaximized
End Sub
----------------------------
現状は、自分のＰＣで　以下のソ方法でフトを開き、入力してから
Workbooks.Open(Filename:= _
"C:\Documents and Settings\aitaine\デスクトップ\総務\kyuyo\kyuyomacro.xls"). _
RunAutoMacros Which:=xlAutoOpen

上のマクロを、知人のＰＣで開き、面倒でも
\aitaine のところを、知人の \tijinn に変更して　起動させている状況です。

回答No.2

redfox63

> C:\Documents and Settings\aitaine\デスクトップ
の部分を適宜変更したい ってことですか？

Dim oShell as Object, sDir as String
Set oShell = CreateObject("WScript.Shell")
sDir = oShell.GetSpecialFolders("desktop")
Set oShell = Nothing

といった具合で sDirにデスクトップのパスが取得できます

回答No.1

hana-hana3

質問内容ではマクロやファイルの利用方法（目的）が良く解りませんが・・・。

kyuyomacro.xls を開く意味は何でしょうか？
利用環境が解らないと適切な方法を助言出来ません。
給与関連であれば、ある程度守秘義務も生じるので利用には制限が必要でしょう。

利用するパソコンの任意のフォルダ（一緒に利用するファイルと同じフォルダ）にkyuyomacro.xls を置く事でエラーを回避する事も出来ます。

また、内部のマクロだけを使いたいなら、アドインにして別のパソコンにインストールしておけば、そのパソコンからはいつでも簡単に利用できるようにする事も出来ます。（アドイン作成の知識が多少必要）

以下の方法は守秘義務を持たせるには不適切な方法になりますが。。。

貴方のパソコンの「C:\Documents and Settings\aitaine\デスクトップ\総務\kyuyo」フォルダをネットワークに共有フォルダとして公開（共有設定）し、ネットワークパスという方法で書き換えると利用できます。
この方法は誰かが勝手に貴方のパソコン（共有設定したフォルダ）にアクセスできるようになるのでお勧めしませんし、貴方が休んでパソコンが起動していない場合は利用不可になるので、複数の人で利用するにはネットワークの共有フォルダにファイルを置く方が安全でしょう。