log

no-title Log Page

 
  • CHANGE LOG
  • Game
  • Color
  • Special character
  • Bitcoin Faucet
メニュー
  • CHANGE LOG
  • Game
  • Color
  • Special character
  • Bitcoin Faucet
  • 複数のファイル名をそれぞれ別のファイル名に一括変換する方法





    ファイル名をそれぞれ別のファイル名に一括変換したいな~っと思い方法を探ってみました!

    とりあえず、失敗するかもしれないのでここに書き書きメモメモしながらしていきます。

    完成したら、タイトルには「ファイル名をそれぞれ別のファイル名に一括変換する方法」で投稿できるけど・・・
    失敗したら、「ファイル名をそれぞれ別のファイル名に一括変換しようとしたら失敗した」で投稿だねw

    では、さっそくやってみよう!

    用意するものはエクセルです。

    私のPCにはExcel2003とExcel2016の2つのエクセルが入っています。


    個人的にはExcel2003が大好きですw
    なので、今回はExcel2003を使ってマクロを組んでいきたいとおもいま~す!
    ※マクロはExcel2003でしか組んだことありません。


    まずは私がしたいことはA列のようなファイル名を横のB列のファイル名にしたいといったイメージです。

    ファイル名の後ろに数字をつけたり、特定のファイル名にしてその後ろに数字をつけてリネームもソフトが色々あって簡単に出来ますが、まったくバラバラなファイル名をそれぞれ別々のファイル名に一括変換できたらかなり楽で仕方ないですよね。

    ってことでそんなことを実現すべく頑張ります!

    まずはエクセルを開きます。

    そしてマクロの中にある「Visual Basic Editor」を開きます。

    Sheet1に作ろうと思うので、「Visual Basic Editor」で左側の「Sheet1」をクリック。


    まっさらな画面が出てきました。
    う~ん、久々のマクロですることは決まっているのに何しようか悩んでしまいそうですねw
    まずは、ファイル名を変えたいファイルがどこにあるのか位置を特定させるところからスタートです。

    今回はさっきの適当な数字をフォルダ名にしたフォルダを準備しました。

    ↓こんな感じです。


    左の各フォルダはデスクトップの「prototype」というフォルダ内に入っています。
    なのでマクロに「prototype」内のフォルダと指定しなければいけないのでこの動作をマクロにまずは記述していきます。

    でも、毎回このフォルダに名前を変えたいフォルダ移動させるのも面倒ですね。
    なので、適当にエクセルシートのセルにフォルダの位置を記入してここの中ですよ~ってした方が良さそうですね。
    ってことで、A1のセルに名前を変えたいフォルダが入っているフォルダのフルパスを入力します。


    エクセルA1にスペースが欲しいので1段追加しました。
    そして、左側のフォルダの上のパス(C:\Users\(PCのユーザー名)\Desktop\prototype)をコピーして、エクセルのA1に貼り付け。

    することが決まったので宣言を考えよう!

    Dim 変数名 [As データ型]

    ①Dim fp As String

    fp←パスを変数に格納するので

    fp = Range(“A1”).Value & “\”

    ②Dim i As Long

    この場合、さっき1段ずらしたのでA2から下にフォルダ名を変えたいフォルダ名が入っているので2を指定します。

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

    ③Dim fo As String

    現在のファイル名を取得させます。

    fo = Cells(i, 1).Valu

    ④Dim fn As String

    新しいファイル名を取得させます。

    fn = Cells(i, 2).Value

    他にもC列に結果を入力させたりと・・・

    で、サクサク書いて完成したのがこちら↓

    Sub ファイル名を指定のファイル名に一括変換()

    Dim fp As String
    Dim i As Long
    Dim fo As String
    Dim fn As String

    fp = Range(“A1”).Value & “\”

    On Error GoTo ERR_HANDL

    Range(“C1”).Value = “実行結果”

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

    fo = Cells(i, 1).Value

    fn = Cells(i, 2).Value

    If fn <> “” Then

    Cells(i, 3).Value = _
    “ファイル名を” & _
    “「” & fo & “」から” & _
    “「” & fn & “」に変更”
    Name fp & fo As fp & fn
    End If
    Next i

    Exit Sub

    ERR_HANDL:

    Cells(i, 3).Value = _
    “×” & Err.Description & “:” & Err.Number
    Resume Next

    End Sub




    実際にマクロを実行してみたいと思います。

    実行した結果↓

    成功しました。

    更にもう一度適当にファイル名を指定してみました!

    今回は「平仮名」「 (空白)」「_」とかも混ぜてみました。

    ↓結果がこちら↓

    問題なく変更されました。

    これで一々コピー貼り付けや1つ1つファイル名を編集する手間が省けましたね!
    以上、エクセルのマクロを使って複数のファイル名をそれぞれ別のファイル名に一括変換する方法でした。

    この方法をされる方は自己責任でバックアップをとってからやりましょう!













    2017年6月7日 / exe / 0

    カテゴリー: メモ

    タグ: Excel, Excel2003, Visual Basic Editor, エクセル, マクロ, 便利ツール

    「テキストボックスに<BR>が表示されちゃう!!」そんな時、<BR>を表示されないようにする方法!! えっ、あんスタに台湾版とかあるの???気になったので調べてみる!!(動画有り)

    コメントを残す コメントをキャンセル

    メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

Count per Day

  • 1現在オンライン中の人数:

RECENT POSTS

  • メモ
  • 一部URLを変更したからブックマークしてた人は…
  • Payouts history 14 JAN
  • ただいま、大規模なHP内のデータを整頓中です。
  • Payouts history 13 JAN

RECENT COMMENT

  • 百度(BAIDU)にホームページを登録してみよう![百度SEO対策] に exe より

ARCHIVES

  • 2021年1月
  • 2020年3月
  • 2018年2月
  • 2017年11月
  • 2017年10月
  • 2017年9月
  • 2017年6月
  • 2017年5月
  • 2017年3月
  • 2016年11月
  • 2016年6月
  • 2016年2月

CATEGORIES

  • Game
  • Web
  • Special character
  • Faucet
  • メモ
  • 更新履歴

Popular Posts

最も訪問者が多かった記事 10 件 (過去 7 日間)
  • Bitcoin Faucet
  • 中国版あんスタのダウンロードと「微信」の設定方法まとめ
  • 複数のファイル名をそれぞれ別のファイル名に一括変換する方法
  • BLUESTACKSを完全に削除してみる!
  • どうしても建物の高さを調べたいので「Google Earth」をPCに導入するの巻!
  • 「テキストボックスに<BR>が表示されちゃう!!」そんな時、<BR>を表示されないようにする方法!!
  • 冬に使いたい特殊文字!
  • 百度(BAIDU)にホームページを登録してみよう![百度SEO対策]
  • HTML「特殊文字」一覧
  • メモ

Tag cloud

BIG BOX OF WONDERS Bitcoin cryptoo.me Excel Excel2003 Google Earth HTML Last Day on Earth: Survival Payouts history PUBG SEO対策 Sniper 3D Assassin special character Visual Basic Editor あんスタ あんスタまとめ エクセル コピペ マクロ 便利ツール 偶像夢幻祭 台湾版あんスタ 特殊文字 绝地求生: 刺激战场
https://youtu.be/1D3Xtz_j3K0
 

metadata

  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org

Count per Day

  • 1現在オンライン中の人数:

ARCHIVES

CATEGORIES

  • Game
  • Web
  • Special character
  • Faucet
  • メモ
  • 更新履歴

Copyright © 2015 logTheme created by PWT. Powered by WordPress.org