【やりたい事】
A3セルにあるファイル名(ファイルパス)から
A7にあるファイル名(拡張子なし)へ
変更をする、マクロを組みたいです
ご存じの方、教えて下さい
【ファイルの場所】
C:\Users\2020\OneDrive\マクロ\テストフォルダ1
フォルダの場所は常に変わらないです
【変更前のファイルパス⇒A3セル】
C:\Users\2020\OneDrive\マクロ\テストフォルダ1\20240504あいうえお.xlsx
【変更後のファイル名⇒A7セル】※任意のファイル名をこちらで入れます
22220101あいうえお
No.4ベストアンサー
- 回答日時:
以下のようにしてください。
Option Explicit
Public Sub ファイル名変更()
Dim full_fname As String
Dim fname As String
Dim folder As String
Dim ext As String
Dim new_full_fname As String
Dim pos As Long
full_fname = Range("A3").Value
fname = Dir(full_fname)
If fname = "" Then
MsgBox (full_fname & "は存在しません")
Exit Sub
End If
pos = InStrRev(full_fname, "\")
folder = Left(full_fname, pos)
pos = InStrRev(fname, ".")
ext = Right(fname, Len(fname) - pos + 1)
new_full_fname = folder & Range("A7").Value & ext
Name full_fname As new_full_fname
MsgBox ("変更完了" & vbLf & "変更前:" & full_fname & vbLf & "変更後:" & new_full_fname)
End Sub
ご指導ありがとうございます
以下がエラーとなり、動きませんでした。
お手すきな時にアドバイスお願いします
Name full_fname As new_full_fname
No.3
- 回答日時:
こんにちは
単純な文字列操作を行えば良いだけでは?
path = Range("A3").Text
path = Left(path, InStrRev(path, "\")) & Range("A7").Text & ".xlsx"
>フォルダの場所は常に変わらないです
その割にはセル値で取得するなどといったことをしているので、疑問ではありますが・・
固定値ならConstで定義しておくほうが確実なので・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Excel(エクセル) セルの値からファイルを複数作りたい 2 2022/10/06 12:42
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
Excel(エクセル)
-
はがきについて。
Excel(エクセル)
-
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
-
4
Excelで空白以外の値がある列のみ抽出する方法
その他(Microsoft Office)
-
5
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
6
Excelにて数式を使用して 工数計算をしたいのですが、 計算方法が分からないので教えて下さい。 1
Excel(エクセル)
-
7
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
8
【マクロ】フォルダからエクセルファイルの名前を取出すためには
Excel(エクセル)
-
9
【Microsoft Office Excel Compote 】マイクロソフトオフ
Excel(エクセル)
-
10
西暦や和暦の表示をyyyymmdd表示へ変更をしたい
Excel(エクセル)
-
11
Excelで、決まった行を繰り返しコピーする
Excel(エクセル)
-
12
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
13
【関数】適切な文字数の数字を取り出したい
Excel(エクセル)
-
14
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
15
エクセルで日付の入ったセルの月別の個数が知りたい
Excel(エクセル)
-
16
スマートな関数を教えて下さい。
Excel(エクセル)
-
17
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
18
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
19
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
20
エクセルで 例えば 伊藤と名前のついたファイルを検索する方法を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
エクセル マクロ チェックボックス
-
Excelで挿入した図をセルの中央...
-
太字に設定されているセルの個...
-
Excelでセルをクリックす...
-
クリックすると文章が表示され...
-
Excel ハイパーリンクのURLを別...
-
Excel2007 色のカウント (VBA)
-
マクロを実行すると画像がズレ...
-
エクセルでの検索ボックスの作...
-
空白セルを空セルに置き換える...
-
セルの値が変ると自動でマクロ...
-
フォントの色を指定して削除出...
-
エクセルでセルをダブルクリッ...
-
【EXCEL】先週の月曜日の日付を...
-
VBA 見つからなかった時の処理
-
Excelで、図形内の文字をセルに...
-
エクセルでページ数をあるセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
VBA 見つからなかった時の処理
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
セルがクリックされた回数をカ...
おすすめ情報