VBAファイルを実行すると日本語の箇所で実行エラーになるようになったのでメモ。 原因はWindowsのテキストエディタの文字コードが変更になったためである。 以前のメモ帳：Shift-JISがデフォルト Windowsアップデート1903以降：UTF-8 他にも回避方法はあると…

変更履歴シートなど複数のExcelファイルに一律で他のブックのシートをコピーするVBA。 '--------------------------------------------------------------------------------------'' Excel シートをコピー' コピー元の指定したシートをフォルダ内のすべての…

フォルダのサイズ一覧(サブフォルダも検索)を出力するVBS。 階層が深いと実行に時間がかかったり権限がないとエラーになったりするので注意 '------------------------------ ' フォルダ検索処理メイン '------------------------------ '★定数の定義 RESULT…

指定したフォルダ内の複数のExcelファイルを１つのブックにまとめるVBS。 まとめた結果シート名が重複したらダメかも。 '-------------------------------------------------------------------------------------- ' ' Excel １ブックにまとめる ' (指定し…

インストール不要でフォルダをzipに圧縮するスクリプト。 なお、サブフォルダには対応していない。 '圧縮するフォルダ SorceFolder = "P:\hoge" 'zipの作成先 DestZipPath = "P:\hoge.zip" wkArray = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …

'解凍するZIPファイル DIR_SOURCE = "C:\Users\ta.harada-bsw\Desktop\TEST\20150401.zip" '解凍先 DIR_DEST = "C:\Users\ta.harada-bsw\Desktop\TEST" '定数 Const FOF_SILENT = &H04 '進捗ダイアログを表示しない。 Const FOF_NOCONFIRMATION = &H10 '上書…

指定したフォルダの階層を出力するVBS ファイルのサイズと最終更新日時も併せて出力する ★の箇所を適当に書き換えること '------------------------------ ' フォルダ検索処理メイン '------------------------------ '★定数の定義 RESULT_DIR = "D:\CDLIB" …

複数のシートで構成されたExcelのブックをシート毎にブックを作成し、保存するvbs ★の箇所を適当な値に書き換えて利用すること excel_slip.vbs '-------------------------------------------------------------------------------------- ' ' Excel シート…

SQL Server 登録されている DTSパッケージを構造化ストレージ ファイルして保存することができる VBSを使用してDTSファイルに保存するのは以下のとおり Const DTSSQLStgFlag_UseTrustedConnection=256 'DTSの出力先パス★ Const EXP_PATH ="D:\DTSEXP\" 'SQL…

ファイルをコピーするWSH。簡易用のバックアップツールとして。 '----------------------------------------------------------------------------------------- ' ファイルをコピーするWBS ' ' 説明：SOURCE_FOLDERの中身をDEST_FOLDERにコピーします。(フ…

CDO（Collaboration Data Objects）とSMTPコンポーネントを使ってメールを送信することができる。 CDO、SMTPサービスはOSのバージョン・エディションによって標準搭載されているものといないものがあるので注意。 詳細は以下の通り。 OS CDO SMTPサービス __…

Excelを規定した列ごとに折り返すツール。 データのダンプをExcelに貼り付けて保存する場合に項目数が多いと 印刷時に改ページされて印刷枚数が増えるので、折り返して印刷枚数を減らすのを目的に作成。 '-------------------------------------------------…

ファイル名の先頭Ｎ文字が一緒のものをフォルダを作成し、移動するスクリプト '-------------------------------------------------------------------------------------- ' ' ファイル整理スクリプト ' (ファイル名の先頭Ｎ文字毎にファイルをフォルダに整…

指定したURLのファイルをダウンロードするWSH '-------------------------------------------------------------------------------------- ' ' ファイルをダウンロードするスクリプト ' '----------------------------------------------------------------…

指定したフォルダ内にある複数のブックを１つのブックにまとめる '-------------------------------------------------------------------------------------- ' ' Excel Book統合 ' (指定したフォルダにあるExcelファイルを１つのファイルにまとめる) ' ' …

Environment.vbs 'Shellオブジェクトを取得 Set WshShell = WScript.CreateObject("WScript.Shell") 'システム環境変数を取得 Set SysEnv = WshShell.Environment("SYSTEM") 'ユーザ環境変数（ログオンユーザ）を取得 Set UserEnv = WshShell.Environment("U…

'-------------------------------------------------------------------------------------- ' ' プロセスを強制終了するスクリプト ' (指定したプロセスをすべて強制終了させる) ' '--------------------------------------------------------------------…

WSHでコマンド等を実行するのは以下の通り shell.vbs Dim shell Dim rtn 'Shellオブジェクトを生成 Set shell = WScript.CreateObject("WScript.Shell") 'コマンドを実行する ※・・・/Cオプションはコマンドを実行後、終了する。 rtn = shell.Run("CMD /C CO…

WSHでネットワークドライブを操作するのは以下の通り 接続 Dim network 'ネットワークドライブ接続オブジェクトのインスタンス生成 Set network = WScript.CreateObject("WScript.Network") 'ネットワークドライブを割り当てる network.MapNetworkDrive "Y:"…

AccessQueryExecute.vbs '-------------------------------------------------------------------------------------- ' ' AccessQuery実行 ' (指定したMDBのクエリを実行する。) ' ' 注意点 スクリプト実行前に実行するのMDBを終了してください。 ' クエリ…

指定したURL内にあるリンクをテキストに出力するスクリプト。 ただ、たまにエラーがでることがあるのでOn Errorを追加した。あくまで未完成・・・ getLinkUrl.vbs '--------------------------------------------------------------------------------------…

配列に定義したURLのHTMLをまとめてダウンロードするスクリプト。 オフラインで読みたいBlogなどまとめて保存しておきたいと思いつくってみた。 webdownload.vbs '-------------------------------------------------------------------------------------- …

ExcelShapesOutput.vbs '-------------------------------------------------------------------------------------- ' ' Excel Shapes 出力 ' (指定したフォルダにあるExcelファイルのShapeオブジェクトの情報を出力する) ' ' 注意点 スクリプト実行前にす…

項目数の多いテーブルにデータを作成するとき便利と思い、作成してみた。 Oracle10gで動作検証済。 TestDataCreate.vbs '------------------------------------------------ ' ' テストデータ作成ツール (Oracle 用) ' '-----------------------------------…

WMIを利用するとWindowsの様々な情報を扱うことができる。 例えば、Explorlerで「一覧にエクスポート」できないものを出力したり・・・など。 WmiSample.vbs '-------------------------------------------------------------------------------------- ' ' …

user_dependencies ビューでオブジェクトの依存関係を参照することができる。 select * From user_dependencies where Name = オブジェクト名上記のビューを利用して指定したオブジェクトの依存関係を出力するスクリプトを 作成してみた。 ファンクションが…

WSHでADOに接続するサンプル。(下のものはOracleに接続したときのもの) 中身はVBで作ったのとほぼ同じと考えてよい。 adoSample.vbs '------------------------------------------------ ' ' ADOサンプル ' '----------------------------------------------…

指定したフォルダにあるExcel印刷設定の情報をcsv形式でテキストファイルに出力するスクリプト。 印刷設定が統一されている確認するために作成してみた。 PageSettingInfoOutput.vbs '--------------------------------------------------------------------…

改ページのタイミングと同時に罫線が引けないかと思い、試作版を作ってみた。 Excel2002で動作した。 なお、以下の改良すべき点があり ・レスポンスが遅い → For文のStep句を利用したほうがよいかも ・最終行の取得が正確ではない(理由はSpecialCellsメソッ…

'-------------------------------------------------------------------------------------- ' ' Excel フッタ設定スクリプト ' (指定したフォルダにあるExcelファイルのをフッタにファイル名をセットする) ' ' 注意点 スクリプト実行前にすべてのExcelアプ…