タイトル : EXCEL2003ファイルをMDBファイルへのインストール方法 投稿日 : 2015/07/28(Tue) 12:01 投稿者 : HELP
VB2005でEXCEL2003ファイルのシート(複数シートのうち一つのシート)をMDBテーブルにインポートしたいです。 一応、PGでは1つ目のEXCELファイルのシートはインポートできるのですが、2つ目以降はシートオブジェクトが 存在しないためインポートできない状態です。以下、PGを記載しておきます。 お忙しいところ申し訳ありませんが、ご教授いただければと思います。 Private sub 'MDB との接続を確立する(作業用MDB) cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & My.Settings.DirecFile3 & ";" & _ "Persist Security Info=False ;" & _ "Jet OLEDB:Database Password=" & My.Settings.Password & ";") '補助コードディレクトリ情報取得 Direc_Name = keihi_DDirec '補助コードファイル情報取得 File_Name = Keihi_DName '補助コードインポート先テーブル名情報取得 ImpTable_Name = My.Settings.TableName2 '補助コードインポート対象シート名情報取得 ImpSheet_Name = Get_SheetName(Direc_Name, File_Name) '補助コード文言情報取得 WordString1 = "補助コードデータ" end sub Private Function ' エクセルDBの指定 strConnect = "[Excel 8.0;database=" & Direc_Name & "\" & File_Name & "].[" & ImpSheet_Name & "]" 'SQL設定 strSQL = "INSERT INTO " & ImpTable_Name & " SELECT * FROM " & strConnect 'SQL実行 cnn.Execute(strSQL) end Function |