以前 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が返ってきてしまいます。
原因は何なのでしょうか?
No.1
- 回答日時:
ステップ実行してみては?
「レコードセットOPEN直後にレコード数を取得できない」なら
OPEN直後に以下2行を追加してからレコード数を取得してみて。
adoRs.MoveLast
adoRs.MoveFirst
この回答への補足
回答ありがとうございます。
adoRs.Open strSQLgenyu, adoCn, adOpenKeyset 'SQLを実行して、対象をadoRsへ
adoRs.MoveLast
adoRs.MoveFirst
MsgBox (adoRs.RecordCount)
このように記述して試してみたところ
実行時エラー'-2147217884(80040e24)':
オートメーションエラーです。
と出ました。
windowsupdateも行なっているので、基本的なファイルはそろっていると思うのですが・・・
No.2
- 回答日時:
>adoRs.Open strSQLgenyu, adoCn, adOpenKeyset
を
adoRs.Open strSQLgenyu, adoCn, adOpenStatic, adLockReadOnly
としてみたらどうですか。これで取得できますが。
この回答への補足
回答ありがとうございます、
そのように実行したところ
実行時エラー'3001':
アプリケーション定義またはオブジェクト定義のエラーです。
とでます。
ちなみに定数をadLockReadOnlyにした場合のみこのようなエラーがでます。
No.3
- 回答日時:
Acceessのフィルはmdbですか、あるいはaccdbですか。
それとバージョンは?
気になるのは、
パス(省略)
このパスの使い道と、
Call DBconnect(True) (省略)
この関数の存在ですが、これらは間違いなく
使用されたり、機能していますか。
この回答への補足
回答ありがとうございます。
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
としています。
今回の質問である、縦横変換出力しない状態でなら
これらを使用し、縦に出力されるはずです。
No.4ベストアンサー
- 回答日時:
コード表の参照設定で、ADOにチェックが
はいっているのでしょうか。それと、
>今回の質問である、縦横変換出力しない状態でなら
>これらを使用し、縦に出力されるはずです。
は確認済みですか?
カーソルタイプはadOpenKeysetでいいとは思いますが。
この回答への補足
回答ありがとうございます、コード表の参照設定にてチェックが入っていなかったのが原因でした。
(縦の出力はチェックを入れる前でも問題なく出力されました)
助かりました、ありがとうございます。
また、よろしければ教えていただきたいのですが
この状態で任意のセルから入れ替えした値を出力するには
ReDim buf(tmpFldCnt - 1, tmpRecCnt - 1)
buf = adoRs.GetRows
Range(Cells(1, 1), Cells(tmpFldCnt, tmpRecCnt)) = buf
これをどう変更するとよいのでしょうか?
いろいろいじってみたものの、自分の望んだ結果にはなりませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 空白のセルを変更しようとした時(アクティブセル)に インプットボックスを5回出す インプットボックス 1 2023/03/14 11:01
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) このマクロの説明文を教えてほしいです。 1 2023/01/12 09:17
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
printfとputcharの違いは
-
詳しくないので、どなたかお教...
-
MMDでavi出力が出来ない
-
テキストファイルから特定の文...
-
【エクセル、並び替えについて】
-
Accessの値をExcelに縦横入替出...
-
VBA レジストリの値の読み方に...
-
PIC16F1827のAD変換 PIC初心者...
-
C# 標準出力のencodingをutf8に...
-
エクセルVBAでテキストファイル...
-
4Kの外部モニターに出力すると...
-
show running configの出力結果
-
PS5をMacBookProに出力したいの...
-
VBAで有効数字の設定
-
コンピュータの仕組みについて
-
無線とかアンテナに関しの質問...
-
Net User コマンドで一覧表示
-
COBOLの桁落ち
-
OBS配信すると、マイクが途切れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
コンセントの電力は入力と出力...
-
AIに回答させるって
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
アクセスでエクセルに出力する...
-
printfとputcharの違いは
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
VBAで有効数字の設定
-
coutで出力した文字を消去する...
-
Windows Formアプリからコンソ...
-
KEYENCEのシーケンスプログラム...
-
CRC16計算について
おすすめ情報