Office97使用のシステム管理初級者です。
accessのクエリーを利用して以下のようなシステムを作ろうと思っているのですが、行き詰っています。
(1) 特定のデータ(複数)を抽出
(2) 既に用意しているexcelの任意の位置にデータを移管
(3) excelのブックを別名にてフロッピーに保存
(1)は何とかできたのですが、(1)によって抽出できたデータを任意のexcelに移管する時、最初の1データしか移管できなくて困っています。(次のようなものです・・・。)
Private Sub エクセル起動_Click()
On Error GoTo Err_エクセル起動_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
oApp.Workbooks.Open FileName:="D:\****\123.xls"
oApp.range("b4").Value = Me![1]
oApp.range("c8").Value = Me![2]
oApp.range("d8").Value = Me![3]
oApp.range("e8").Value = Me![4]
oApp.range("f8").Value = Me![5]
oApp.range("g8").Value = Me![6]
oApp.range("h8").Value = Me![7]
oApp.range("i8").Value = Me![8]
oApp.range("j8").Value = Me![9]
Exit_エクセル起動_Click:
Exit Sub
Err_エクセル起動_Click:
MsgBox Err.Description
Resume Exit_エクセル起動_Click
End Sub
それぞれの行にズラーッとデータがきて、さらにそのexcelを別名にてフロッピーに保存したいのですが、どのようにすればいいのでしょうか?
よろしくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
名前を付けて保存は次の通りです。
oApp.ActiveWorkbook.SaveAs Filename:="D:\****\123456.xls"
ryuu001さん、ありがとうございます。
例えば、セルb2に入ってるデータ「****」とかを、そのままブック名にして保存できる方法はありますか?
よろしければ、教えて下さい。
No.2
- 回答日時:
こんにちは。
Accessからであれば、TransferSpreadsheet関数を使うというのはどうでしょうか? 考慮済みならすいません。
参考URLでもいろいろ事例を検索できると思います。詳しくはヘルプなど
見てみて下さい。(きちんと書くのはちょっと自信ないので・・・)
参考URL:http://www7.big.or.jp/~pinball/
mayurinさん、ありがとうございます。
TransferSpreadsheet関数ですね。
むずかしそうだけど、頑張ってみます。
No.1
- 回答日時:
こんにちは、ats8181oyajiです
ちょっと時間が無いので、ヒントにもならないですが
回答が無いので、出てまいりました。
たぶん、フォームのデータを以下の様に
"oApp.range("b4").Value = Me![1]"
エクセルに格納されてますがもこれだと
1行だけになると思います。
私なら
1.抽出データを画面表示前に、テーブル作成クエリにて、新規テーブルを作成
2.そのテーブルをPrivate Sub エクセル起動_Click() 内にて
レコードセットを使いオープンしEOFまでループしながら読み込み。
3.そのループの中に、読み込んだデータを(エクセルの行を変更しながら)
エクセルにセットする
とします。
詳しいコーディングは、他の方におまかせします。
では
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでオートフィルター...
-
競馬新聞のエクセルデータ
-
Excel データ一覧から申込書に...
-
文字列の重複を自動的に削除し...
-
エクセルで移動平均のデータを...
-
ピポットテーブルの範囲指定の...
-
イラスト 配管の無料素材
-
Excelでフィルターのかかってい...
-
エクセルにCSVを全件インポート...
-
エクセル 順番を入れ替えたい
-
エクセルでごたく問題作成
-
エクセルデータベースについて
-
関数教えてください
-
グラフの横・縦項目が全部表示...
-
エクセルの散布図のX軸に文字...
-
エクセルのグラフ作成で軸を等...
-
エクセルの対数グラフで細かい...
-
Excelの2軸グラフ(棒と折れ線...
-
EXCELの近似曲線で対数近似、指...
-
エクセル グラフの削除してし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでオートフィルター...
-
Excelでフィルターのかかってい...
-
エクセルにCSVを全件インポート...
-
エクセルデータベースについて
-
エクセルで他のファイルを参照...
-
Excel データ一覧から申込書に...
-
エクセルで移動平均のデータを...
-
文字列の重複を自動的に削除し...
-
Excelのトップテンオート...
-
【エクセル】セルにどんなデー...
-
オートフィルタのプルダウンメ...
-
エクセル_データ処理_変化点検...
-
エクセルによる複数サイトから...
-
エクセルの並び替えについて
-
エクセルクエリーの元データの...
-
エクセルに格納した顧客リスト...
-
エクセルの足し算(多くの数)
-
エクセル(Ver2002)の設定につ...
-
excelで日付順にする関数を教え...
-
【エクセル関数】重複データを...
おすすめ情報