[ツリー表示へ] [ワード検索] [Home]
タイトル ： VBからExcelを起動しファイルの新規作成で 投稿日 ： 2008/07/18(Fri) 18:41 投稿者 ： べた
| VBからExcelを起動しています。 ファイルが存在しない場合は、新規作成し、既存のファイルが存在する場合は、 既存のファイルを開き、シートを新しく追加して設定します。 新規作成した場合、シートがデフォルトで３つ作成されています。 VBで、シートの作成を制御し、１つだけ作成するようにしたいのですが、 どのよにすればよいか教えてください。 strToday = Format(Date, "yyyymmdd") strExcelFile = FileDir & "\" & "file_" & strToday & ".xls" 'Set xlApp = CreateObject("Excel.Application") Set xlApp = New Excel.Application If Fso.FileExists(strExcelFile) = True Then Set xlBook = xlApp.Workbooks.Open(strExcelFile) Set xlSheet = xlBook.Worksheets.Add(after:=xlBook.Worksheets(xlBook.Worksheets.Count)) Else Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) End If |
をクリックするとツリー全体を一括表示します） - VBからExcelを起動しファイルの新規作成で - べた 08/07/18-18:41No.12805