|
はじめまして。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.」の部分につき、ご教授ください。
|
|