社員ブログ
HOME  社員ブログ

アーカイブ

‘VBA’ カテゴリ

VBA テキストファイル出力処理

2013年08月17日 11時56分50秒

こんにちは、カズマです。

VBAにてフォルダの確認及び作成処理を残したので
ついでにテキストファイル出力も備忘録として残しておきます。

まぁ、万が一エラーが発生した場合にテキスト出力してログを残せるようにと
思って作ったものです。

<br />
'---------------------------------------------------------------------------------<br />
' 機能     : エラーログ出力処理<br />
'---------------------------------------------------------------------------------<br />
Public Function OutputErrMsg(ByVal errCd As String, ByVal errMsg As String)</p>
<p>    Dim fileName As String '重複しないファイル名称を取得設定<br />
    fileName = Now() ' 現在日時を文字列化<br />
    '現在日時の文字列をYYYYMMDDHHMMSSに変換、拡張子を付随<br />
    fileName = Replace(Replace(Replace(fileName, &quot;/&quot;, &quot;&quot;), &quot;:&quot;, &quot;&quot;), &quot; &quot;, &quot;&quot;) &amp; &quot;.log&quot;</p>
<p>    'フォルダがなかったら作成<br />
    If Not FolderExists(&quot;C:\LOG&quot;) Then<br />
        Call MkDir(&quot;C:\LOG&quot;)<br />
    End If</p>
<p>    Dim fileNo As Integer<br />
    fileNo = FreeFile</p>
<p>    Open &quot;C:\LOG&quot; &amp; fileName For Output As #fileNo 'ファイルを新規作成</p>
<p>    'エラー番号_エラーメッセージ<br />
    Print #fileNo, errCd &amp; &quot;_&quot; &amp; errMsg<br />
    Close #fileNo</p>
<p>End Function</p>
<p>

VBA, 社員:カズマ

vba フォルダの作成

2013年08月16日 11時53分53秒

こんにちは、カズマです。

前回、VBAにてフォルダの存在有無を確認する処理を記述したので
おまけで、フォルダが存在しない場合に作成させる方法を残しておきます

<br />
    'フォルダ存在有無確<br />
    If Not FolderExists(&quot;C:\LOG&quot;) Then<br />
        '存在しない場合作成<br />
        Call MkDir(&quot;C:\LOG&quot;)<br />
    End If</p>
<p>

VBA, 社員:カズマ

フォルダ作成処理

2013年08月15日 11時53分48秒

こんにちは、カズマです。

備忘録です。
vbaで指定された階層にフォルダが存在するか確認する処理です。

<br />
'-----------------------------------------------<br />
' 機能     : フォルダの存在チェック<br />
' 引き数  : astrFolder - フォルダパス<br />
' 返り値  : Boolean<br />
' 機能説明  : フォルダの存在チェック<br />
'-----------------------------------------------<br />
Public Function FolderExists(ByVal astrFolder As String) As Boolean</p>
<p>    Dim fFso As Object</p>
<p>    FolderExists = False</p>
<p>    Set fFso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br />
    FolderExists = fFso.FolderExists(astrFolder)</p>
<p>    Set fFso = Nothing</p>
<p>End Function<br />

VBA, 社員:カズマ