明日(元旦)に「初火の出」を実現しようと、炭焼きの準備を始めた‥‥ が、想定外の雨となった。
雨では薪(竹)の準備が出来ない... で、明日朝一からの炭焼きは諦めた。
帰宅後、外からはストーブで、内からは焼酎で体を暖め‥‥
[翌年分ブック作成]で発生する実行時エラーを
- マクロ家計簿77ver.1.06 で、csvに落とすようにした。
- ver.1.06a では、[マクロ家計簿77エラー]というボタンを作成し、エラーの内容を表示できるようにした。
- 更に ver.106b では、[マクロ家計簿77エラー]が必要ない時はグレイアウトするようにした。(コードは後述)
やったぁ〜
- Public Function メニューをリセットする()
- Dim mbTitle As String
- Dim FSO As Object, FS As Object
- Dim csvFullPath As String
- Dim recCount As Long, startBookCount As Long, nowBookCount As Long
- Dim createDate As Date
- mbTitle = "メニューをリセットする/" & getMacroTitle()
- csvFullPath = ThisWorkbook.Path & "\" & ERRTextFile
- If Dir(csvFullPath) = "" Then
- frmメニュー.cmdエラー表示.Enabled = False
- Exit Function
- End If
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set FS = FSO.getfile(csvFullPath)
- createDate = FS.DateCreated
- With FSO.OpentextFile(csvFullPath, 8) '後ろから開く
- recCount = .Line - 1 'EOFをカウントしてしまうので -1 する。
- .Close
- End With
- Set FSO = Nothing
- If recCount <= 1 Then
- Kill csvFullPath
- frmメニュー.cmdエラー表示.Enabled = False
- Exit Function
- End If
- LngAns = DateDiff("m", createDate, Now)
- If LngAns >= 1 Then
- Kill csvFullPath
- frmメニュー.cmdエラー表示.Enabled = False
- Else
- frmメニュー.cmdエラー表示.Enabled = True
- End If
- End Function
- No.14〜15: FileSystemObject(FSO)で‥‥
- No.16: 作成日(DateCreated)を取得する。
- No.17: ファイルを後ろから開いて、(Excelヘルプ “OpenTextFile メソッド”)
- No.18: レコード数を取得する。EOF もカウントするので -1 する。