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.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を増やせば可能ですが、できるだけ簡単な方法を選択しました。
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
お探しの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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
同名フォルダを作成し、そのフォルダに移動するバッチ
その他(プログラミング・Web制作)
-
ファイル名から該当フォルダへ移動
Visual Basic(VBA)
-
.batでファイル名から抽出してフォルダを作成しコピーする
その他(プログラミング・Web制作)
-
-
4
多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。
PowerPoint(パワーポイント)
-
5
VBSでファイル名と同じフォルダを作成し、移動させる。
Visual Basic(VBA)
-
6
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
7
一括でフォルダと同じ名前にファイルをリネームしたい
フリーソフト
-
8
ファイル名の頭5桁と同名のフォルダを自動作成し、移動させる方法はありますか?
Access(アクセス)
-
9
Windowsで複数のファイルを同じ名前のフォルダーに振分ける方法を教えてください。
Microsoft ASP
-
10
Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい
Visual Basic(VBA)
-
11
ファイルと同名のフォルダに移動するには?
その他(パソコン・スマホ・電化製品)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
14
複数フォルダをまとめて移動するバッチ
Windows Vista・XP
-
15
ファイルと同名のフォルダを作成
その他(プログラミング・Web制作)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
18
エクセルVBAで一つ上の階層を指定して保存したい
Excel(エクセル)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
Excel VBA 同じ名前のフォルダ...
-
同一フォルダ内の別ブックから...
-
VBA フォルダ名に特定の文字を...
-
【マクロ】ファイル名の日付に...
-
ディレクトリ名変更してコピー...
-
VBA 最新のフォルダ取得
-
Downloaded Program Filesはど...
-
デスクトップの画像をhtmlに表...
-
Access VBA で フォルダ権限...
-
保存先のフォルダ名を指定した...
-
VBA フォルダの複数選択ができない
-
Hitachi Embedded Workshop (HE...
-
エクセルのマクロについて教え...
-
エクセルで、マクロを使わずに...
-
VS2005で"定義へ移動"ができません
-
多量のファイルをフォルダに自...
-
ファイル名を取得し、ログファ...
-
Dreamweaverでイメージを挿入す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
パス名に2バイト文字(マルチバ...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
Excelのハイパーリンクについて...
-
デスクトップの画像をhtmlに表...
-
ディレクトリ名変更してコピー...
-
VBA フォルダ名に特定の文字を...
-
バッチファイルで指定フォルダ...
-
フォルダ内のPDFファイル名を変...
-
Access VBA で フォルダ権限...
-
excelマクロ 冒頭3文字が一致す...
-
【マクロ】ファイル名の日付に...
-
フォルダにリンクを貼りたい
-
会社のネットワーク上のファイ...
-
多量のファイルをフォルダに自...
-
C ファイル出力で、フォルダが...
-
保存先のフォルダ名を指定した...
-
vbsで選択ダイアログを表示した...
-
Excel VBA 同じ名前のフォルダ...
おすすめ情報