こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Accessの値をExcelに縦横入替出力したい

以前 http://okwave.jp/qa/q8776430.html
ここにて質問をさせて頂いたのですが、回答を頂いたことに感激し
お恥ずかしい事に解決する前に先走って回答を締めきったものの
どうしても解決できないので申し訳ないですが再度質問させて下さい。

質問:AccessからデータをExcelVBAでADOを使用して読み込み、
出力する前に縦横を入れ替えたいのですが
その際に, adOpenstatic、adOpenKeyset などカーソルのタイプを変更しても
recordcountが-1を返してしまうのですが、解決法を教えてください。


以下補足です。

--------------------------------------------------------------------
現在、作業列を使って一旦AccessからデータをVBAでADOを使用して読み込み
その後transpose関数で入れ替えているのですが
出力する前に縦横を入れ替えた状態にはできないのでしょうか?
--------------------------------------------------------------------
という質問に対して、

Dim buf() As Variant
Dim i As Long
Dim j As Long
  ・
'ここにAccessファイルへのコネクションを設定
  ・
  ・
i = rs.Fields.Count
j = rs.RecordCount
ReDim mbuf(i - 1, j - 1)
buf = rs.GetRows
Range(Cells(1, 1), Cells(i, j)) = buf
-------------------------------------------------------------
という回答を頂き

パス(省略)

Sub AcRecordCount()

Dim tmpFldCnt As Variant
Dim tmpRecCnt As Variant
Dim buf() As Variant

Call DBconnect(True) (省略)


strSQLgenyu = _
"SELECT * " & _
"FROM TBL " & _
"WHERE コード = " & Range("J1") & _
"Or コード = " & Range("J2") 'J1、J2に一致したwhereフィールドの列を、fromテーブル名から全て(*)を出力

adoRs.Open strSQLgenyu, adoCn, adOpenKeyset 'SQLを実行して、対象をadoRsへ

MsgBox (adoRs.RecordCount)  '-1が返ってくる

tmpFldCnt = adoRs.Fields.Count
tmpRecCnt = adoRs.RecordCount



ReDim buf(tmpFldCnt - 1, tmpRecCnt - 1) 'インデックスが有効範囲にありませんとでる(恐らくrecordcountが原因)
buf = adoRs.GetRows
Range(Cells(131, 11), Cells(tmpFldCnt, tmpRecCnt)) = buf

Range("EA11:JJ105").ClearContents 'セル内を削除
Range("EA11").CopyFromRecordset adoRs '出力

End Sub

と、書いたのですが、-1が返ってきてしまいます。
原因は何なのでしょうか?

投稿日時 - 2014-10-06 18:25:11

QNo.8781222

すぐに回答ほしいです

質問者が選んだベストアンサー

コード表の参照設定で、ADOにチェックが
はいっているのでしょうか。それと、


>今回の質問である、縦横変換出力しない状態でなら
>これらを使用し、縦に出力されるはずです。

は確認済みですか?

カーソルタイプはadOpenKeysetでいいとは思いますが。

投稿日時 - 2014-10-07 12:25:50

補足

回答ありがとうございます、コード表の参照設定にてチェックが入っていなかったのが原因でした。
(縦の出力はチェックを入れる前でも問題なく出力されました)

助かりました、ありがとうございます。


また、よろしければ教えていただきたいのですが
この状態で任意のセルから入れ替えした値を出力するには

ReDim buf(tmpFldCnt - 1, tmpRecCnt - 1)
buf = adoRs.GetRows
Range(Cells(1, 1), Cells(tmpFldCnt, tmpRecCnt)) = buf

これをどう変更するとよいのでしょうか?
いろいろいじってみたものの、自分の望んだ結果にはなりませんでした。

投稿日時 - 2014-10-07 13:41:26

お礼

すいません、少し考えれば分かることでした
解決致しました、本当にありがとうございました。

投稿日時 - 2014-10-07 13:52:37

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.3

Acceessのフィルはmdbですか、あるいはaccdbですか。
それとバージョンは?

気になるのは、

 パス(省略)

このパスの使い道と、

 Call DBconnect(True) (省略)

この関数の存在ですが、これらは間違いなく
使用されたり、機能していますか。

投稿日時 - 2014-10-07 10:45:01

補足

回答ありがとうございます。

Access2007にて、mdeファイルを使用しています。

パス(省略)の部分は
--------------------------------------------------------
'宣言
Private adoCn As Object
Private adoRs As Object
Private strSQL As String
Private Const DBpath = "\Access.mde" 'Accessファイルのパス指定
---------------------------------------------------
Call DBconnect(true) (省略)
の部分は

Sub DBconnect(flg As Boolean) 'DB呼出
Set adoCn = CreateObject("ADODB.Connection")
If flg = True Then Set adoRs = CreateObject("ADODB.Recordset")
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & ";"

End Sub



としています。
今回の質問である、縦横変換出力しない状態でなら
これらを使用し、縦に出力されるはずです。

投稿日時 - 2014-10-07 11:26:00

お礼

解決しました、ありがとうございました

投稿日時 - 2014-10-14 14:57:51

ANo.2

>adoRs.Open strSQLgenyu, adoCn, adOpenKeyset



adoRs.Open strSQLgenyu, adoCn, adOpenStatic, adLockReadOnly


としてみたらどうですか。これで取得できますが。

投稿日時 - 2014-10-06 20:02:54

補足

回答ありがとうございます、
そのように実行したところ

実行時エラー'3001':
アプリケーション定義またはオブジェクト定義のエラーです。

とでます。
ちなみに定数をadLockReadOnlyにした場合のみこのようなエラーがでます。

投稿日時 - 2014-10-07 09:10:42

お礼

解決しました、ありがとうございました

投稿日時 - 2014-10-14 14:58:01

ANo.1

ステップ実行してみては?

「レコードセットOPEN直後にレコード数を取得できない」なら
OPEN直後に以下2行を追加してからレコード数を取得してみて。
adoRs.MoveLast
adoRs.MoveFirst

投稿日時 - 2014-10-06 19:15:45

補足

回答ありがとうございます。

adoRs.Open strSQLgenyu, adoCn, adOpenKeyset 'SQLを実行して、対象をadoRsへ

adoRs.MoveLast
adoRs.MoveFirst

MsgBox (adoRs.RecordCount)

このように記述して試してみたところ


実行時エラー'-2147217884(80040e24)':
オートメーションエラーです。
と出ました。
windowsupdateも行なっているので、基本的なファイルはそろっていると思うのですが・・・

投稿日時 - 2014-10-07 09:03:04

お礼

解決しました、ありがとうございました

投稿日時 - 2014-10-14 14:58:09

あなたにオススメの質問