10-26-2020
11:49 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-26-2020
11:49 PM
Thanks Yan
This same in Ilogic
inventory 2021 + Excel 2007 works
inventory 2021 + Excel 2016 doesn't work ??. Why ??
AddReference "Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop.Excel
Sub Main()
Dim oExcel As Object ''As Excel.Application
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True ''zviditelnit okno s Excelom
''Create new workbook
Dim oWorkbook As Object ''Workbook
oWorkbook= oExcel.Workbooks.Add
''oWorkbook = oExcel.Workbooks.Add (Template:="C:\Temp\PK_Template.xls")
oWorkbook = oExcel.Workbooks.Item(1)
oWorkbook.activate
Dim oWorkSheet As Worksheet
oWorkSheet = oWorkbook.Sheets.Item(1)
oWorkSheet.Cells(1, 1).Value = "works !"
oWorkbook.SaveAs ("C:\Temp\test.xls") 'Save excel
oExcel.Quit
oWorkSheet = Nothing
oWorkbook = Nothing
oExcel = Nothing
End Sub
Thanks