Sub IsBookOpend() On Error Resume Next Open "C:\Book1.xls" For Append As #1 Close #1 If Err.Number > 0 Then MsgBox "すでに開かれています" Else MsgBox "ブックは開かれていません" End If End Sub

Docmd.SelectObject "フォーム名" Sub メールテスト() Dim blResult As Boolean blResult = fncCreateNewMail("tarou-yamada@pipty.com", "重要フラグメール", "フラグテスト") End Sub Function fncCreateNewMail(strTo As String, strCc As String, _ strS…

■AccessVBAで参照設定をせずにExcelの最終行を取得する Sub excelTest() '------------------------------------ 'Excelの最終行を取得する '------------------------------------ Dim xlApp As Object Dim wb As Object Dim i As Integer Dim strTargetpat…

■パスワード設定 Sub setPassword() ActiveSheet.Protect Password:="1234" End Sub ■パスワード解除 Sub releasePassword() ActiveSheet.Unprotect Password:="1234" End Sub

空をNULL値または内部のデータとして考えるかどうかに応じて、次の条件文で確認。 datatable Is Nothing OrElse datatable.Rows.Count = 0

■指定したパスのフォルダを開く ※呼び出し元プロシージャ Sub testopen() Dim strPath As String strPath = "C:\\デスクトップ\テスト" Call openFolder(strPath) End Sub ※呼び出し先プロシージャ Sub openFolder(strFolderPath As String) '--------------…

■参考URL： Excel VBA を学ぶなら moug モーグ | 即効テクニック | 閉じているデータベースを最適化してコピーする(DAO) ■ 構文：DBEngine.CompactDatabase olddb, newdb, locale, options, password Sub 最適化() Dim targetDbPath As String Dim destDbPat…

※ページの一番下により効率よいコードに変更した部品改修版あり ■呼び出し元プロシージャ Sub 読込テスト() Dim strResult As String strResult = fncImportTable("MT_社員マスタ", "W_社員マスタ", 4) Debug.Print strResult End Sub ■呼び出し先 部品使用…

Sub MergeCells() 'セルを結合する Range("B5:C5").Merge End Sub

■セルの書式設定 Sub setFormat() 'セルの書式を設定 Range("B3").NumberFormatLocal = "yyyy/mm/dd" End Sub

■セルの幅を指定 Sub setCellWidth() 'セル幅を指定 Range("B2").EntireColumn.ColumnWidth = 15 End Sub ■セルの高さを指定 Sub setColumnHight() 'セル高さを指定 Range("B2").EntireRow.RowHeight = 30 End Sub

Sub setBackgroundColor() 'セルの背景色をグレーに設定 Range("B2").Interior.ColorIndex = 15 End Sub ray88.hatenablog.com

■普通にコピペ （例）Sheet1のB1~D4の範囲をSheet2のB2セルを起点に貼り付ける ※関数も自動でセルの番地変換して貼り付けてくれるようだ Sub test5() Worksheets("Sheet1").Range("B1:D4").Copy Worksheets("Sheet2").Range("B2") End Sub ■値貼り付け （例…

■以下のコードを部品化したものはこちらのリンクにあり。 サーバテーブルのデータをローカルテーブルへインポートする(部品） - ray88’s diary Sub データインポートテスト3() Dim CN As Object Dim CN2 As Object Dim RS As Object Dim RS2 As Object '----…

■呼び出し元プローシージャ Sub テーブル削除() 'MT_社員マスタのデータを全て削除 Call DeleteTableData("MT_社員マスタ") End Sub ■呼び出し先プロシージャ Sub DeleteTableData(strTableName As String) '----------------------------------------------…