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

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

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

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