■Dir関数 ファイルの存在確認。パスを含まないファイル名を返す。（つまり戻り値String型） Dir("ファイルパス") ・引数に指定したファイル名が存在しないと空欄を返す。 ・引数にワイルドカード「*」を指定した場合はいかのような動きをする。 ①最初にDir関…

※こちらの方法もあり↓こちらの方が使い勝手良いかも。。。 Excel VBA ファイルが既に開かれているかどうか調べる その② - ray88’s diary ■使用にあたっての注意事項 たとえば、各部署ごとにフォルダが分かれていて、各同じファイル名のファイルが格納されて…

関連記事：SQLではなく、レコードセットで挿入したいときはこちら↓ ray88.hatenablog.com■パラメータクエリの結果をテーブルにインサートするときのコード ※通常、パラメータクエリを定義のみだと先にパラメータを指定し、 QueryDefsでクエリをしていするが…

■ただ単に、複雑なことなにもせず、指定したSQL文を実行したいときのコード Sub testCommandDelete() Dim strSQL As String strSQL = "DELETE FROM T_テストテーブル" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub

■列の最終行にSUM関数を挿入する （例）B列に入力された数値の合計を求める Sub test() Range("B2").End(xlDown).Offset(1, 0) = _ "=SUM(" & Range(Range("B2"), Range("B2").End(xlDown)).Address(False, False) & ")" End Sub

■テーブル定義では文字型のカラムでyymmだけど、抽出条件で一か月後とかなってた時に 一旦数値型に変換するときに使った Sub testDayChange() Dim strDay As String Dim dteDay As Date 'もし取得した値がyyyymmの場合は..... strDay = "201905" '"0"を足し…

① Openメソッドで読み込む方法 ② ADODBでレコードセットに格納して読み込む方法 '-------------------------------------------------------------------①まずはOPENメソッドでデータを読込む方法 Sub testReadText1() Dim buf As String Dim dataArray As V…

※FileSystemObjectを事前バインディングする際は参照設定の 「Microsoft Scripting Runtime」にチェックを入れる Sub testGetFileInfo() Dim TargetPath As String Dim fileName As String Dim strExtension As String '-----------------------------------…

■まずは、単純に取得する方法 Sub testGetFileInfo() 'フルパスからファイル名を取得 strFileName = Dir(strTempFilePath) 'フルパスからフォルダパスを取得 strFolderPath = Replace(strTempFilePath, strFileName, "") End Sub ■FileSystemObjectを使用し…

Sub testsetRecordSet2() Dim targetPath As String Dim targetPath2 As String Dim strFileName As String Dim targetFolderPath As String Dim strSQL As String Dim strSQL2 As String Dim intIndex As Long Dim dbFileName As String Dim strName As Str…

■キーワード：レコードセット Recordset 数 件数 －１ RecordCount レコードセットの件数を取得する：RS.RecordCount ただし、レコードセットを開く際、カーソルタイプがadOpenKeyset（定数1）か adOpenStatic（定数3）になっていないと取得できない－１が返…