2020-12-12から1日間の記事一覧
■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