2010年07月29日

【VB.NET】ADO経由でExcelシート名取得

ADO経由でOpenSchemaメソッドにてExcelシート名取得

※OpenSchemaメソッドは、データソース構造 (メタデータ)を取得する
 メソッドです。


<サンプルソース>

Dim objADO As Object
Dim objRs As Object
Dim shName As String
Dim chk As String

objADO = CreateObject("ADODB.Connection")
objADO.Open("Driver={Microsoft Excel Driver (*.xls)}; " & _
      "DBQ=D:\test.xls;" & _
      "ReadOnly=0")
objRs = objADO.OpenSchema(20)
Do Until objRs.EOF
  If objRs Is Nothing Then Exit Do

  shName = objRs.Fields("TABLE_NAME").Value
  chk = shName.Substring(shName.Length - 1, 1)
  If chk = "$" Or chk = "'" Then
    'shNameにシート名セット
    shName = shName.Substring(0, shName.Length - 1)
  End If

  objRs.MoveNext()
Loop

objRs.Close()
objRs = Nothing
objADO.Close()
objADO = Nothing


※但し、この方法で取得すると、Excel上のシート順では
 取得できません。

 Excel上のシート順で取得する方法をご存知の方、
 教えてください!



ラベル:VB.NET EXCEL
posted by けいちゃん at 09:34| 長崎 ☀| Comment(18) | TrackBack(0) | IT関連備忘録 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
お世話になります、【http://www.kiraku-rmt.jp/rmtbuy/Latale.htm】でございます。
Posted by FF11 rmt at 2011年07月20日 06:38
今の在庫はいっぱいあります。そして、価格は値下がりました
Posted by アラド戦記 rmt at 2011年07月20日 14:48
詐欺に遭わない安心のエスクローサービス、是非この機会にWebMoneyでご利用下さい。
Posted by Arad rmt at 2011年07月21日 03:32
どうぞよろしくお願いいたします。
Posted by アトランティカ rmt at 2011年07月21日 09:11
どうぞよろしくお願いいたします。
Posted by 聖境伝説 RMT at 2011年12月04日 07:51
いつもお世話になります【http://www.rmt-top.com/rmtbuy/lineage2.htm】です
Posted by メイプル rmt at 2011年12月04日 09:05
今の在庫はいっぱいあります。そして、価格は値下がりました
Posted by RF rmt at 2011年12月04日 16:12
平素は【http://www.rmt-mab.com/gamebuy/Maplestory.htm】をご利用いただき、誠にありがとうございます。
Posted by Master Of Epic rmt at 2011年12月04日 16:48
今の在庫はいっぱいあります。そして、価格は値下がりました
Posted by ラテール rmt at 2011年12月04日 17:29
今から【FF14 RMT】の通貨が入荷しました。お客様はぜひご利用してください
Posted by メイプルストーリー rmt at 2011年12月04日 18:34
通貨信用販売サービス【http://www.kiraku-rmt.jp/rmtbuy/AION.htm
Posted by Master Of Epic rmt at 2011年12月04日 18:51
通貨信用販売サービス【http://www.shop-rmt.jp/gamebuy/Latale.htm
Posted by nexon ポイント RMT at 2011年12月04日 19:47
通貨信用販売サービス【http://www.rmt-link.jp/
Posted by ラテール rmt at 2011年12月04日 21:53
RMTが初めて!と言うお客様は小口数でも構いませんので、安心を実感して下さい!
Posted by ドラゴンネスト rmt at 2011年12月04日 23:24
今【FF14】を最安値で販売しています。
Posted by RMT 桜RMT 桜 at 2011年12月05日 05:52
今の在庫はいっぱいあります。そして、価格は値下がりました
Posted by RMT 桜RMT 桜 at 2011年12月05日 07:06
本サイト【http://www.rmt-roan.jp/gamebuy/Latale.htm】のレッドストーン RMTの通貨は在庫追加しました
Posted by Maple Story rmt at 2011年12月05日 14:54
http://www.rmt-link.jp/games/FF11.htm】より便利になったサービスを、是非一度お試しください。
Posted by アラド rmt at 2011年12月05日 14:59
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。