エクセル追記処理でエラー

質問

別のフォームで前の処理が既に書き込まれているエクセルシートに、
新たに処理結果を追記していきたいのですが、
「オブジェクトがありません」というエラーになってしまいます。
Setをどのように書けばよいのでしょうか。

Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
xlFileName = strFileName
Set xlBook = xlApp.Workbooks.Open(xlFileName)
Set xlNeosheet = xlBook.Sheets.Item(1)
Set Newsheet ★ここがわかりません

n = 1
cnt = 0
rowNum = xlNeosheet.Range("A1").CurrentRegion.Rows.Count
For i = 1 To rowNum
shusseki = xlNeosheet.Cells(i, 5).Value
If IsNumeric(shusseki) Then
stno = xlNeosheet.Cells(i, 1)
stno = Form7.Text1 & stno
xlNewsheet.Cells(n, 6) = stno ☆ここでエラー
n = n + 1
cnt = cnt + 1
For j = 2 To 5
xlNewsheet.Cells(cnt, j + 5).Value = xlNeosheet.Cells(i, j).Value
Next j
End If
Next i

必要な部分だけ載せました。
よろしくお願いします。

回答No.2

pen_pen_pen · ベストアンサー

過去の質問と今回の質問を眺めててなんとなく分かりかけてきました。
まず
Set Newsheet ★ここがわかりません
は
Set xlNewsheet = ?????
の間違いですね？
1～5列目に書かれた人の分を読み込む時と別の場所で6～10列目の人を読み込む事にしたんですか？
1～5列目を読んだ時に続けて読んだ方が、何度もファイルをオープンする必要が無くていいと思いますが・・。

別にするということで。
Dim newFilePath As String
Dim xlNewBook As EXCEL.Workbook

newFilePath = (取り出したデータの保存先のパス)
'取り出したデータを保存しておいたEXCELを開く
Set xlNewBook = xlApp.Workbooks.Open(newFilePath)
'保存先のシートは1番目のシート
Set xlNewsheet = xlNewBook.Sheets(1)

'追記する位置を取得（今書かれている行数＋1）
n = xlNewsheet.Range("A1").CurrentRegion.Rows.Count + 1

・・・あれ？
やっぱり思っていた事と違うのかな？
1～5列目の値を持って来てますよね。
よく分からなくなって来ましたが、せっかく書いたので投稿しておきます（＾＾；
imogasiさんの回答をよく読み、ここでする処理の目的を教えて下さい。

補足

申し訳ありませんでした。何とも自分勝手な質問の仕方でした。名簿作成システムを作っています。
フォーム(1)からの処理結果を出力したエクセルシートに、
続けてフォーム(2)の処理結果も出力したいと思っています。
フォーム(1)の処理結果は、(1,1)に番号、(1,2)に氏名という風に(1,1)から(1,5)までを一人分の情報としてエクセルのシートに出力したもので、
(2,1)から(2,5)までがまた一人分、と一行ずつに個人情報が入っているものです。
そのシートに続けてフォーム(2)の処理結果も出力していきます。
フォーム(2)では使用するデータが違うだけで処理内容はフォーム(1)と同じです。
例えば、フォーム(1)の処理結果が15行目まで出力されたものだったら、
フォーム(2)は16行目から出力させていきます。
お聞きしたいことは、
・xlNewsheetをグローバル変数として使うことは可能か
・フォーム(1)から開いたエクセルシートは、一度閉じたり保存したりしなくてもフォーム(2)で開けるか
の二点です。よろしくお願いします。

フォーム(1)
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
xlFileName = strFileName　’一つ前のフォームからのファイルパス
Set xlBook = xlApp.Workbooks.Open(xlFileName)
Set xlNamesheet = xlBook.Sheets.Item(1)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlNewsheet = xlBook.Worksheets(1)　’出力用の新しいエクセルシートを開く
n = 1
cnt = 0
rowNum = xlNamesheet.Range("A1").CurrentRegion.Rows.Count　’開いたエクセルのデータの行数を数える
For i = 1 To rowNum
shusseki = xlNamesheet.Cells(i, 5).Value　’５セル目（出席回数）をチェック
If IsNumeric(shusseki) Then　’５セル目に数字が入っていればその人の情報(５セル分)を出力用の新しいエクセルシートに出力
stno = xlNamesheet.Cells(i, 1)
stno = Form10.Text1 & stno
xlNewsheet.Cells(n, 1) = stno
n = n + 1
cnt = cnt + 1
For j = 2 To 5
xlNewsheet.Cells(cnt, j).Value = xlNamesheet.Cells(i, j).Value
Next j
End If
Next i
：

フォーム(2)
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
xlFileName = strFileName　’パス名はフォーム(1)と同じですがデータは別物です
Set xlBook = xlApp.Workbooks.Open(xlFileName)
Set xlNamesheet = xlBook.Sheets.Item(1)
Set xlBook = xlApp.Workbooks.Add　’これは必要でしょうか？
Set xlNewsheet = xlNewBook.Sheets(1)　’ここでエラーが出てしまいます。このxlNewsheetはグローバル変数で宣言してありフォーム(1)と同じもの、出力用のシートです

rowNum = xlNamesheet.Range("A1").CurrentRegion.Rows.Count
For i = 1 To rowNum
shusseki = xlNamesheet.Cells(i, 5).Value
If IsNumeric(shusseki) Then
stno = xlNamesheet.Cells(i, 1)
stno = Form7.Text1 & stno
xlNewsheet.Cells(n, 1) = stno　’同じシートに出力
n = n + 1
cnt = cnt + 1
For j = 2 To 5
xlNewsheet.Cells(cnt, j).Value = xlNamesheet.Cells(i, j).Value
Next j
End If
Next i
：

回答No.1

imogasi

回答が入らないのは、回答者に、このプログラムが何をしたいかを解析させているからではないでしょうか。他人の
プログラムを辿るのは手間がかかるものです。
このプログラムが全体的に何をしたいのか、また出来れば逐次行的にコメントでもいれて質問すべきでは無いでしょうか。
＞「Set Newsheet ★ここがわかりません」は意味が判りません。
NeosheetとNewsheetはミスタイプではないのですか。
＞xlBook.Sheets.Item(1）はSheets(1)と同じでしょう。
他のコレクションの場合も同じですが、１つを特定する方法の１つでは。名前で特定、Indexで特定、Itemで特定の３つがあったと思います。
またVBAでも何言語でも、データの中身によってエラーが出る場合がある（むしろ多い）ので、一般的にはデータをみていない回答候補者が、エラー原因を究明することは非常に難しいものであることを知っていてください。そのカバーの努力は質問者が少しはすべきでは。