フォルダ指定のところとかもうちょっとやりようがありそう。 というか、Outlookの環境設定次第でいろいろ変わりそう。追記:Exchangeユーザのメールアドレス取得がうまくできなかったので http://www.gregthatcher.com/Scripts/VBA/Outlook/GetSmtpAddress.as…

もう1か所参考にしたサイトがあったんだけど、ちょっと失念。 思い出したら追記する。テーブルはT_YouTube 項目は以下3フィールド サムネイル画像 URI タイトル以下、標準モジュールに記述 'http://www.vba-ie.net/qanda/qanda.cgi?mode=viewthread&id=112 O…

・使用不可文字が使われていた場合、その文字を返す関数 Case文のところは使用可能な文字リストと照らし合して都度メンテが必要かと Public Function chk_adn(str As String) As String On Error GoTo Err_Trap Dim i As Long Dim c As String Dim buf As St…

現在のtwitterの仕様で機能する関数 仕様が変わったら動かなくなるはず。 Attribute VB_Name = "f_getTwitterStats" #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) #Else Private Declare Sub Sleep Lib "kernel32…

極力汎用的な作りに Option Compare Database Const sDataSheetName As String = "sheet1" 'データ取得シート名 Const sDataSheetRow As Long = 2 'データ取得行 Const sTableName As String = "T_Test" 'データ格納先テーブル名 '個々のExcel入力シートを取…

'なんか汎用化ニーズがありそうなので '指定したファイルの容量を返す関数 'usage ' double ファイル容量 = getFileSize(【ファイル名(フルパス)】,【[オプション]単位】) '単位について:デフォルト→キロバイト "b"→バイト "M"→メガバイト "G"→ギガバイト '…

Worksheet_Changeイベントで変更後の値を別変数にいったん退避 →セル自体はUndoで変更前に戻した後に 値だけ変更後のものに入れる コピー元が複数セルだったりコピー先が結合されている場合 想定通りの動作にはならないので要検討 Private Sub Worksheet_Cha…

調子に乗ってもう1個。 もうちょっと深堀できるようにしたいところ。 Private Declare Sub keybd_event _ Lib "user32" ( _ ByVal bVk As Byte _ , ByVal bScan As Byte _ , ByVal dwFlags As Long _ , ByVal dwExtraInfo As Long) Public Function DumpVBMo…

テーブル定義と同じ要領で。 パラメータに関する調査をするところで、クエリ自体に不備が ある場合はエラーが出ますが、その情報も出力しています。 (お掃除が苦手な方向け) Public Function DumpQueryDef(sDBFileName As String) As Boolean Dim db As DAO.…

昨日の続き。 引数でDBファイルを指定し、そのDBに関するテーブル定義を作成するようにしました。 Public Function DumpTableDef(sDBFileName As String) As Boolean On Error GoTo Trap Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Fie…

取り急ぎ自分用 Sub DumpTableDef() 'テーブル定義自動作成！！！ Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim fs As FileSystemObject Dim ts As TextStream Dim idx As DAO.Index Dim fld2 As Field Dim buf As String Dim …