| 投稿日 | ： 2002/12/25(Wed) 14:37 |
| 投稿者 | ： Say |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テーブルをExcelにコピーした時 |
たとえばAccessでテーブルを表示したとき、
一番上のフィールド名を書いてある部分は「行」ではありません。
フィールド名なら、例えばこんな感じで取得できます。
(xlSheetやrstの設定は済んでいるものとします。)
Dim daoFld As DAO.Field
Dim lngFldCnt As Long
For Each daoFld In rst.Fields
xlSheet.Cells(1, lngFldCnt).Value = daoFld.Name
lngFldCnt = lngFldCnt + 1
Next