ここから本文です

エクセルVBAについて教えてください。sheet1のA2セルに書類.docx、A3セルに資料...

nek********さん

2019/6/2513:06:11

エクセルVBAについて教えてください。sheet1のA2セルに書類.docx、A3セルに資料.pptx、B2セルに書類更新、B3セルに資料更新という値が入っています。

A2、A3セルは様々な形式のファイル名が拡張子付きで入っており、B2、B3セルは拡張子はついていません。この状態で、拡張子は変えずにファイル名のみVBAで変更したいです。どうすればうまくいくのか教えてください。

補足補足です。A2セルの書類.docxを書類更新.docx、A3セルの資料.pptxを資料更新.pptxにしたいです。

パス = Cells(1, 1) & "\"
Cells(2, 1).Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) <> "" Then
Name パス & ActiveCell As パス & ActiveCell.Offset(0, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
で試してみたのですが、これはB2,B3の値に拡張子が含まれている場合は成功するのですが、今回の質問のような場合はファイル形式が消えてしまいます。ネットで調べているのですがなかなかよくわからなくて・・どうかご教示ください。

閲覧数:
26
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

2019/6/2514:54:54

Name パス & ActiveCell As パス & ActiveCell.Offset(0, 1) & Mid(ActiveCell, InStrRev(ActiveCell, "."))

で、どうでしょうか。

質問した人からのコメント

2019/6/25 18:28:50

ありがとうございました。助かりました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる