3

誰かが次のコードで私を助けてくれますか?

Dim NewOutputFile As Workbook
Set NewOutputFile = Workbooks.Add(FileName & ".xls")

どこFileName = "C:\Documents and Settings\me\My Documents\file.xls"

新しいブックを動的に作成してから、新しいタブを追加したいと思います。

NewOutputFile.Sheets.Add ("New tab")

「ワークブック」と言うときは、新しいExcelファイルを意味します。

4

1 に答える 1

7
NewOutputFile.Sheets.Add().Name= "New tab"

または、ワークシートを最後のワークシートとして追加する場合:

NewOutputFile.Sheets.Add(After:=NewOutputFile.Sheets(NewOutputFile.Sheets.Count)).Name = "New tab"
于 2012-09-10T13:28:08.870 に答える