Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4511 / 9994

←次へ　｜　前へ→


	【8728】Re:Access2003からExcelへの仕分け？

hm_Yh - 06/10/24(火) 15:57 -


	引用なし

	パスワード

小僧さん

こんにちは。
以下のテーブルＡを使って、実行しましたら、
実行時エラー’3061’：パラメータが少なすぎます。１を指定してください。
ご伝授ください。
環境：WinXP、Office2003

Set xlsApp = CreateObject("Excel.Application")
　　Set xlsWkb = xlsApp.Workbooks.Add
　
　　strSQL2 = "SELECT DISTINCT SEQ FROM " & TName
　
　　Set RS2 = CurrentDb.OpenRecordset(strSQL2, dbOpenSnapshot)　　エラーで反転

テーブルＡ
製造番号　　　　Name01　　　　Name02　　　　Name03
01　　　　　　　　001　　　　001　　　　001
02　　　　　　　　002　　　　002　　　　002
01　　　　　　　　001　　　　001　　　　001

仕分けして、以下の結果を求めたいです。
シート名：01
製造番号　　　　Name01　　　　Name02　　　　Name03
01　　　　　　　　001　　　　001　　　　001
01　　　　　　　　001　　　　001　　　　001

シート名：02
製造番号　　　　Name01　　　　Name02　　　　Name03
02　　　　　　　　002　　　　002　　　　002

533 hits

▼

【8660】Access2003からExcelへの仕分け？ hm_Yh 06/10/8(日) 14:47