No.1ベストアンサー
- 回答日時:
Excelで代用する方法です。
1.新規でExcelを開き、Wordファイルが保存されているフォルダのパス
をセルA1に入力します。
例)C:\MyData\Docs\Word
2.[Alt]+[F11] で VB Editor を開き、標準モジュールに次のとおり
記述(コピペ)します。
'
Sub CrtFileNameDir()
Dim FPath, TargetFile, DName
FPath = Range("A1").Value
If FPath = "" Then Exit Sub
TargetFile = Dir$(FPath & "\*.doc")
Do While TargetFile <> ""
DName = Left(TargetFile, InStrRev(TargetFile, ".") - 1)
On Error GoTo Er
MkDir FPath & "\" & DName
FileCopy FPath & "\" & TargetFile, FPath & "\" & DName _
& "\" & TargetFile
Kill FPath & "\" & TargetFile
TargetFile = Dir$
Loop
Er: On Error GoTo 0
End Sub
'
3.VB Editor を閉じ、[ツール]-[マクロ]-[マクロ] から、上記マクロを
実行します。
すごいです。感動しました。(@_@)
エディタで拡張子を変えれば、他のファイルでもできるんですね。
20ポイント以上贈呈したい気分です。
ファイル整理が非常に短縮されそうです。
有難うございました。
ちなみに、このような方法はどこかに掲載されているのでしょうか。
もしよろしければ教えていただけませんでしょうか。
No.2
- 回答日時:
#1です。
> このような方法はどこかに掲載されているのでしょうか。
こういう処理がしたいと思うまさにそのもののマクロが記載された
本やサイトというのは、そう都合よくは無いでしょうね。
でも、Googleなどで「Excel VBA」のような語句をキーに検索して
みるとわかりますが、ネットにはVBAについて詳しく解説してくれて
いるサイトがいくつもあります。
こういったサイトや本で、まず入門編で基本を覚え、順に段階を高
めていかれれば、サンプルを応用して自分に都合のよいプログラム
を作れるようになるでしょう。
VBAに関するQ&A掲示板もいくつかありますが、具体的で大いに
参考になります。
がんばってください。(私もまだまだ「正しく美しい」モジュールを
書けるスキルはありませんが)
hanatyan.sakura.ne.jp/
www.moug.net/tech/exvba/
www.voicechatjapan.com/excelvba/index.html
No.3
- 回答日時:
テキストファイルに、下記のコマンドを記載し、○○.batの名前で保存してください。
---
SET SDIR=[*1]
FOR %%I IN (%SDIR%*) DO mkdir %%IF
FOR %%I IN (%SDIR%*) DO copy /-Y %%I %%IF
---
[*1]のところに対象となるディレクトリのフルパスをいれてください。
例)
SET SDIR=C:\hoge\
どこでもいいので設置したら、○○.batのファイルをダブルクリックしてください。
作成されるフォルダはファイル名の後ろにFがついてしまいます。
ファイル名と同じフォルダを作ることができないのでご了承ください。
※Stepを増やせば可能ですが、できるだけ簡単な方法を選択しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- システム vba シートの追加について 2 2023/05/17 15:58
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- その他(プログラミング・Web制作) セレクトボックスで選択された値をコントローラーで使用したい 2 2022/07/26 16:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
同名フォルダを作成し、そのフォルダに移動するバッチ
その他(プログラミング・Web制作)
-
ファイル名から該当フォルダへ移動
Visual Basic(VBA)
-
.batでファイル名から抽出してフォルダを作成しコピーする
その他(プログラミング・Web制作)
-
-
4
多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。
PowerPoint(パワーポイント)
-
5
VBSでファイル名と同じフォルダを作成し、移動させる。
Visual Basic(VBA)
-
6
一括でフォルダと同じ名前にファイルをリネームしたい
フリーソフト
-
7
ファイル名の頭5桁と同名のフォルダを自動作成し、移動させる方法はありますか?
Access(アクセス)
-
8
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
9
Windowsで複数のファイルを同じ名前のフォルダーに振分ける方法を教えてください。
Microsoft ASP
-
10
ファイルと同名のフォルダに移動するには?
その他(パソコン・スマホ・電化製品)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい
Visual Basic(VBA)
-
13
複数フォルダをまとめて移動するバッチ
Windows Vista・XP
-
14
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
15
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
16
ファイルと同名のフォルダを作成
その他(プログラミング・Web制作)
-
17
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
20
サブフォルダ内のファイルを全部移動させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
フォルダにリンクを貼りたい
-
ディレクトリ名変更してコピー...
-
保存先のフォルダ名を指定した...
-
平日出力されるログを月次処理...
-
pythonでDepixを起動
-
フォルダ選択ダイアログ:ネッ...
-
VBA 最新のフォルダ取得
-
EXPLORERで開いているフォルダ...
-
Excel VBA マクロ リストボックス
-
エクセルマクロで指定フォルダ...
-
Access VBA で フォルダ権限...
-
エクセルのデータをメモ帳に貼...
-
Pythonの作業環境・作業フォル...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
指定フォルダからファイルを全...
-
ツリービューを使って、エクス...
-
フォルダのサイズを一覧にした...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報