Excelのデータ抽出について (ID:104564)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 メニュー → プロジェクト → 参照設定 → MicroSoft Excel 9.0 Object Library をチェック（Excelのバージョンは環境により変わる） '▼Excel定義 Dim Excelブック As Excel.Workbook Dim Excelシート As Excel.Worksheet Set Excelブック = GetObject("ファイル名") Set Excelシート = Excelブック.Worksheets(1) '▼定義 With Excelシート データベースのレコード = .cell(1,1) End With '▼終了 Set Excelブック = Nothing Set Excelシート = Nothing SQLについて Excel→データベース保存で使用 テーブル名は任意のレコードか空のレコード使用