電子書籍の厳選無料作品が豊富!

自分のPCで作成したExcelマクロをボタンを押下すれば起動するように設定したのですが、他の人のPCからファイルを開いてボタンを押下しても全く動作しません。
自分のPCだと完璧に動作するのですがなぜなのでしょう?その動作しないPCは自分のPCと同じシリーズのノートパソコンです。また、別のデスクトップタイプのPCでも試したのですがやはり動作しませんでした。
ちなみにマクロのセキュリティレベルが高になっているというわけではありません。

マクロの内容は「同じフォルダ内のグラフを開く」というものです。教えてgooで教えていただいたものです。

A 回答 (2件)

もしや、他のPCから質問者様PCの共有フォルダのブックを開いていないでしょうか?


ネットワークドライブを割り当てていれば問題無いですが、UNCパスなどは「chdir」が
機能しません。
適当にネットワークドライブを割り当てた後、「chdrive」でそのドライブに変更後、
「chdir」してみてはどうでしょうか?
    • good
    • 0

> 他の人のPCからファイルを開いてボタンを押下しても全く動作しません。


これは、実際にはどのような状況なのでしょうか?
「ボタン」をクリックしても、ウンともスンともいわない。
あるいはエラーが出て動かない。

この回答への補足

>これは、実際にはどのような状況なのでしょうか?
「ボタン」をクリックしてもウンともスンともいわない状況です。
マクロが動く気配すらありません。
エラーは全く表示されません。

動作するマクロはこんな感じです。
Sub OpenAllBooks()
Dim FileName As String
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean

ChDir (ThisWorkbook.Path)
FileName = Dir("*.xls")

Do While FileName <> ""
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName)
End If
FileName = Dir()
Loop
End Sub

補足日時:2006/12/27 13:41
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!