こんばんは。
現在のアクティブセルに入力された文字列「(例)0001」を入力するとシート名、ファイル名、フォルダ名が変更するVBAを作成しています。
シート名の変更は出来たのですが、ファイル名とフォルダ名の変更が上手くいきません。
大変恐れ入りますが、伝授いただけないでしょうか。
よろしくお願い致します。
Sub シート名変更()
Dim シート名 As String
シート名 = ActiveCell.Value
If シート名 = "" Then
MsgBox "文字列を含むセルを選択してください。"
Exit Sub
End If
ActiveSheet.Name = シート名
End Sub
No.1ベストアンサー
- 回答日時:
>ファイル名とフォルダ名の変更が上手くいきません。
フォルダ名を変更するのではなく保存先とファイル名を変えるのですね?
Sub Test()
Dim 元ファイル名 As String
With ThisWorkbook
元ファイル名 = .FullName
Application.DisplayAlerts = False
.SaveAs Filename:="J:\さんぷる.xls" '指定フォルダー、指定のファイル名で保存
Application.DisplayAlerts = True
Kill str '元ファイルを削除
.Close False 'ファイルを閉じる
End With
End Sub
この回答への補足
>フォルダ名を変更するのではなく保存先とファイル名を変えるのですね?
早速の回答をありがとうございます。
フォルダ名も変更したいと思っています。
毎日同じ作業を行っており、フォルダがメールにて送られてきて、一つのフォルダには一つのファイルしかなく、シートはシート1、2、3と三枚あります。
添付されたフォルダをディスクトップに保存し、シート1のA1に入力された文字列「(例)0001」を入力すると、シート1のシート名とファイル名と、フォルダ名がA1に入力された文字列「(例)0001」に自動的に変更になるように、VBAを組みたいと思っています。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
重複するidをデータごとにまと...
-
エクセルVBA Ifでシート名が合...
-
エクセルVBA 変数への代入がう...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBAで次の様にデーター...
-
同じ作業を複数のシートに実行...
-
VBA オートフィルター繰り返し
-
VBAで同じシート名のコピー時は...
-
別のシートから値を取得するとき
-
エクセルのシート名変更で重複...
-
エクセルのマクロでアクティブ...
-
VBA ユーザーフォーム上のチェ...
-
【エクセル】オプションボタン...
-
Worksheet_Changeの内容を標準...
-
別のシートを参照して計算する方法
-
Excel VBA で自然対数の関数Ln...
-
Excel VBA 複数行を数の分だけ...
-
Excel VBAシートの色を一気に変...
-
Excel VBA 文字列のセルを反映...
-
VBA 入力月で該当シートを選択...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
別のシートから値を取得するとき
-
ブック名、シート名を他のモジ...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
エクセルのシート名変更で重複...
-
実行時エラー1004「Select メソ...
-
VBAで同じシート名のコピー時は...
-
エクセルで通し番号を入れてチ...
-
同じ作業を複数のシートに実行...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
Vba UserformからExcelシートの...
-
【Excel VBA】Worksheets().Act...
-
VBA 存在しないシートを選...
おすすめ情報