Excel for Office 365、Win10です。
標題の通りです。
webで以下のサンプルを見つけましたが、応用できずにいます・・・。
サンプルソースを動作させるには
以下のように読み込む対象のExcel、1行目がフィールド行でないと取得できませんでした。
しかし読み込むExcelは、以下のようなパターンもあり、フィールド行の位置が定まっていません。
このような場合、どのように記述すべきでしょうか?
webのサンプルソース
VBA
1 2 Dim Target As String 3 Target = "C:\[test.xls]Sheet1'!" 4 5 6 For i = 1 To 256 7 If ExecuteExcel4Macro(Target & "R1C" & i) = "氏名" Then 8 TargetCol = i 9 Exit For 10 End If 11 Next i 12 13 If TargetCol = 0 Then 14 MsgBox "[ 氏名 ]フィールドが見つかりません。", vbExclamation 15 Exit Sub 16 End If 17 18 ''データの読み込み 19 For i = 2 To 10000 ''(1) 20 buf = ExecuteExcel4Macro(Target & "R" & i & "C" & TargetCol) 21 If buf = "0" Then Exit For ''(2) 22 23 ''【配列に格納する】 24 ReDim Preserve GetNames(i - 1) ''(3) 25 GetNames(i - 1) = buf 26 Next i 27 28 ''配列に格納したデータの確認 29 For i = 1 To UBound(GetNames) 30 Debug.Print GetNames(i) 31 Next i 32
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/01/28 05:42
2019/01/28 09:05