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

タイトル 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

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

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