[[20240425112902]]　『ｍp3音源のパスについて』（妖精）　ページの最後に飛ぶ

『ｍp3音源のパスについて』（妖精）

A6セルに音源がある位置を絶対パスで入力し、
マクロにて
File = Range("A6")

If File <> "" Then Call mciSendString("play " & File, "", 0, 0)

と表記して音を鳴らしているのですが、
A6セルの指定には絶対パスではないと音が鳴らないため、
相対パス（同フォルダ内に保存されている音源を指定）
でも音が鳴らせる様にすることは
可能でしょうか？

＜使用 Excel：unknown、使用 OS：unknown ＞

A6に相対パス(xxx.mp3)を入力してとその上の親パス（oya)を連結してFileに渡せば良いのでは？

File1＝Range("A6")
File=oya & "\" File1
（稚拙） 2024/04/25(木) 13:04:47

フォルダごと別PCや別アカウントに移動させて他者が利用する際、
親パス指定ができず、
毎回絶対パスを指定させなければいけない面倒があるため、
相対パスで簡易に出来ればとおもっておりましたが、自己解決できました。

A6セルに「〇〇.mp3」とファイル名＆拡張子を入力し、

コードを

 File = ThisWorkbook.Path & "\" & Range("A6")

とすることで解決できました。
ありがとうございました。
（妖精） 2024/04/25(木) 13:32:47

コメント返信：