CSVファイルorテキストファイルの末尾にできる改行のみを削除する方法です。 CreateObject("VBScript.RegExp") を作成して、文字列パターン re.Pattern = vbCrLf & "+$" で末尾の１個以上の改行を削除します。（途中行の改行は削除されません） ' 末尾の改行…

M_TABLEのデータ１列にNull値が存在する可能性がある場合は、 Nz関数を利用して別の値に変換します。 例）Nullを空白文字列に変換 DELETE FROM M_TABLE1WHERE Nz(データ１,'') = '' スッキリわかるSQL入門 [ 中山清喬 ]ジャンル: 本・雑誌・コミック > PC・…

ファイルを読み込む前にファイルが存在するかどうかを判定します。 Dim fSo Set fSo = CreateObject("Scripting.FileSystemObject")を使用する。 If fSo.FileExists(Target) Then Const sFullPathAs String = "C:\Test.csv" With CreateObject("Scripting.Fi…

InStr(“対象文字列”,”検索文字”) 「判定方法」 含む場合：文字位置(0より大きい) 含まない場合：0 【InStr】 ※大文字、小文字が区別されるために、「UCase」関数を使用して、大文字同士で比較する。 ※文字列がNullの場合は、戻り値もNullになる。 If InStr(U…

Access(アクセス)VBAで、FileSystemObjectを使ったファイル編集を行うと、 UTF-16かShift_JISのファイルしか作成されない。 UTF-8CSVの読み込み、書き込みをしたい場合は、「CreateObject("ADODB.Recordset")」を使用する。 【読み込み】 Dim buf As Variant…