指定したExcelをSQLテーブルに呼び込む方法

質問

• VB.Netを使用して、指定したExcelファイルを指定したSQLテーブルに呼び込む方法を教えてください。
• AccessのVBAでは、DoCmd.TransferSpreadsheetというメソッドを使用してExcelファイルをテーブルに呼び込むことができましたが、VB.Netで同様の処理を行う方法がわかりません。
• VB.Net初心者ですので、詳しい手順やコードの説明をお願いします。

回答No.3

NoMusicNoLife49

こんにちは。
下記のように書けば、PCに保存したエクセルファイルを読込めます。

Public Overloads Function GetExcelData() As Boolean
'変数宣言
Dim OleConnection As OleDb.OleDbConnection = Nothing
Dim OleAdapter As OleDb.OleDbDataAdapter = Nothing
Dim DT As DataTable = Nothing

Try
'クラスインスタンス作成
OleConnection = New OleDb.OleDbConnection
OleAdapter = New OleDb.OleDbDataAdapter
DT = New DataTable()

'接続情報設定　※Data Sourceにエクセルファイルの保存先絶対パスを指定
OleConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\フォルダ名\読込むエクセルファイル.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

With OleAdapter
.SelectCommand = New OleDb.OleDbCommand
.SelectCommand.Connection = OleConnection
.SelectCommand.CommandType = CommandType.Text
.SelectCommand.CommandText = "SELECT * FROM [読込むエクセルファイルのシート名$]"

'エクセルファイルのデータをメモリーテーブルに読込む
.Fill(DT)
End With

Return True

Catch ex As Exception
MsgBox(ex.Message)

Return False
End Try
End Function

お礼

NoMusicNoLife49　さんありがとうございます。
早々に
VB.netのModule1.vbに貼り付けました。
するとOverloadsの所が緑の波線になりました。
デバッグにはひっかかりません。

下記の2ヶ所は書換えました。

"SELECT * FROM [sheet1$]"
"Data Source=C:\test.xls;"

それでまったくの初心者なのでButton2_ClickでこのFunctionを動かすにはどう書いたらいいのでしょうか。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
<-----ここの書き方が判りません。
End Sub

又、"Provider=Microsoft.Jet.OLEDB.4.0;"となっているんですが
サーバーはSQL2000なんですがこの設定でよろしいのでしょうか。
教えてください。

引き続きよろしくお願いいたします。