Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33554 / 76738 ←次へ | 前へ→

【48400】非レコード形式のExcelをADOで扱いたい
質問  syn  - 07/4/16(月) 12:46 -

引用なし
パスワード
    はじめまして。VBA初心者です。

 やりたいことは、
1.インポート元を閉じた状態でインポートしたい。
そこで、ADOというものが使えたらと思いました。

2.でも、インポート元のブックは、1ブック=1シート=1レコードになっており、取得したいデーター欄が、項目名の右にあったり、下にあったり、きちんとした表にはなっていません。

 自分では

Private Sub Connect()

  Dim strDBPath As String

  strDBPath = ThisWorkbook.Path
  strDBPath = strDBPath & "\test.xls"

  Set objADOCon = CreateObject("ADODB.Connection")

  objADOCon.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
          "DBQ=" & strDBPath & ";"

End Sub

Sub Main()

  Dim strSQL As String
  
  Call Connect

  strSQL = "select * from [Sheet1$A1:J2]"
  Set objRS = objADOCon.Execute(strSQL)
  [A2].CopyFromRecordset objRS
  
  Call DisConnect

End Sub

などと、格闘してみたのですが、レコードセットおよびレコードの設定部分が、「やりたいこと 2.」にあった方法がわかりません。

質問に先立ち、【9098】は読んでみましたが、特に「やりたいこと 2.」の部分につき、ご教授ください。
0 hits

【48400】非レコード形式のExcelをADOで扱いたい syn 07/4/16(月) 12:46 質問
【48402】Re:非レコード形式のExcelをADOで扱いたい Kein 07/4/16(月) 13:05 発言
【48437】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/17(火) 15:09 質問
【48427】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/17(火) 11:28 発言
【48439】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/17(火) 15:55 質問
【48440】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/17(火) 16:01 発言
【48499】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 15:12 質問
【48500】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/19(木) 16:01 発言
【48513】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 11:26 質問
【48517】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 11:56 発言
【48520】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 12:56 質問
【48521】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 12:59 発言
【48524】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 13:51 質問
【48525】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 13:59 発言
【48527】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 14:30 お礼
【48456】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/18(水) 11:34 発言
【48493】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 11:13 質問
【48496】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/19(木) 13:29 発言
【48498】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 15:05 質問
【48501】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/19(木) 16:36 発言
【48518】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 11:59 お礼

33554 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free