2010-05-04から1日間の記事一覧
Function echo1() Dim strFile As String 'チェック対象となるファイル名 Dim strName As String strFile = Application.CurrentProject.Path & "\Excel経歴書出力用\" & "lock" strName = Dir(strFile, vbNormal) 'ファイル名を得る If (strName = "") Then…
Function echo1() Dim strFile As String 'チェック対象となるファイル名 Dim strName As String strFile = Application.CurrentProject.Path & "\Excel経歴書出力用\" & "lock" strName = Dir(strFile, vbNormal) 'ファイル名を得る If (strName = "") Then…