タイトル : エクセルデータが取込めない 投稿日 : 2014/04/01(Tue) 14:07 投稿者 : 銭形
VBからエクセルのデータを取込みたいのですが、うまく取込めません。 あるエクセルファイル(XLS)を開いた状態だとうまく取り込めるの ですが、ファイルを選択して取り込もうとすると、外部テーブルの フォーマットが正しくありません。とエラーが出てしまいます。 どうしたらうまく取込めるでしょうか? ちなみに、エクセルファイルを開くと、セキュリティ警告が出ます (マクロが無効にされました)と表示されます。 (環境:Windows7 VB6.0(SP6) Excel2010) Dim DB As DAO.Database Dim rs As DAO.Recordset Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("D:\BOOK.xls") Set xlSheet = xlBook.Worksheets(1) Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;IMEX=1") ※この行でエラーになってしまいます。 すみませんが、アドバイスのほど、よろしくお願いいたします。 |