Sub OpenAccessWithCredentials() Dim acc As Object Dim tdf As Object Dim db As Object Set acc = CreateObject("Access.Application") acc.OpenCurrentDatabase "C:\path\your.accdb" Set db = acc.CurrentDb For Each tdf In db.TableDefs If tdf.Conne…

Sub TextBoxから特定の文字抽出 修正版() Dim shp As Shape Dim fullText As String Dim lines As Variant Dim ws As Worksheet Dim regex1 As Object, regex2 As Object, regex3 As Object, regex4 As Object Dim matches1 As Object, matches2 As Object, …

Private WithEvents myInspectors As Outlook.Inspectors Private Sub Application_Startup() Set myInspectors = Application.InspectorsEnd Sub Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector) On Error Resume Next Dim mail As O…