あした

'ACCESSのVBAの中でExcelを開き最終行/最終列/アルファベットの列を取得


    Dim oApp            As Object                 '　Application Object
    Dim oWkb            As Object                 '　Excel.Workbook Object
    Dim oWsh            As Object                 '　Excel.WorkSheet Object
    Dim RowNxt          As Long
    Dim MaxCol          As Long
    Dim MaxCol_A        As String
    Dim ColNxt_A        As String
    
    On Error GoTo ErrProc

    Set oApp = CreateObject("Excel.Application")
    Set oWkb = oApp.Workbooks.Open(FileNm)
    Set oWsh = oWkb.Worksheets(1)           '1シート目を対象

    With oWsh

        RowNxt = .Cells(oWsh.Rows.Count, 1).End(xlUp).Row + 1                               '最終行の次の行を取得（最終行 + 1）
        MaxCol = .Cells(1, oWsh.Columns.Count).End(xlToLeft).Column                         '最終列のアドレスの数字取得
        MaxCol_A = .Cells(1, MaxCol).Address(RowAbsolute:=True, ColumnAbsolute:=False)      '最終列のアドレス取得
        MaxCol_A = Left(MaxCol_A, InStr(MaxCol_A, "$") - 1)                                 '最終列のアルファベットだけを取得
        ColNxt_A = .Cells(1, MaxCol + 1).Address(RowAbsolute:=True, ColumnAbsolute:=False)  '最終列の次の列（最終列 + 1）のアドレス取得
        ColNxt_A = Left(ColNxt_A, InStr(ColNxt_A, "$") - 1)                                 '最終列の次の列のアルファベットだけを取得

    End With