エクセルマクロ プルダウンリストの拡張子を省く

質問

お世話になります。

既に解決としました http://okwave.jp/qa/q7131441.html　の結果、プルダウンリストに拡張子まで表示されるのですが、拡張子なしで表示する方法を探しています。

動作の最後にこのファイル名も使った新たなファイル名で保存するのですが、保存ファイルに拡張子が２つ入ってしまう事になります。保存指定で省けるかも？と考えましたが、A1のファイル名をどちらも同じ変数で扱いますので初級の私には難しいです。

この件は前回質問時に織り込もうとしたのですが、自分でなんとかできるだろうと過信していたところ、結果できずにいます。よろしくお願いします。

回答No.1

keithin · ベストアンサー

方法１：

変更前：
s = s & myfile & ","

変更後：
s = s & application.substitute(myfile, ".xls", "") & ","　’拡張子/省きたい文言は適宜

方法２：
＞このファイル名も使った新たなファイル名で保存するのですが、保存ファイルに拡張子が２つ入ってしまう事になります。

はて？
作成例：
sub macro1()
　dim myPath as string
　dim myFile as string

　mypath = "c:\どこかのフォルダ\"
　myfile = "sample1.xls"

　activeworkbook.saveas filename:=mypath & myfile
end sub

お礼

ありがとうございます！
方法１のみであっさり解決できました。
方法２もこの後試しますが、ここで〆させて頂きます。

いつも親切な回答で助かります。
再度別件にてどうしても分らない時にはお力をお貸し下さい。
ありがとうございました。

補足

度々迅速回答ありがとうございます。
この補足入力後は試さずにまた明日になるのですが、、、

「拡張子が２つ」に関して、元ファイル名がbbb.xlsならば保存時の末尾に指定すれば新規ファイル名の拡張子は簡単に１個にできますが、元ファイルの拡張子はｔｘｔ等で、且つ他にも飾り付けしていますので aaa_bbb.txt_ccc.xls というようなファイル名になってしまうという意味です。説明不足ですみません。

気がつけばもうこんな時間で、、、ごめんなさい。明日確認します。