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…

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…

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

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

うるう年の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メディア: 単行本（ソ…

Worksheet_Activate()だと、各シートに記述しなければならないが、ThisWorkbook内に記述することで１ヶ所で済む。 ThisWorkbook内に記述 Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.ScreenUpdating = False Application.Goto Refe…

Try Using zip As New Ionic.Zip.ZipFile(System.Text.Encoding.GetEncoding("shift_jis")) 'フォルダ内のファイルを全て格納 '圧縮レベルを変更 zip.CompressionLevel = Ionic.Zlib.CompressionLevel.BestCompression '圧縮せずに格納する '必要な時はZIP64…

' 新しいフォルダの作成を不可 FolderDialog1.ShowNewFolderButton = False 'デスクトップを設定 Desktop_path = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) ' 初期選択するパスを設定する FolderDialog1.SelectedPath …

'キャレットの使用宣言をする Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean 'MouseDownイベント 追加 Private Sub TextBoxFolder_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEven…