Excel VBA フォルダチェックファイルシステムオブジェクト (FSO: File System Object) モデルによるファイルへのアクセス

VB

Sub FolderCheck() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''ログ出力フォルダがなければ作成 If FSO.FolderExists(LogFolder) = False Then FSO.CreateFolder LogFolder End If Set FSO = Nothing End Sub FileSystemObj…

2016-02-22

Execl VBA ログ出力テキスト出力 FileSystemObject オブジェクト

VB

Sub WriteLog(msg As String) Dim FSO As Object, LOG As Object Set FSO = CreateObject("Scripting.FileSystemObject") 'ログ出力フォルダチェック Call FolderCheck ''ログファイルがなければ作成 LogFile = LogFolder & "\" & LogFileName If FSO.FileEx…

2016-02-22

VBA ファイル名取得

VB

Function GetCsvName(Paste_Folder, File, file_yyyy_mm) '引数）フォルダ名、ファイル名、日付（年月日） On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") 'フルパスからファイル名のみを取得する Csv_File_Name = Replace(Rep…

2016-02-18

Access VBA ProgressBar　プログレスバー表示　インジケータ更新

VB

Function ProgressView() 'フォームを開く DoCmd.OpenForm "ProgressUpd", acNormal, "", "", acReadOnly, acNormal Forms![ProgressUpd].Repaint ProgressBarFunc (i): i = i + 1 'プログレスバー更新ファンクションをCall DoCmd.Close acForm, "ProgressUp…