2013-01-16から1日間の記事一覧
Function exRunMcrObj() 'xls の マクロを実行 On Error GoTo Err_exRunMcrObj Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim sMDBName As String With CreateObject("Scripting.FileSystemObject") sMDBName = .GetFileName(CurrentDb.Name)…