HTAでレコードを条件検索するプログラムを作っています。条件によるレコード検索までは出来ているのですが、その結果の転記が出来ないでおります。
検索を実行すると指定した条件でDBの情報を取得し表示させます。
表示する際にHTA上にレコードの横へチェックボックスが作成されます。
HTA上に表示されるレコードですが、レコードの状態を確認するため必要最低限のものしか表示しないようにしています。
(ウィンドウサイズを出来るだけ小さく作りたかったため)
select * from sheet1 where 陳列コード = 'B01'で検索を行いobjRS(1)、objRS(2)、objRS(3)、objRS(6)、objRS(7)というように全てのフィールドは表示させていません。
HTA上に表示をしExcelへ転記する必要があるものだけを確認したらチェックボックスにチェックをいれます。
転記を押したらHTA上に表示されている「商品C (objRS(2))」と「陳列C (objRS(3))」のフィールドをを元に再度SQLを発行させExcelに転記するというやり方です。
例:select * from sheet1 where 商品コード = 'A0001' and 陳列コード 'B1'のようにです。
要は、チェックボックスにチェックがついたものだけをSQLを発行しエクセルへ転記を行いたいのですがどのようにしたらいいのか・・・
ひょっとしたらHTAのオブジェクトを取得してHTA自分自身を操作??なんておもってやってみたのですが何故かHTAのプログラムだけ結果が返りません。
それかこの考え自体が間違いでしょうか?どなたかヒントで構いませんので力になっていただけないでしょうか?
http://www.google.com/notebook/public/0657752327 …
(似たような質問を昼間書いたのですが自分自身分かりづらかったので再投稿しました 削除が可能になりましたら古いのは消しますのでご了承ください)
No.1ベストアンサー
- 回答日時:
HTAからExcelを操作すべきと思います。
以下、VBScriptと仮定した場合
Dim APL
Dim WKB
Dim WKS
Set APL = CreateObject("Excel.Application") 'Excel起動
Set WKB = APL.Workbooks.Add '新ブックを作る
Set WKS = WKB.WorkSheets(1) '先頭のシート
後は以下のようにセルに仕込む。
WKS.Cells(行, 列).Value = objRS(x) '行、列は1~
データを貼り付けたら可視にする
APL.Visible = True
このExcelシートをどうするかは見ている人の勝手なので、シートを
可視にしたら、処理は終了する。APL以下のオブジェクトはケアする
必要はない。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- PHP PHP MySql ページング 2 2022/09/20 06:38
- JavaScript javaScriptで画面に値を入れるには 1 2022/08/14 12:27
- Visual Basic(VBA) VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。 13 2023/02/26 09:31
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSPのNULLレコード表示について...
-
アクセスでレポートの1印刷内...
-
ADO VBA 実行時エラー3021
-
レコードセット(ADO.Recordset)...
-
Access を×ボタンで閉じ...
-
【ExcelVBA】Powerクエリーでい...
-
差し込み印刷のレコード数について
-
ワードの差込印刷で教えて下さ...
-
レコードが存在しなかった場合
-
ACCESSで大量の更新を行うと「...
-
DataGridViewの、選択されてい...
-
HTA上データをExcelへ転記する...
-
サブフォームに新規レコードを...
-
カレントレコードが無い事を判...
-
DataGridViewにてセル以外をク...
-
ヘッダレコードとトレーラレコ...
-
Access でレコードセレクタが押...
-
COBOLでのランダムアクセス
-
SYLKファイルフォーマットについて
-
Line Inputで文字化け(助けて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードが存在しなかった場合
-
ADO VBA 実行時エラー3021
-
ファイル書込みで一行もしくは...
-
アクセスでレポートの1印刷内...
-
カレントレコードが無い事を判...
-
差し込み印刷のレコード数について
-
レコードセット(ADO.Recordset)...
-
ワードの差込印刷で教えて下さ...
-
DataGridViewの内容をDBに反映...
-
Access でレコードセレクタが押...
-
DataGridViewの、選択されてい...
-
JSPのNULLレコード表示について...
-
ACCESSで大量の更新を行うと「...
-
[VBA] ADOの Clone と AddNew
-
Access を×ボタンで閉じ...
-
サブレンジ分割されたNDB(富士...
-
ヘッダレコードとトレーラレコ...
-
データセットのレコード更新が...
-
DataGridViewにてセル以外をク...
-
Line Inputで文字化け(助けて...
おすすめ情報