VBでEXCELデータの操作について (ID:79544)

名前

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

本文 納品前提で、Sheet操作やExcelのメソッド類を利用したいなら、 バージョンの影響を受けにくい Dim objExcel As Object Set objExcel = CreateObject("Excel.Application") がいいでしょう。 開発マシンと納品マシンのExcelのバージョンが同一で、 開発時にインテリセンスを利用したいなら Microsoft Excel Object Libraryを参照設定して Dim objExcel As New Excel.Application または Dim objExcel As Excel.Application Set objExcel = New Excel.Application DAO/ADOは xlsファイルをDBとして使いたいとき、 Excelのインストールされていないマシンで 扱いたいときに用います。 ただし、開発時にExcel用DBライブラリを追加インストールしないと 「ISAMライブラリがない」とおこられます。 コードはこんな感じ。 Dim daoDB As DAO.Database Dim daoRs As DAO.Recordset Dim strXLSName As String Dim strSQL As String strXLSName = App.Path & "\DBTest.xls" Set daoDB = DBEngine.Workspaces(0).OpenDatabase(strXLSName, _ False, False, "EXCEL 8.0; HDR=NO;") strSQL = " Select * From [Sheet1$] " Set daoRs = daoDB.OpenRecordset(strSQL,dbOpenDynaset)