タイトル : Re: EXCEL2003ファイルをMDBファイルへのインストール方法 投稿日 : 2015/07/28(Tue) 12:04 投稿者 : HELP
申し訳ありません。コードを再度記載しておきます。 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 = "補助コードデータ" '対象Excelインポート処理 If Excel_Imp(Prog, Direc_Name, File_Name, _ ImpSheet_Name, ImpTable_Name, WordString1) = False Then Exit Function End If end sub Private Function Excel_Imp as Boolean ' エクセル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 > 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 |