2

現在のシート番号3の最後にExcelシートを追加する必要があります。ただし、以下のプログラムを実行すると、最初の位置にシートが表示されます。どうすればこれを解決できますか？

プログラムは基本的に、1つのExcelワークブックから複数のシートで構成される別のワークブックにデータをコピーします。

コード：

Dim objXL,objWrkBk,objWrkSht,a,n
Set objfso=CreateObject("Scripting.FileSystemObject")
Set objXL=CreateObject("Excel.Application")
Set objWrkBk=objXL.Workbooks.Open("C:\learning\demo.xlsx")
m=objWrkBk.Worksheets.count
msgbox m
For n=1 to m
Set objWrkBk=objXL.Workbooks.Open("C:\learning\demo.xlsx")
Set objWrkSht=objWrkBk.Worksheets("Sheet"&n)
columncount = objWrkSht.usedrange.columns.count
rowcount = objWrkSht.usedrange.rows.count
For i=1 to rowcount
For j=1 to columncount
If   objWrkSht.cells(i,j).value <> "" Then
    a= objWrkSht.cells(i,j).value& "   "
End If
'Next
'Next
check=objfso.FileExists("C:\learning\demo1.xlsx")
If not check Then
    objXL.Workbooks.Add
    objXL.ActiveWorkbook.SaveAs("C:\learning\demo1.xlsx")
End If
Set objWrkBk1=objXL.Workbooks.Open("C:\learning\demo1.xlsx")
If n<=3 Then
    Set objWrkSht1=objWrkBk1.Worksheets("Sheet"&n)
End If
If n>3 Then
    objXL.Worksheets.add
    Set objWrkSht1=objWrkBk1.Worksheets("Sheet"&n)
End If

If   objWrkSht.cells(i,j).value <> "" Then
objWrkSht1.cells(i,j).value=a
objWrkBk1.Save
End If
Next
Next
Set objWrkSht=Nothing
Set objWrkBk=Nothing
Set objWrkSht1=Nothing
Set objWrkBk1=Nothing

Next
objXL.Quit
Set objXL=Nothing
4

2 に答える 2

9

その位置にシートを追加できますAfter。つまり、このコードは最後のワークシートの後にシートを追加します（objWrkBk.Sheets(objWrkBk.Sheets.Count))ここ objWrkBk.Sheets.Count)で、は追加前のシートの数です。

Set objXL = CreateObject("Excel.Application")
Set objWrkBk = objXL.Workbooks.Add
Set objWrkSht = objWrkBk.Sheets.Add(, objWrkBk.Sheets(objWrkBk.Sheets.Count))
于 2013-01-01T09:09:03.493 に答える
0

Worksheetsプロパティは読み取り専用のようです

指定されたブック内のすべてのワークシートを表すSheetsコレクションを返します。読み取り専用のSheetsオブジェクト。

https://msdn.microsoft.com/en-us/library/office/ff835542(v=office.15).aspx

一方、スプレッドシートは、スプレッドシートを動的に追加することもできる本物です。

指定されたワークブックまたはアクティブなワークブックのすべてのシートのコレクション。

https://msdn.microsoft.com/en-us/library/office/ff193217(v=office.15).aspx

于 2015-01-26T17:23:17.697 に答える