Excel

Excel

ブックを開かずに対象ブックのシート名リストを配列で取得する関数

要・参照設定:Microsoft ActiveX Data Objects ライブラリ Function fncGetExcelWorksheetNames(strFilePath As String) As Variant Dim cn ...
Excel

文字列末尾の改行削除(「。」の場合を除く)

' 機能概要: 文字列の各行をチェックし、末尾が「。」でない場合に改行を除去 ' 引数: ' strText - 処理する文字列 ' 戻り値: ' String - 条件に基づいて改行が除去された文字列 Function RemoveNew...
Excel

文字列から空白行を削除

' 機能概要: 文字列から空白行を削除 ' 引数: ' strText - 処理する文字列 ' 戻り値: ' String - 空白行が削除された文字列 Function RemoveBlankLines(strText As String...
Excel

英語形式の日付文字列を日付型に変換

' 機能概要: 英語形式の日付文字列を日付型に変換 ' 引数: ' strDateText - 変換する日付の文字列(例: "Wednesday, December 13, 2023 9:00 AM") ' 戻り値: ' Variant -...
Excel

日付文字列から括弧(「(」と「)」)および括弧内の文字を除去するVBA関数

' 機能概要: 文字列から括弧と括弧内の文字を除去 ' 引数: ' strText - 処理する文字列 ' 戻り値: ' String - 括弧と括弧内の文字が除去された文字列 Function RemoveParentheses(strT...
Excel

指定された形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換する関数

' 機能概要: 「Wednesday, December 13, 2023 9:00」形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換 ' 引数: ' strDate - 変換する日付文字列 ' 戻り値: ' String ...
Excel

特定のフォルダ(およびそのサブフォルダ)に存在する全てのファイル名とそのパスを取得し、テーブルAに格納する処理

Sub StoreFilesToTableA() Dim fso As FileSystemObject Dim folder As folder Dim file As file Dim db As DAO.Database Dim rs...
Excel

BookAのSheet1を新規ブックにコピー、フォントと配色を変更後に保存

' 機能概要: ワークブックAのSheet1を新規ブックにコピーし、フォントと配色を変更後、保存する ' 引数: なし ' 備考: 保存先のフォルダ、ワークブックAの名前、テーマファイルのパスは適宜変更 Sub CopySheetAndFo...
Excel

ファイルコピー(リスト順に実行)

Sub CopyFilesToFolderB() ' 機能概要: Sheet1のA列にあるファイルのフルパスを読み取り、フォルダBにコピーする ' 引数: なし ' 備考: フォルダBのパスは適宜変更 Dim ws As Worksheet...
Excel

PDFファイル名取得-2

'-------------------------------------------------- '機能概要:指定フォルダ(サブフォルダ含む)内の全PDFファイル名とフルパスを取得 '-------------------------...