昨日リリースしたシステム、早速障害が発覚。 スリーストライクからの最後のチャンスを得てやっと品質向上終わって解放されると思ったのに。 といっても、今回は極めて運が悪い。 誰も悪くない。悪くないが、さて、上客にどう伝えるものか。 XML NameSpace X…

Workbooks.Add メソッド (Excel) Dim newbook As Workbook Set newbook = Workbooks.Add ブックを新規作成したときと同じ挙動 シート３枚。（１枚にしたいときとかはコードで消す）

参考になった qiita.com クラス書いてみた Propertyクラスモジュール Dim m_properties As Object 'コンストラクタ Private Sub Class_Initialize() Set m_properties = CreateObject("Scripting.Dictionary") End Sub '-----------------------------------…

XmlReaderのDTD解決が遅い XMLファイルの「オシ」ともいわれているのがDTD。このファイルひとつで、XMLがフォーマット通りであるか検証できるというものだ。”うまく利用すれば”検証ロジックの簡略がができる。 このDTD検証、XMLファイルに記述しているURLを…

Shell.Application.BrowseForFolder() Dim Shell As Object, pathInfo As String Set Shell = CreateObject("Shell.Application") Set pathInfo = Shell.BrowseForFolder(&O0, "フォルダを選択", &H1 + &H10, "C:\") If Not pathInfo Is Nothing Then MsgBox…

少数 → 整数へのキャストに伴う丸め Dim i As Integer i = 9 / 10 MsgBox (i) 結果 1 ＿人人＿＞ 1 ＜￣Y￣ 少数部分が0.0 <= x <=0.5 の範囲なら 0 小数部分が0.5 < x の範囲なら 1。 ギリギリ四捨五入じゃない。なんだこの仕様。 関数まとめ Excelの関数を…

汎用的な書き方 Dim ary(3) as Long ary(1) = 1 ary(2) = 2 ary(3) = 3 Dim i As Integer For i = LBound(ary) to UBound(ary) '... Next 静的配列ならば添え字が「1はじまり」～「配列個数」 ReDimした動的配列ならば添え字が「0はじまり」～「配列個数-1」…

Fu○k Shift-JIS Excelは基本的にShift-JIS（正確には拡張したWindows-31J)しか使わない。テキストファイルを読み書きしようにも、他の文字コードが使えないのだ。 特にLinuxに置くパラメータやプロパティ、XMLでさえも書き出せない。 テストデータ自動作成ツ…

唯一新FileSystemObject VBAデフォルトの関数や機能があるけど、結構汚くて使いたくない。 処理性能重視のクリティカルでない処理でなければ、FileSystemObjectを使うのが身のため。 （参考にさせていただきました） Office TANAKA - Excel VBA FileSystemOb…

移行手順書オールインワンでVBAスクリプトを作りこむになった。 難で今更VBA・・・と愚痴りたいが、まあExcelは相当優秀なツールだし Win32APIも使えて、あくまで.NETの先がけだけどフォームも作れる。 しばらくのエントリはこいつとの付き合いになろう。 ま…

エンプラ業務で手順書作ってる。 だるい。なんでこんな確認しなければならんのだ。 ということで、bashでできるコマンド一発で複数のファイルのエビデンスを取る方法をまとめてみた。 ファイルの一覧 特定階層のディレクトリ内ファイル一覧 ls -l [ディレク…