pgbigorokuのブログ

プログラムの再利用できそうなコードをアップ

2022-08-17から1日間の記事一覧

EXCEL 実行ファイルを指定フォルダで起動するクラス、起動ソフトの終了タイミング取得可能<clsShell>

実行ファイルを指定フォルダで起動するクラス。クラスの取り込み方は、 pgbigoroku.hatenablog.com を参照してください。サンプル。ファイル名を指定して、ファイルへ書き込み、読み込みを行う。 Sub sample() Dim cShell As New clsShell Debug.Print cShel…

Windowsコマンドプロンプト アプリを起動する。

Windowsのコマンドプロンプト (ショートカット「Windows」+「R」でファイル名を指定して実行→「CMD」実行で開く黒い画面) からアプリを起動しようと思っても、画面が動かず、プロセスにもあらずハマりました(〃艸〃)ムフッ start "Shell" "[起動したいアプリ…

EXCEL VBA クラス ファイルの入出力を変数のように容易に行う。

ファイルの入出力を変数のように容易に行うクラス。イメージ クラスの取り込み方は、 pgbigoroku.hatenablog.com を参照してください。サンプル。ファイル名を指定して、ファイルへ書き込み、読み込みを行う。 Public Sub sample() Dim cTxtFile As New clsT…

EXCEL VBA クラスモジュールの利用方法

当ブログのクラスモジュールをEXCEL VBAに取り込む方法です。 前段階、VBAを編集する画面。(EXCELのワークシート画面でショートカットキー「Alt」+「F11」を押したときの画面)を表示する。①対象EXCELファイルのプロジェクト内のフォルダ「Microsoft Excel …

EXCEL VBA 利用していないファイル名を取得

一時ファイルを作るときに、利用されていないファイル名を探すことはありませんか? このプログラムは、指定フォルダ内で利用されていないファイル名を探します。イメージ図 Debug.Print nstr利用していないファイル名を取得("c:\", "bat") 'c:\2022_08_17_1…

EXCEL VBA フォルダ名とファイル名からフルパスにする

' 機能 : フォルダ名とファイル名からフルパスにする ' ' 返り値 : - ' ' 引き数 : ByVal pstrフォルダ名 As String ' ByVal pstrファイル名 As String ' 機能説明 : フォルダ名の最後に\をついているか判定し - ' フルパスにする。 ' ' 備考 : - ' ' この関…

EXCEL VBA Windowsが提供しているTEMPフォルダを取得する

' ' Windowsが提供しているTEMPフォルダを取得する 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/17/090550 '参考URL https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/getspecialfolder-method '2022/8/17 P…

EXCEL VBA ファイルの存在確認

サンプル Debug.Print nblnファイル存在確認("C:\install.ini") 'TRUE Debug.Print nblnファイル存在確認("C:\Program Files\df141\DF.exe") 'TRUE Debug.Print nblnファイル存在確認("C:\Program Files\df141\df.exe") 'TRUE Debug.Print nblnファイル存在…

EXCEL VBA フォルダの存在確認

サンプルプログラム Sub Sample() Debug.Print nblnフォルダの存在確認("C:\") 'true Debug.Print nblnフォルダの存在確認("C:\Program Files") 'true Debug.Print nblnフォルダの存在確認("C:\Program Files\") 'true Debug.Print nblnフォルダの存在確認("…

EXCEL VBA フォルダ名とファイル名が混在したフルパスからフォルダ名のみを取得

利用例 Debug.Print nstrフォルダ名を取得Fromフルパス("c:\") 'c:\ Debug.Print nstrフォルダ名を取得Fromフルパス("c:\aaa.txt") 'c:\ Debug.Print nstrフォルダ名を取得Fromフルパス("c:\aaa\") 'c:\aaa Debug.Print nstrフォルダ名を取得Fromフルパス("c…

無料のツールを使ってコマンドラインでPDFファイルを結合する(Windows)

PDFファイルを結合する時に、毎回アプリを開くのは面倒じゃないですか? フリーのツールだけを使いWindowsコマンドプロンプトで、PDFファイルを簡単に結合できます。手順 ①7-ZIPをダウンロード・インストールする。(ダウンロードしていない場合) sevenzip.…