φ(..) ビボ~6 φ(..)

主にAccess、VBAに関する備忘録

VBA

NULL文字のせいでテキストファイルがインポートできないとき

NULL文字を空白に置き換える処理 Sub WriteNewTextFile() Dim characterArray() As Byte Dim fileLen As Long Dim strOrigFile As String Dim strNewFile As String Dim MyString As String Dim fs As Object 'Change the path and the names of the files a…

全角/半角混在のテキストからバイト指定で文字列を切り出す

VBA

Dim buf AS String Open "TESTFILE.TXT" For Input As #1 Do Until EOF(1) Line Input #1, buf '100バイト目から4桁取り出す Debug.Print StrConv(MidB(StrConv(buf, vbFromUnicode), 100, 4), vbUnicode) Loop Close #1 vbUpperCase 1 文字列を大文字に変換…

参照設定

ダイアログ ボックス : Microsoft Office(バージョン) Object Library FileSystemObject : Microsoft Scripting Runtime

フォルダ、ファイルの選択ダイアログ

[参照] ダイアログ ボックス(ファイル参照) '[参照] ダイアログ ボックスの FileDialog オブジェクトを作成します。 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '選択した各アイテムのパスを保存す変数を宣言します。 …

行削除に関するイベントについて

Accessのフォームからレコードを削除しようとすると、次のような順番でイベントが発生します。 Delete/レコード削除時イベント Deleteキーなどの操作によって、レコードが削除されようとしたときに発生します。 レコードが実際に削除される前に発生するもの…

Access2000 ページ設定のメモ

ページ設定関連のプロパティ Reports("REPORT_NAME").PrtDevMode Reports("REPORT_NAME").PrtDevNames Reports("REPORT_NAME").PrtMip プロパティのデータ型 Byte型配列 Dim baPrtDevMode() As Byte Dim baPrtDevNames() As Byte Dim baPrtMip() As Byte テ…