White Tiger

Microsoft Excel VBA - 起動時の環境をシートに記録する方法

◆概要

このページは、Excel VBAで起動時の環境をシートに記録する方法について記載しています。
記録されるのは、C列にExcelのバージョン、D列にWindowsのバージョン、E列に日付と時間です。

◆Sample code
次の例は、「起動環境」というワークシートに起動時の環境を記録していきます。

Private Sub Workbook_Open()
'************
'起動処理
'************

    Dim NN As Integer
    
    '起動シート指定
    Sheets("起動環境").Activate
    ActiveSheet.Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    
    On Error Resume Next
    
    '起動環境を記録
    With Sheets("起動環境")
        For NN = 2 To 6
            If Len(.Cells(NN, 3).Value) = 0 Then
                .Cells(NN, 3).Value = Application.Version
                .Cells(NN, 4).Value = Application.OperatingSystem
                .Cells(NN, 5).Value = Now()
                Exit For
            End If
            '５行以上は増やさない
            If NN = 6 Then
                .Cells(NN, 3).Value = Application.Version
                .Cells(NN, 4).Value = Application.OperatingSystem
                .Cells(NN, 5).Value = Now()
            End If
        Next NN
    End With
    
    
    ActiveWorkbook.Saved = False    '保存済みフラグをクリア
    On Error GoTo 0
End Sub

Link