Создайте пустую книгу, которая не сохранена

Question

Я пытаюсь открыть книгу в отдельном экземпляре. В настоящее время эта книга сохраняется на рабочем столе. Я хотел бы открыть новую книгу, которая не сохраняется или находится где-либо в моей системе. Ниже приведен текущий код. Пожалуйста, порекомендуйте.

Sub New_Excel() 
    'Create a Microsoft Excel instance via code 
    'using late binding. (No references required) 
    Dim xlApp As Object 
    Dim wbExcel As Object 

    'Create a new instance of Excel 
    Set xlApp = CreateObject("Excel.Application") 

    'Open workbook, or you may place here the 
    'complete name and path of the file you want 
    'to open upon the creation of the new instance 
    Set wbExcel = xlApp.Workbooks.Open("C:\Users\PRASHPRA\Desktop\Book.xls") 

    'Set the instance of Excel visible. (It's been hiding until now) 
    xlApp.Visible = True 

    'Release the workbook and application objects to free up memory 
    Set wbExcel = Nothing 
    Set xlApp = Nothing 
End Sub 

Answer 1

Если вы хотите создать новую пустую книгу, прекратите пытаться открыть существующую. Просто измените линию

Set wbExcel = xlApp.Workbooks.Open("C:\Users\PRASHPRA\Desktop\Book.xls") 

в

'Add a new, empty workbook 
Set wbExcel = xlApp.Workbooks.Add 

Для получения дополнительной информации см Creating a New Workbook (ссылка для Excel 2003, потому что это первый один я нашел через Google, но это все еще применяется, и если вам нужна более новая ссылка, которую вы, вероятно, найдете так же, как и я).