【Excel VBA】Excelブックを開かず、指定した「列名」で列の値を返したい

Question

Excel for Office 365、Win10です。

標題の通りです。
webで以下のサンプルを見つけましたが、応用できずにいます・・・。

サンプルソースを動作させるには
以下のように読み込む対象のExcel、１行目がフィールド行でないと取得できませんでした。

しかし読み込むExcelは、以下のようなパターンもあり、フィールド行の位置が定まっていません。

このような場合、どのように記述すべきでしょうか？

webのサンプルソース

    Dim  Target As String
    Target = "C:\[test.xls]Sheet1'!"


    For i = 1 To 256
        If ExecuteExcel4Macro(Target & "R1C" & i) = "氏名" Then
            TargetCol = i
            Exit For
        End If
    Next i
    
    If TargetCol = 0 Then
        MsgBox "[ 氏名 ]フィールドが見つかりません。", vbExclamation
        Exit Sub
    End If
    
    ''データの読み込み
    For i = 2 To 10000                                                 ''(1)
        buf = ExecuteExcel4Macro(Target & "R" & i & "C" & TargetCol)
        If buf = "0" Then Exit For                                     ''(2)
        
        ''【配列に格納する】
        ReDim Preserve GetNames(i - 1)                                 ''(3)
        GetNames(i - 1) = buf
    Next i
    
    ''配列に格納したデータの確認
    For i = 1 To UBound(GetNames)
        Debug.Print GetNames(i)
    Next i

Answer 1

アクティブにあるなことが前提なら話は違いますが、「Excelブックを開かず、指定した「列名」で列の値を返したい」というのはVBAの仕様上できません。

http://officetanaka.net/excel/vba/beginner/09.htm

シートで1列目のテキストの判定を行って感じになりますね...

Comments

[papinianus]

https://excel-ubara.com/excelvba4/EXCEL219.html

[stdio]

出来るのは理解しましたが、
「複数セルの取得が必要で、そのセル数が多い時は、逆にこれでは遅くなってしまう事もあり得ます。」
「いつサポートされなくなるか分かりませんので、なるべく使わない方が良いでしょう。」
って書いてますよね。拡張性を考えると不便でしかないので、使わないのをおススメ致します。

Answer 2

先頭行が見出し（タイトル）でないといけないというのは、ExecuteExcel4Macroのルールではなく、
単にこのプログラムがそのように書かれているという話ですね？

であれば、改造すればいいだけです。

最初のFor文で、1行目（R1行）の1列目から256列目までをループして「氏名」を探していますが、これを二重のループにして「n行目の1列目から256列目を探し、氏名と書かれたセルの行、列を特定する」というように改造します。

次に、後半のループで「i=2」と2行目からデータを探しに行っていますが、この「2」を前述の処理で見つけた「氏名」セルの行に書き換えてやれば、氏名がどこから始まっても動くプログラムになります。

ただ注意点が。今のExcelは列数の上限が256ではなく、もっとたくさんあるはずなので、そのあたり、「どこまで探すか」は今のExcel仕様にあわせて変えないと行けないかもしれません。

Comments

[pecchan]

有難う御座います。
考え方、勉強になりました！
やってみます！

Answer 3

ExecuteExcel4Macro は古いコマンドですので、セル位置を指定するのに、A1形式ではなく R1C1形式（R行C列）で指定します。

例えば、 B2セルは、R2C2 となります。

下記のような感じで書き換えればいいでしょう。

     If ExecuteExcel4Macro(Target & "R2C" & i + 1) = "氏名" Then

'中略

     buf = ExecuteExcel4Macro(Target & "R" & i + 1 & "C" & TargetCol + 1)

Comments

[pecchan]

有難う御座います！