【VBA】ファイル整理用マクロ(日付毎にフォルダ作成してコピーするだけ)

深緑の女魔術師です。

スロット系の画像を整理しててめんどくさい・・・

ってことで、この手の作業はマクロ等にやってもらうのが楽ですね。
VBSでも良かったのですが、使い慣れてるVBAで急きょ作成。

@仕様
・サブフォルダは読まないこととする
・振り分けフォルダ名は「YYYYMMDD」とする
・日付は作成日とする(撮影日にしたいけど、難しいらしい)
・ってか画像問わず全ファイル読んでるので、そもそもその仕様は無理なわけで・・・
・危険が伴うので、とりあえずコピーだけ

※大してデバッグしてないので、自己責任でお使いくださいませ。
※また、ファイルが消えたりするかもしれないので、バックアップを取ってから行うと良いかもしれない

@ソース

Sub ファイル整理くん

''変数
Dim strDir As String
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim wDate As Date
Dim objFile As Object
Dim wDir As String

''フォルダ取得
''サンプルなので、適当に指定してます。(指定は各自お好きな方法で・・・)
strDir = Cells(1, 1).Value

''フォルダ存在チェック
If Dir(strDir, vbDirectory) = "" Or strDir = "" Then
MsgBox ("フォルダ・・・おかしくないですか??")
Exit Sub
End If

''ファイルを全部読む
For Each objFile In objFSO.GetFolder(strDir).Files

''日付取得
wDate = objFile.DateCreated

''日付フォルダの有無
''日付ディレクトリの設定
''作業フォルダ + YYYYMMDD
wDir = strDir & "\" & Format(wDate, "YYYYMMDD")
If Dir(wDir, vbDirectory) = "" Then
''ないので作成
MkDir wDir
End If

''移動(コピー)
objFSO.CopyFile (objFile.Path), (wDir & "\" & objFile.Name), True

Next objFile

''初期化
Set objFSO = Nothing

End Sub



思った以上に、簡単なソースになりました。

改良するとすれば、拡張子指定をしたいですね。

以上

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ
スポンサーサイト

Excel VBA セルの色をRGB形式で取得する(BGR→RGBに変換)

深緑の女魔術師です。

ひさびさにVBAネタの更新です。
さきほど、以前作成したテーブル自動生成ツールに色機能を付与しよう!
って思っていじってて、びっくりしたので・・・

件名の通りです。
VBAにて以下の要領でColorを取得するのはよかったけど・・・
 Cells(1,1).interior.Color

が、これに手取得出来る値は10進法なのね・・・
じゃあ16進法にするだけじゃん!って思ったのですが並び方が・・・

試しに赤色のセルを収録してみると・・・
赤色 = 255 (#0000FF)
緑色 = 65280 (#00FF00)
青色 = 16711680 (#FF0000)

なんかおかしくない??

そう、RGBでなく、BGRなのね・・・

というわけで、これでは使い物にならないので、以下関数を自作。
ただ、あまりデバッグしてないので、使えなかったらごめんね。



''BGR→RGB変換関数
''引数 :セルから取得したBGR(10進法)
''戻り値:RGB形式の文字列
''概要 :なぜかBGRの順番の10進法なので・・・
'' 16進法かつ、RGBに並び変えて返却する関数
Function FunTest(ByVal i_BGR) As String

Dim str_BGR As String

''Rだけとか、GRのみ等の対策で0埋めを行う
str_BGR = Right("00000" & Hex(i_BGR), 6)

''BGR -> RGB に変換して返却(切り取り作業)
FunTest = Mid(str_BGR, 5, 2) & Mid(str_BGR, 3, 2) & Mid(str_BGR, 1, 2)

End Function

''使用方法
Sub TestRun()

''セルのカラーを取得して、引数として渡す
MsgBox FunTest(Cells(8.1).Interior.Color)

End Sub


以上。

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

Microsoft Offic 2010 の アップグレードがめんどくさい件

深緑の女魔術師です。

すっかり忘れてましたが、Officeが2010にアップグレード可能だとうか・・・

いまちらっとサイト見てたのですが、なんともめんどくさいよ。

http://www.microsoft.com/japan/office/2010/techg/default.mspx

なんか購入したました的な証明書を送って・・・

えーこんなに面倒なのですか・・・

ユーザー認証してパラっとダウンロードかなぁ~って思ってただけになんとも・・・

というわけで、アップグレードはまたの機会ですね。

以上でした。
web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

Excel VBA 他のアプリケーションにキーを送る・・・Sendkey編~画像変換ツール付き~

深緑の女魔術師です。

少しづつアクセス伸びてる・・・
訪問ありがとう~☆彡

ひさしぶりにVBAのマクロでも・・・

今日は、Sendkeyについてです。

続く・・・

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

この記事の続きを読む場合こっち»


Excel VBA 文字検索・・・Find、FindNext編

深緑の女魔術師です。

使いそうな関数はメモっとないと・・・

ExcelVBAのお仕事はとの昔に終わってしまったケド
今回のツール作成で大変お世話になったのでこの関数。

文字検索を行う
・Find と ・FindNext

使い方に癖があって最初戸惑いましたケド、優秀な関数です。

以下ソース

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

この記事の続きを読む場合こっち»



web拍手 by FC2
拍手うれしいです・・・

ブログランキング・にほんブログ村へ

応援もうれしいです・・・
かうんたー
れきしとすうち
たぐいちらん

初打ち世界樹の迷宮NETぷよぷよアトラスサミー世界樹の迷宮5オリンピアフェーリ世界樹の迷宮4ブログぷよぷよ7JavaScriptKPESANKYOカルドセプトセガ大都技研オーイズミ山佐作ってみた大宮ソフトカルドセプトリボルトダウンロード版新世界樹の迷宮2メーシー実践魔法少女まどか★マギカ旧イベマジカルハロウィン凪のあすからぷよぷよクロニクルプレイ日記WindowsPhoneDAXELスロアプリSANYOWi-fiアクロスゾロ目祭北電子蒼穹のファフナーボス快勝ぷよぷよ20th3DS怪盗天使ツインエンジェル小説ぷよの日D-lightぷよぷよシミュレータ中段チェリー戦国乙女設定判別ツール真・女神転生IV-FINALメガテンぷよぷよテトリスガストTAKASAGOセブンスドラゴンⅢ終日実践岡崎産業攻殻機動隊サウンドトラックマウスコンピュータ新・ロロナのアトリエBistyパイオニアSurfacePro4エレコ誕生日にほんブログ村茉莉花の剣ひぐらしのなく頃に煌ハロウィーン目標2017年だいへんしん偽物語藤商事新台秘宝伝フリーズ化物語Microsoft記念日プリズムナナビビッドレッド・オペレーションユニバーサルブロス沖スロレビュー戦国乙女22016年MADOSMAQ501TAIYO天井Rioコンパイル終日一撃体験版スーパーブラックジャック2デビルサバイバー2ガールズ&パンツァーエンターライズスロ記念日スロットハヤカワ文庫勝ち勝ちくん世界樹と不思議のダンジョン戦国コレクション2機種紹介プリズムナナエースハウンドアクセス数Zippoアンデッドキング芝村裕吏事故ウィッチスロ雑誌マジカルハロウィン5VBAファミスタJPSナムコ七匠ドリスタタイヨーエレックPSVitaAI記念記事ASUSFonepadNote6A-SLOTスカイガールズ花火ゴッドイーター風邪ウィッチマスターストライクウィッチーズプリシラと魔法の本霊冥なる原初の主魔法少女エニックススクウェアDSiウェアファイナルファンタジーAndoroidMADOSMA前田ゆきえFlashレア台バジリスク絆ミリオンゴッド卓上カレンダー怪盗天使ツインエンジェル3ヱヴァンゲリヲンジャッカスチーム節目SNKプレイモアユニバーサルにょきにょきトリビー萌えよ剣オーバーロード打ち納めバジリスク3ドラコ探偵歌劇ミルキィホームズキーボードクレアの秘宝伝シェゾタイヨーアクセスアップスカイガールズ~ゼロ、ふたたび~設定6Excel連鎖倍率喰霊零クレアの秘宝伝2インフィニット・ストラトスマジカルハロウィン2特化ゾーンスパイキーActionScript魔法少女まどか★マギカ2C#高機動幻想ガンパレード・マーチヴァイスシュヴァルツアプリソニー麻雀物語TCG戦国乙女西国参戦編ニューチバリヨクイーンズブレイド2闘保護フィルムエヴァンゲリオンヤーマゼロノツバサ翠星のガルガンディアSONYHTML大敗コナミベルコアナザーゴッドポセイドンコンプガイドDSi富士通ミリオンゴッド神々の凱旋エスバットWiiファイナルファンタジー5十字架3ぷよぷよグッズRAVEアルルひぐらしのなく頃に絆ハルピュイアF07-Cニューギン機動警察パトレイバー収支マジカルハロウィン4スナイパイ72スターツ出版手帳BLOOD+2Bluetooth懐スロ緋弾のアリアオヤシロチャレンジテンプレートコクッチーブラック残飯処理サイレントメビウススーパーファミコン大連鎖エンディング1周年エキサイトポケモン打ち方スロマガポッキーの日開封の儀シンデレラブレイド2エンジェルラッシュ決意の刻ドキドキマンゴー楽園の導き手ブラックラグーン2秘宝伝伝説への道2015年ワールドカップ七夕愛本みずほPSVITAリオスパ月華の剣士ハーレムエース2ユニバカスキル検証キャラクタ―スリーブTRADラフィーナzippoメタルマックス4りんごゾーン狙いあんどうりんごカレンダー大量乗せああっ女神さまっ防空少女ラブキューレサントラ秋刀魚ヨーゲル豚インフルエンザぷよグッズうみねこに鳴く頃にVBAバビロン神たまコロンバスサークルワイヤレスキーボードWindows10Mobileホムラミズチグッズ地獄少女翠翼の呪皇パイ遊記まじかるすいーつプリズムナナベヨネッタブログテンプレートコクッチマスターズGRANTON蒼穹のファフナ―ミズホダークアルルペルソナQ真モグモグ風林火山2ほぼ日打ち始めパチンコリデルアナザーゴッドハーデス一騎当千VV銀河機攻隊マジェスティックプリンス百花繚乱サムライガールズファミスタクライマックス麻雀物語3ムック本ファミスタリターンズ押忍!番長3攻殻機動隊2ndエマハイライツロンソンライターヱヴァンゲリヲン希望の槍エウレカセブンAOまつりばプリティ戦記ファンキージャグラー1G連ラフィソル悪魔城ドラキュラ流星群買ってみたQ601パーティ魔法少女リリカルなのはThinkPad超大連鎖キリ番フェストゥムラッシュ海物語3DSカルドセプトセカンドGTS一確チャンス享楽ジャグラーガラスフィルムCSSDLCネットブックマタドール2マジハロファミコンデンケン販売二つ名更新率乱嵐エイサーゲームパッド怪盗天使ツインエンジェル2ARTシャーマンヒポグリフ萌えの日機動戦艦ナデシコおそ松くんサムライスピリッツ宇宙戦艦ヤマト2199FOEナイトオブマハラジャイベント日天体観測沖ドキジャックポット元祖ハネスロ再びトータルイクリプスアイドルマスター天井狙いバーチャルコンソールサタン様南国物語ロデオ記事数Zゴールド・インフィニティ魔法少女まどか☆マギカマクロスフロンティアイベントウィッチクラフトワークス連鎖ボイスWPSひぐらしのなく頃にファイナルファンタジー6DーLightSEGA懐かしい台マジカルハロウィン3設定6リリカルなのはWi-Fi中継器イニシエダンジョンミラクルぷよぷよ25th鉄拳3エンジェルverドリスタせかんどまとめ記事魔法少女プリシラなでしこパワプロ2016ハナビゾロ目予約投稿神々の凱旋シュタインズ・ゲートサロメ様フィーバーパワフル角川つばさ文庫ささみさんがんばらないすろっとシマシマ寝違え仮想テーブルぎゃざガールAndroidLGユニバファミリーコンピュータ確定発火創星のアクエリオン2実践結果パイ遊記ボーナス押忍!サラリーマン番長SNKクイーンズブレイド夢夢ちゃんマリア様L-04C紙の本読みなよドラゴンクエストメタルスラッグしおりメモ帳階段連鎖KOFICカードステッカーPSYCHO-PASSテキストエディタプレミアムバジリスクチャンス1G連トラックバックベルセルク麻雀物語3下書6周年学園黙示録HOTDドリームキャスト続回胴のジャンゴJavaSriptWiki四暗刻単騎はこパラタクシー小林めぐみヒッパルコス国立天文台ともだちコードコンビニ役満Laputaホームページ緒方孝市魔道物語不毛地帯国士無双サンマ神たな型抜きチキンレースPCエンジンN64スーファミメガドライブMSXうなぎ浜松Wii魔界マジカルハロウィンR部分日食極大日ふたご座流星群あけましておめでとうございますしぶんぎ座流星群2コンデグレード格闘美神ウーロンカープmp3イルカアシスタント7月30日ちびぷよバグシステム屋プログラマーデバッグDSステーション戸田恵梨香NoName海の日初音ミク近代麻雀ネトマ近代麻雀オンラインバトルオンバトフィーバー全消しPerlK20D酒田CGIICレコーダーMIDIタグブログパーツ山形すーぱーぷよぷよ津波地震文字検索P2P地震情報P2PGTRヘルファイアーハザードマップウナギテイルズオブデスティニーテンパイラッシュひぐらしに鳴く頃に煌世界樹の迷宮5ジャガーノートバッドマンスロット年鑑グリモアマラソンこめ苺スキュレー鬼の城バイオハザード5鬼浜忍魂学園黙示録ニューキングハナハナハッピージャグラーウルトラマンウォーズシンデレラブレイド2DARKER-THAN-BLACKドラゴンギャル戦律のストラトスニューパルサーデラックス世界樹と不思議なダンジョン決戦の刻魔法少女マギカ☆まどかATOKスマフォアプリ娘娘娘アップグレードテラシグマフォレストセルあやしいクルーク木星シーマスターASUS】FonepadNote6黄門ちゃまスーパージャックポットスナイパイ創聖のアクエリオンUFOキャッチャーコード・ルージュオーストラリア借りぐらしのアリエッティジブリスマートフォンSH-10BLYNXコードルージュクラビノーバLenovoああっとうなぎパイN450ATOM新世紀エヴァンゲリオン魔魚ナルメルプリンセストップをねらえ藤間千歳ピンポン設定1すれ違い通信絶対衝激2HAI-SAI蝶特急絶対衝激ハイサイ蝶特急ハイサイ超特急マナフィバタフリーレムレスNETスワロウテイル人工少女販売処ポケットモンスターブラックソウルシルバー鶴田謙二ホワイト大量上乗せひまわりセブンスビートデビルメイクライクロスScreenBeamMini2Continuum這い回る毒蟲ゴーレム最強武具スキル振り前兆長いルパン三世~消されたルパン~ガンナー法条遥FC2拍手キャラメイク乙野四方字君を愛したひとりの僕へ拍手SEOバーサス検証カレーユーザタグオリンピックデッドオアアライブビタ押しサザンアイズ天下不武3ハーピー海物語IN沖縄2メルモ水晶竜北斗の拳修羅の国篇10周年メルマガロストプラネット2未来予想図深緑の戦姫絶唱シンフォギアDOAデッドオアアライブ5クイーンジャックネオスーパープラネットDX極楽モード創立記念日聖チェリーヌ学院次回予告僕が愛したすべての君へ藤井太洋大量投稿キキーモラ秘宝伝TheLastめぞん一刻桜の下でWindowsトラックパッドラブ嬢ガチ抽選コードギアスコードギアスR2めぞん一刻プロフィールロンソンライターユルビスカスバイオハザード67周年キングパルサードットパルサー教材初勝利エヴァンゲリオン魂を紡ぐもの天井単発がんばれゴエモン〜ゆき姫救出絵巻〜DoCoMoバー揃い南国物語スペシャルスーパーリノMAXドリームハナハナ東芝ポータブルHDDオービタル・クラウド最終巻ポータブルドライブバッファロー真田純勇士ラブストライク北斗の拳将ハルキ文庫バルタン星人ロストアイランド2キッズケータイ乾くるみセブン沖ドキ!パラダイステラフォーマーズ菊田裕樹ぷよぷよ通貞子3Dロードオブヴァーミリオン高砂勝利への願いおそ松さんジャックポットトロピカルバージョン2セブンバー連敗脱出モンキーターン残機尽きるまで私は戦うusi学研スターオーシャンG1優駿倶楽部オリックスバッファローズ天空のシンフォニアコルモゼットマンポンタソウルキャリバージョーズ牙狼守りし者牙狼オアシスデイズモンキーターン3ゼクスイグニッションSDカードゲーム制作押忍!番長3ビビッドレッドオペレーションズ新基準ラジアントヒストリア鬼浜爆走紅蓮隊獣王キン肉マン3キン肉マンアニバーサリー世界樹と不思議なダンジョン2アイムジャグラーEXRUEDOA601みんなで楽シーサー輪るピングドラムやってみた件名詐欺ぷよぷよ7モバイルバッテリービビットレッド・オペレーションZETMAN並木のり子にょきシミュレータ実績お勉強試打火曜サスペンス劇場FC2ブログシミュレータプレイ時間ナナシー豊丸薄桜鬼好きな台メタルギアソリッドもっと!沖縄フェスティバル図柄ハーレムエース筐体クランキーセレブレーションブロガーブリードカードWaterFoxブラウザロリポップチェーンソー涼宮ハルヒの憂鬱ハイサイ超特急ターボコクッチーマスターズ一騎当千南海花浪漫攻略本モンスターハンター狂竜戦線Pileまじかうすいーつプリズムナナシスタークエスト4弱虫ペダルニューペガサスRスーパービンゴリゾートアリィシェイク3倒産モンスターハンター月下雷鳴麻雀格闘倶楽部2ニュースモモチャンキャラグミン犬夜叉トリプルクラウンG清瀧ゲームジャパンスーパーストリートファイター4掃除アカギ平和マンガ北斗の拳強敵芦奈野ひとしコトノバドライブInternetExplorerIEモンスターハンター西島大介クワドラロック天井到達IE非対応設置少ない乙女魂~光と無月~人口記事稼ぎ修理ベストショットカットインデンジャー柄乙女魂三秋縋野﨑まど六冬和生野崎まどデュエリストスーパー乙姫チャンスのうりん長良川鉄道SurfacePro3ルーンナイトサムライガールズサムライ乙姫チェリーネタ台三秋携帯バッテリーマクロスフロンティアBBver三日間の幸福新記録猛虎花形巨人の星新作ゲーム711枚旅行シャドウハーツ2~運命の道標~リリカ様SRチェリー故障ファインプレー引き弱沖縄フェスティバルサボり次回作要望ぷよぷよ8?CZ天井ファイル整理格安sim討伐の刻乙女チェリーおとめ妖怪ざくろガンソードぷよぷよフィーバーチューEMAセプテントリオン強襲プレミアムJACひぐらしになく頃に煌めんそーれ琉球守護神俺スロマイスロ十六夜小林恵島田フミカネストライクウィッチャーズ世界ふしぎ発見不具合サンダーVリボルト大嫌い押忍!番長2前日作戦会議3ケタ乗せエーデルスパークハヤテボーナスイケイケマハロ打WINパチリンクフェイトフリーズユニバブロスサマージャンボエピソードBBスーパービンゴネオ1パチハロウィン山の日NINJAGAIDEN開発VisualStudio2015スーパーオアシス単発まつりば!神引きDaxelアコール先生無限ARTキュインハナチャンスーパーカップ縮小専用ゾーンペカッパZE.M.A画像加工ハヤカワ文庫JAアイスタグ:ラッキージャックポットセルフ・クラフト・ワールドSANWAUSBハブエクスポートインポート眠れる本能バグナックルーひぐらしのなく頃に祭ゲッターマウスプチマーメイド空き台エヴァンゲリオン真実の翼スロットブログ大好きな台撤去SyntaxHighlighterマジカルハロウィン5マジカルハロウィン2USB3.0うるう年デビルサバイバー沖ドキトロピカル怖い怖いうみねこのなく頃にカバーベンチマークペン先アスラズラース高確率クレア高確率ヱヴァンゲリヲン魂を繋ぐものクリアリノロングフリーズBBx64聖闘士星聖闘士星矢女神聖戦揺籃の守護者キバガミ様ハイスクールD×D公式サイト魔法少女アイシクルフロストカボリプデッドマンワンダーランドネットワーク苦戦G-TUNEりんごちゃん演出まとめマウスへの挑戦microSDXCブログカテゴリーブログ運用トトリのアトリエ背面タッチパッドショートカット機動戦士ガンダム覚醒WindowsStore発送継続率タイプ文章変換アカウント卑弥呼戦国乙女西国参戦シリコンパワー64GBリセット天井不発パトランランチャンスパトランランアトリエ女神転生あかいアミティ

ブログ内検索(By Google)

WWW検索 ブログ内検索

Script_Debug
深緑の女魔術師の私的なブログ★彡
深緑の女魔術師の私的なブログ

SEGA:ぷよぷよ!!20th
ぷよぷよ!!

ぷよぷよ!![Wi-Fi Rianking]
ぷよぷよ!!ランキング
右脳式ぷよぷよルーム


☆ぷよぷよ同盟☆


NET:茉莉花の剣


戦国乙女 西国参戦編

トリビー
ぷろふぃーる

なまえ:深緑の女魔術師
(しんりょくのおんなまじゅつし) わたしってこんなひと
ぷよぷよ
DS :おんなまじゅつし
3DS:おんなまじゅつし★
Wii:まじょ@Wii

基本は、4人でフィーバー
OR 2人でフィーバー
23~26時くらいに
接続してます。

よろしくね。

天鳳
天鳳でのなまえ:深緑の女魔術師
ヨンマ段位&R:4段 R1800ちょっと
サンマ段位&R:4段 R1750

天鳳で活躍中・・・実力は??

23時~ごろに出没。

ポケモン

【ブラック】
なまえ:カリル
ID :36576

【ホワイト】
なまえ:未定
ID :未定

コメントうれしいです。

かれんだー
03 | 2017/04 | 05
- - - - - - 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 - - - - - -
さいきんのせいかぶつ
ぶんるい
DTM (8)
かこのせいかぶつ
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

らんきんぐ?