ano da:
Private xl As Excel.Application
Private W As Workbook
Sub aAddWorkbooks()
'Set xl = CreateObject("Excel.Application")
'xl.Visible = True
'Set W = xl.Workbooks.Add
Set W = Workbooks.Add
End Sub
jeden je v novom exceli a druhy je v povodnom excelicitovat
Private xl As Excel.Application
Private W As Workbook
Sub aAddWorkbooks()
'Set xl = CreateObject("Excel.Application")
'xl.Visible = True
'Set W = xl.Workbooks.Add
Set W = Workbooks.Add
End Sub
jeden je v novom exceli a druhy je v povodnom excelicitovat