tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルデータが取込めない
投稿日: 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")
 ※この行でエラーになってしまいます。
すみませんが、アドバイスのほど、よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。