「VBA」カテゴリーアーカイブ

Copilot 生成AIメモ, VBA, vbs

VBA等でのダブルクォーテーションの記述方法

ダブルクォーテーションで括ると文字列を表すが、VBAでダブルクォーテーション自体を記述するのはわかりにくい

ダブルクォーテーションのアスキーコードで記述するのと区別がつきやすい
ダブルクォーテーションは、Chr(34)

アスキーコードで記述しない場合は、””のように２つ続けると”を表す
これを、”で括って文字列として表現するには
””””　のように　””　を”で囲むので、４つ続けることになる
例　文字列内に ” を1つ含む
If Left(lineText, 1) = “””” Then は lineText の先頭が ” かどうかを判定

例　”””Hello”””　は、
“Hello”（ダブルクォーテーションで囲まれた文字列）を表す

アスキーコードを使うと以下のように記述できる VBSでも同様

If Left(lineText, 1) = Chr(34) Then

Chr(34)　& “Hello” & Chr(34)

Splitの区切り文字を　”,”　に指定したいときは
border = “””,”””
border = Chr(34) & “,” & Chr(34)

VBA, Windows

Windows11のメモ帳

VBAでテキストファイルを作成して、データを記入するようなコードを作った時に、このデータを処理する時にエラーが発生した

原因は、Windows11のメモ帳がUTF-8がデフォルトに変わった為で、ANSIで処理する際に不具合が起きた

起動オプションを付けることで解決

shellPath = “notepad.exe /a ”
Shell shellPath, vbNormalFocus

VBA

エクセルのVBAでフォルダとファイルの存在チェックと、コマンドの実行

フォルダの存在
Dim FSO As Object
Dim FILEPATH As String
FILEPATH = “C:\Program Files\7-Zip”
Set FSO = CreateObject(“Scripting.FileSystemObject”)
If FSO.FolderExists(FILEPATH) Then
MSGBOX　”OK”
Else
MSGBOX　”NG”
End If
Set FSO = Nothing

ファイルの存在
Dim FSO As Object
Dim FILEPATH As String
FILEPATH = “C:\Program Files\7-Zip\7z.exe”
Set FSO = CreateObject(“Scripting.FileSystemObject”)
If FSO.FileExists(FILEPATH) Then
MSGBOX　”OK”
Else
MSGBOX　”NG”
End If
Set FSO = Nothing

FileExistsでは、半角の空白を含む”C:\Program Files\7-Zip\7z.exe”でチェック

Dim WshShell As Object
Set WshShell = CreateObject(“WScript.Shell”)

s7zPath = “””C:\Program Files\7-Zip\7z.exe”””
strFileName = “解凍するファイル名”
cmdtxt = s7zPath & ” x ” & strFileName & ” -otmp -aoa”
‘-aoa：既存ファイルをすべて上書きします。-oに続けて解凍先フォルダを指定 フルパスでない時は相対となる
Call WshShell.Run(cmdtxt)

cmdtxtに組み込む7z.exeのパスは、”””で”括りを指定しないとProgram Filesに含まれる空白の為、エラーとなるが、FileExistsで同様に記述すると”を含んで判別するので、存在しないと判定されるので注意