タイトル : Re^4: EXCEL2003ファイルをMDBファイルへのインストール方法 投稿日 : 2015/07/29(Wed) 11:29 投稿者 : HELP
魔界の仮面弁士さん、ありがとうございました。シート名は取得できていたので、$を加えるだけでデータをシートから取得できるようになりました。まだ、初心者のこともあり微妙なところでつまづきます。 早くなれるようにしていきます。 > > Using conn As New OleDbConnection(cb.ConnectionString) > > conn.Open() > > Dim tbl As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) > > conn.Close() > > Return (From r In tbl Select r.Field(Of String)("TABLE_NAME")).ToList() > > End Using > > 失礼しました。VB2005 という点を見落としていました…。 > > 修正版はこちら。(折角書いたので、元のコードは残しておきます) > > > Dim sheets as New List(Of String)() > Using conn As New OleDbConnection(cb.ConnectionString) > conn.Open() > Dim tbl As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) > For Each row As DataRow in tbl.Rows > sheets.Add(row("TABLE_NAME").ToString()) > Next > conn.Close() > End Using > Return sheets |