FileSystemObject Dim lRow, I, F As Long Dim FolderName, OldFile, NewFile As String Dim FileName As Variant Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") FileName = Application. GetOpenFilename ( MultiSelect: = True) 'ダイアログボックスが表示(MultiSelect:=Trueでファイルを複数選択) If FileName ( 1) < > False Then FolderName = File_function. GetParentFolderName ( FileName ( 1)) '選択した最初のファイル名からフォルダーまでのルートを取得する Else MsgBox "作業をキャンセルされました" Exit Sub 'プログラムを終了 End If lRow = ws01. Row 'A列の最終行を取得 ws01. エクセル黒魔術で、ファイル名を一括で変更する | 株式会社ヂヤンテイシステムサービス. Range ( "A6:A" & lRow + 1). ClearContents 'A列のデータ(文字列のみ)をクリアー F = 1 '選択ファイルの1件目を設定 For I = 6 To 5 + UBound ( FileName) '選択したファイルの数を繰り返す。(最大値) ws01. Range ( "A" & I) = File_function. GetFileName ( FileName ( F)) 'ファイル名を順番にA列(セル)へ転記します。 F = F + 1 '次のファイル名を指定するために+1加算する。 Next I ws01. Range ( "A3") = FolderName '選択したフォルダーバスをセル「A3]へ転記 End Sub ' ●「ファイル名変換」・・・・Sub FilenameChange04() 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ' '******** ******* ' ' Sub FilenameChange04 () '指定した新ファイル名を変換します。 Dim File_function As New Scripting.
また、Excelについて基礎から、学びたい方はこちらの書籍もご覧ください。
いざ実行!! 実行すると、以下の画像のように変更したいファイルがA列に一覧表示されます。 手順③B列の情報を手動で記入する 変更後のファイル名はさすがに自動設定はできませんので、 変更したい名前をそれぞれ記入 してください。 私の場合は以下のように記入を行いました。 ※上の画像のように連番ファイルを作成する場合は基準となるセルの角をダブルクリックすると一瞬で記入することができます。 ここまでで下準備完了です。 手順④ファイル名変更を実行する 準備が整ったら、もう一度VBAの記述に戻ります。 次はファイル名変更コードを記入しましょう。 以下のコードを丸ごとコピーしてください。 Sub file_rename() Dim j As Integer j = 1 Do Until Cells(j + 3, 1) = "" Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2) j = j + 1 ※今回はマクロが2つあるので、ご注意ください。 file_renameの方を実行します。 再び、いざ実行!! (実行しても、エクセルシート上はなにも変化はおきません。) 実行が終わったら、ファイルが保存してあったフォルダを確認してみましょう。 ファイル名がエクセルシートのB列に記入した名前に変わっているはずです。 終わりに というわけで今回は、指定したフォルダ内のファイルの名前を一括変更する方法をご紹介しました。 一度作っておけば、いろいろな場面で活用できるはずです。ぜひ時間のあるときに作っておきましょう。 このブログでは、エクセル(VBA)を中心に、様々な業務効率化スキルを紹介しています。 ■生産性の低い作業ははるべくしたくない。 ■もっと業務を効率化したい。 こんな人はぜひ他の記事も読んでみてください。 また、VBAを使ってこんなことがしたいんだけど、やり方がわからない、という悩みを抱えているかたは、お気軽にコメント欄から質問してください。 私にわかる範囲であればご協力いたしますので。(もちろん無料です。) 最後に・・・ このブログを応援してあげても良いよ、という方は以下のボタンをポチっていただけると嬉しいです。 にほんブログ村 Twitterもやっていますので、興味があれば覗いてみてください。 Follow @HigashiSalary それではまた!!
大量のファイルの名前を書き換えないといけない。ひとつひとつ手作業でやっていたら日が暮れそうだ。 この記事では、こんな悩みをエクセル(VBA)を使って一瞬で解決します。 さっそくやっていきましょう!
ちなみに、、HDDは2種類に分かれています。 IDEハードディスク SATAハードディスク パソコンによって違いますので、必ず調べてから購入して下さいね。 手順②壊れたパソコンからHDDを取り出す 壊れたパソコンからHDDを取り出すには、まずパソコンを開けることになります。 ここはパソコンによりますので、マニュアル等があれば見ながらやりましょう。もしなくても、そこまで難しいことはありません。ドライバーがあれば可能なことがほとんどです。 僕も5ヶ所のネジを外しただけで開けました。 ↓中はこんな感じ そして、HDDを取り出すにも、ネジを1ヶ所外しただけです。 HDDは衝撃に弱いので、無理やり引っ張ってどこかにぶつけないようにしましょうね!せっかく無事だったデータが壊れてしまいます^^ 無事HDDを取り出せたので、次はケーブルをつなぎます。 つなぐケーブルは2本だけなので、迷うことはないです。 ↓HDDに2本のケーブルをつないだ状態(「コード伸ばして撮れ! !」は言わないで下さい。。) 『USB端子』をデータ移行するパソコンにつなぎ、『電源ケーブル』はコンセントは普通に刺します。 ここまで進んだら、スイッチがついてるので、スイッチをオン ↓スイッチをオンにすると、ライトがつきます。(「ONとOFFが逆だろ!ちょっと考えろ! !」も言わないで下さい。。) スイッチをオンにしたら、HDDが壊れていなければブーンという音がします。これはHDDの回転が始まった証拠なので、とりあえず音が聞こえたら少し『ホッ』とすることができます。 ここで動かなければ、HDD自体が壊れている可能性があります。 もしくは、ただスイッチをオンにしてないだけの可能性があります。僕のように… データを移行するパソコンにHDDをつなぐと、外付けのHDDとして認識されます。 今回の僕の場合は、OS(F:)として認識されました。 あとは、この中の必要なデータを移行するだけです。 データを移行しようとして、フォルダをクリックすると下記のような画面が出る時があります。 自分のユーザー名のフォルダを開こうとすると間違いなく出るはずですが、『続行』を押して大丈夫です。 『続行』を押したらアクセス出来るようになります。 この方法で、無事壊れたパソコンからデータを取り出すことが出来ました!
なので、この内蔵HDDを外付けHDDのようにパソコンとつなげて外付けHDDのようにデータを出せる道具がちゃんとあるんです。 タイムリー GROOVY こういうの。 で、これを先ほど「ドライブ」と「PC」につなげます。 こんな感じで、 むき出しの外付けHDD って感じです。 ※ケーブルの差し込み種類はいくつかあるようです。 僕のは「シリアルATA」というタイプでした。詳しくはパソコンの店員さんにドライブもっていって聞いた方が間違いないかも。 これで、見事「Cドライブ」「Dドライブ」のデータを復旧する事ができました! ここらへん、詳しい人ならアホじゃね?ってくらいのレベルの話かもしれませんが、 知らなかった僕は 「こんな簡単にデータを取り出せるんだ!」 と感動モノでした。 ちなみに、データ取り出し中、HDDは超熱くなるので注意です。 いつの日か、お役に立てれば幸いです!
パソコンが壊れました。 僕のメインパソコンが朝から起動しません。 「来たか・・・・ ついにこの日が・・・・」 遠くの空を見つめながら言ったよね。 電源ON、OFFを何度も繰り返しながら 涙目で言ったよね。 インターネットに詳しくても、意外とPC(パソコン自体)の事は よくわからない方も多いんじゃないですか? 今回は、そんな一人の僕が見事、完全に起動しなくなった パソコンからデータだけを 抜き出す までの完全ドキュメントです。 ある日突然パソコンが動かなくなった時の為に、 絶対知っておいた方がいいですよ。 壊れたパソコンの症状 僕のパソコンはDELLのデスクトップで今年で6年目です。 パソコンが起動しない。というかモニタに映らない いろいろパソコンが壊れた時の症状はあると思うですが、 今回の僕の症状は、 起動するんですがモニタに映りません 。 なんでセーフモードにもできず、非常に困りました。 本体だけ「ウイーン」と唸りますが先に進まない感じです。 データは? だいたいのデータは外付けHDDなので良いのですが、結構な量のデータ(しかも重要度の高いの)が Dドライブに入っていた ので、かなり顔面蒼白になりました。 もうね、5回くらいON、OFFしたよね。 起動しないパソコンを治す方法を探す 当然、コードの接触をまず疑って、配線をグリグリ。 でも動かないのでiPadminiで必至にググる僕。 ↓ 見つけた記事 BIOSが起動しない ぜんぜんBIOSじゃないけど、試しました。 症状酷似なんで。 記事を読めばわかりますが CMOSバックアップ用ボタンの消耗 で 同様の症状が出る様です。なので、電池を買ってきて替えてみます。 ガバーと外して(汚ねー・・) すげー探してありました!一番下のこの電池。 マイナスドライバーで簡単にとれます。 こいつに全ての望みを託します。。 ダメでした。 替えてみましたが普通にダメでした。 何回ON、OFFしてもダメでした。 (※人によっては結構解決する様です。お試し下さい!) モニタ自体は他のパソコンで動くので、 こりゃ本体イカれたなと覚悟しました。 データの復旧 取り出し方法 もう、パソコンは買い替えるとして、データをなんとか抜き出さねばなりません。 どうすればいいか知っていますか? でまぁ、調べたり聞いたりでわかった方法があります。 それでは、順に説明しますね。 まず、先ほどバカーってあけた中から 「ドライプ」 を取り出します。 矢印の子です。僕は1つですが、増やしているといくつかあります。 刺さっているのを抜いて 手まえに抜き出します。 結構簡単に取れます。パソコンにもよるかもしれませんが、僕の場合ドライバーすらいりませんでした。 こんなの。 裏側 知らなかったんですがこれ、外付けHDDの中身と同じなんですって!