Access VBA Excel エクスポート

質問

Accessにてユーザーが作成したクエリを各クエリごとにExcelファイルに出力するVBAを運用しています。

'QName()という配列にユーザーが作成した全クエリ名が格納されています。
'Pathという変数にAccessファイルのフルパスが格納されています。
'Ename()という配列に作成するExcelファイルの名前が格納されています。
j = UBound(QName)
For i = 0 To j
'Ｅｘｃｅｌファイルを作成する
DoCmd.TransferSpreadsheet acExport, 10, QName(i), Path & EName(i), True, ""
Next

Excelに出力した後、ファイルを開いて処理をするのですが、処理の都合で、繰り返しが偶数回目の時に、Excelファイルを作成し、奇数回目の時は、１つ前に作成したExcelファイルの先頭に新しいシートを作成する形で、出力したいです。

どのように修正すればよろしいでしょうか？
例：
i ＝ ０ ⇒ 新しくExcelファイルを作成する
i ＝ １ ⇒ ０の時に作成したファイルを開いて、先頭に新しいシートを作成する形で出力する
i ＝ ２ ⇒ 新しくExcelファイルを作成する
i ＝ ３ ⇒ ２の時に作成したファイルを開いて、先頭に新しいシートを作成する形で出力する

これをユーザーが作成したクエリ数だけ繰り返したいです。
※１：ユーザーが作成したクエリ数は、偶数となっています。

回答No.1

iruyasu · ベストアンサー

i Mod 2 ＝ ０ ⇒ 新しくExcelファイルを作成する
i Mod 2 ＝ １ ⇒ ０の時に作成したファイルを開いて、先頭に新しいシートを作成す

回答No.2

imogasi

>VBAを運用しています
ベテランのように書いているが、課題が起こるとすぐ質問し、回答コピペという状態ではね。
ーー
https://oshiete.goo.ne.jp/qa/426358.html
Access-VBAでＥｘｃｅｌファイルを作成する
https://oshiete.goo.ne.jp/qa/1437135.html
アクセスからエクセルのシートを追加して、名前をつける方法
など、自分でまず真似て、やってみて、もう少し細部のことでで質問したら。
ーー
質問の前に、ＶＢＡに関し、ＷＥＢ照会もやっていないようだが、それでは、周りにＶＢＡのベテランが居ない時は、疑問を聞けなくて、先へ進めないだろう。本当はまだ、仕事にＶＢＡを使うべきではないと個人的に思う。