Access MSysIMEXColumns テーブルのインポート定義
MSysIMEXColumns テーブルのインポート定義 ■DataType（データ型） 1: Yes/No型 2: バイト型 3: 整数型 4: 長整数型 5: 通貨型 6: 単精度浮動小数点型 7: 倍精度浮動小数点型 8: 日付/時刻...
VBA侍-SAMURAI
Access Excel フォルダのリネーム
Sub prcRenameFolders() Dim lngRowStart As Long ' 処理開始行 Dim lngRowEnd As Long ' 処理終了行 Dim lngRow As Long ' 現在処理中の行 Dim st...
Excel フォルダパスから親フォルダとフォルダ名を分割
Sub prcSplitPath() Dim rngCell As Range ' 各セルをイテレートするための変数 Dim strPath As String ' 入力されたフルパス Dim fso As FileSystemObject...
Access フォーム上でアクティブなレコードを新規レコードとして追加（一部のフィールドは値を変更）
Sub prcCopyActiveRecordWithValuesDefinedInCase() Dim rst As DAO.Recordset Dim fld As DAO.Field ' 現在のフォームのRecordsetCloneを...
Excel 末尾が連番になるファイル名を生成
Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...
Excel フルパスからフォルダパスとファイル名を分割出力
Sub prcSplitFilePath() Dim wst As Worksheet Dim lngLastRow As Long Dim lngRow As Long Dim strFullPath As String Dim strF...
Excel フォルダ内に存在する全てのファイルのフルパスを取得（サブフォルダも含む）
Sub prcListFilesInFolderWithSubfolders() Dim fso As FileSystemObject ' FileSystemObjectのインスタンス Dim fld As Folder ' 処理中のフ...
Excel ダブルクリックで任意のwebサイトを起動
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' セルA1をダブルクリックした時に指定のURLを開く Dim strURL...
Excel 指定されたフォルダ内の特定の拡張子を持つファイルの数をカウント
Function fncCountFilesByExtension(ByVal strFolderPath As String, ByVal strExtension As String) As Long ' 指定されたフォルダ内の特定の拡...
Excel PDFのページ数を取得（PDF側に特定できる文字が存在する場合）
’呼び出し側の処理 Sub prcTestGetPDFPageCountInFolder() Dim strFolder As String Dim strFile As String Dim lngPageCount As Long Di...