hiko-blog

VBA業務改善

MENU

bat_file

バッチファイル内でPowerShellを利用してウィンドウの不透明度を88%に設定

@echo off set "WindowTitle=MyWindowTitle"set "Opacity=88" powershell.exe -Command "$signature='[DllImport(\"user32.dll\")]public static extern bool SetLayeredWindowAttributes(IntPtr hwnd, uint crKey, byte bAlpha, uint dwFlags);';$winapi=Ad…

バッチファイルをタスクバーにピン留めする方法

バッチファイルのショットカットのリンク先の先頭に 「cmd.exe /c 」をつけて、適用 ※「cmd.exe /c 」のcの後ろには半角スペース

拡張子毎に振り分け bat

@echo off::フォルダー内list→log化dir /b *.* > log.log ::logにあるリストのみ移動for /f %%a in (log.log) do move "%%a" %%~xaexit

バッチで自動立ち上げ

''vbs------------ ' Create Internet Explorer ObjectSet IE = CreateObject("InternetExplorer.Application") ' Set visibility to true to make it visible, false to hide itIE.Visible = True ' Navigate to the specified webpageIE.Navigate "https:/…

バッチで、Excelを起動して指定したファイルを開く

@echo off rem Excelを起動して指定したファイルを開くstart excel "C:\path\to\your\file.xlsx" rem 起動時にウィンドウを最大化する場合rem start /max excel "C:\path\to\your\file.xlsx" rem 起動時にウィンドウを最小化する場合rem start /min excel "C…

バッチでExcelマクロを呼び出し起動

@echo offset ExcelPath="C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" REM Excelのインストールパスset ExcelFile="C:\パス\MyExcelFile.xlsm" REM Excelファイルのパスset VBAMacro="MyMacro" REM 実行したいVBAマクロの名前 start "" %Ex…

強制終了バッチ フリーズしたときに。。。

Accessの強制終了 @echo offtaskkill /IM msaccess.exe /F Excelの強制終了 @echo offtaskkill /IM excel.exe /F

バッチでフォルダ内振り分け処理

@echo off:: BatchGotAdminnet session >nul 2>&1if %errorLevel% == 0 ( goto :gotAdmin) else ( goto :UACPrompt):UACPrompt echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" set params = %*:"="" echo UAC.ShellExecute "c…

バッチでランチャ

@echo offtitle MyLauncher :: ウィンドウの列数を変更(例: 100)mode con cols=100 :: ウィンドウの行数を変更(例: 30)mode con lines=30 set "Ph1=C:\Program Files\Google\Chrome\Application\chrome.exe"set "Ph2=D:\***\IDM.exe"set "Ph3=D:\***\Mer…

バッチで、追加する名前を指定、削除する名前を指定

@echo offsetlocal enabledelayedexpansionset "suffix1=Name_" REM 追加する名前を指定set "suffix2=_NameToAdd" REM 追加する名前を指定 REM ドロップされたファイルに対して処理を行う:process_fileif "%~1"=="" goto :eof set "filename=%~n1"set "exten…

リストからファイル振り分け

@echo offpushd %~dp0for /f %%i in (list.txt) do mkdir %%ifor /f %%j in (list.txt) do move "*%%j*" %%jexit

バッチ処理で、ファイル名の削除したい文字を入力する

setlocal enabledelayedexpansioncd /d %~dp0 'set keyword=testset /P keyword=削除したい文字を入力: for /f "tokens=*" %%i in ('dir /b ^| findstr /i "%keyword%"') do (set a=%%iren "!a!" "!a:%keyword%=!")

拡張子ごとにフォルダ振り分けしたい

@echo off::フォルダー内list→log化dir /b *.* > log.log ::logにあるリストのみ移動for /f %%a in (log.log) do move "%%a" %%~xaexit

KEY名称ごとにフォルダ振り分けしたい

%echo offset /p x="フォルダ振り分けしたいフォルダの名称作成"set KEY=%x%mkdir %KEY%for /r %%i in (*%KEY%*) do move "%%i" %KEY%

バックアップのバッチファイル作成。

サンプル例として、 Rem コピー基 C:\Users\/”ここはユーザー名を記載”\Desktop\20200213Rem コピー先(バックアップ先 D:\MYDOCUMENT\Mydocument\BackUp\ の場合。 Backup.bat <コード> XCOPY "C:\Users\”ここはユーザー名を記載”\Desktop\20200213" "D:\…

今日の日付フォルダーを作りたい。

何やかんや当日フォルダーを作成し、業務作業Dataをまとめておく。 ※整理整頓、証跡残しの為。。。 今日の日フォルダー作成.bat <コード> Rem 今日の日フォルダー作成@echo off set Dir_Name=%DATE:/=%mkdir C:\Users\”ここはユーザー名です”\Desktop\%Dir…

フォルダー内の大量にあるPDFファイルをプリントアウトしたい。

ほんと地味な作業が多いので、自動化させます。 PDF_printout.bat <コード> @echo offstart "" "AcroRd32.exe"pausefor %%i in (*.pdf) do (echo 印刷中 %%iSTART ACRORD32.EXE /n /t "%%i"timeout 1 > nul)

任意のフォルダー一気に作成したい。

無駄にランダムにある資料、、、共有ファイル整備の為、必要に迫られてバッチファイル対応を行う。 <段取り> 前提: list.txt と フォルダー作成.bat は同じフォルダー内であること。 1.テキストファイルを作成し、テキスト内に作りたいフォルダー名を記載…

PCシャットダウン。。。

パソコン即落として、帰宅のために。。。 <コード> shutdown.bat @echo off shutdown.exe /s /t 0

大量の任意の*.csv を一括まとめたい時。

コピーしたい任意の*.csv を、 all.csvへ転記します。 [batファイルで作成] ファイル名は、任意につけてください(自分は、Data転記.datです)。 コピー copy /b *.csv all.csv