新しいワークブックのシートが指定できません
エクセルでマクロを作成中です。
マクロの動作の中で新しいワークブック作成して、
その中のワークシートを指定してデータを入力したいのですが、
全て1つ目のシートに入力されてしまいます。
どのようにしたら2つ目以降のシートを指定できるのでしょうか？
ソース
Public Csvfile
Public Csv_bk As Workbook
Public Xls_bk As Workbook
Public ch As Integer
Public i As Integer
Public LineCSV As Variant
Public LineXLS As Variant
Sub CSV_XLS()
Set Csv_bk = Workbooks.Open(Csvfile)
Set Xls_bk = Workbooks.Add
ch = FreeFile
Open Csvfile For Input As #ch
i = 1
Do Until EOF(ch)
Line Input #ch, LineCSV
LineXLS = Split(LineCSV, ",")
Xls_bk.Worksheets(1).Range(Cells(i, 1), Cells(i, UBound(LineXLS) + 1)) = LineXLS
i = i + 1
Loop
End Sub
DO文の中のWorksheets(1)をWorksheets(2)にしても全て
1つ目のシートに入力されてしまいます。
上のソースでは全てのデータを同じシートに入力していますが、
実際にはWorksheets(n)として
nを使ってデータをシート毎に振り分けたいと考えています。
Csvfileには別のフォームからファイル名を取得しています。
