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…

2016-01-21

エクセル　うるう年の29日対応　Excel関数

VB

うるう年の2/29を表示する数式 =IF(A2=2,IF(OR(MOD(A1,400)=0,AND(MOD(A1,4)=0,MOD(A1,100)<>0)),29,""),"") 今すぐ使えるかんたんPLUS+ Excel関数組み合わせ完全大事典作者: 日花弘子出版社/メーカー: 技術評論社発売日: 2015/08/12メディア: 単行本（ソ…

2016-01-21

Cシェル（csh）　Bシェル（sh）コマンド

Unix

Bシェル #!/bin/sh echo "Hello World" Cシェル #!/bin/csh -f echo "Hello World" シェル変数セット sh: hoge=FUGA csh: set hoge=FUGA 環境変数セット sh: HOGE=FUGA export HOGE export HOGE=FUGA (一部 sh・bash の方言) csh: setenv HOGE FUGA 変数参照…