ник: час
У меня нет Office 2010
У меня установлен Office 2003
Для него и всё и делал......
Public xl As Object
Public xlBook As Object
Public xlSheet As Object
Public row, col
Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Open(Patch_Name & "Blank.xls")
Set xlSheet = xl.Worksheets("СТР1")
xlSheet.Activate
................................
' Set RST_ORG = New ADODB.Recordset
xl.Range("A7").Value = RST_ORG("FIRMA")
xl.Range("AF7").Value = RST_ORG("OKPO")
xl.Range("AF8").Value = RST_ORG("INN")
.....................................
xl.ActiveWorkbook.SaveAs GLB_PATCH_DOCS & "Книжка ехцелевская"
Set xlSheet = Nothing
Set xlBook = Nothing
Set RST_ORG = Nothing
|
у меня работает, а на месте не работает.
теперь выясняется что всё это надо для Office 2010
А я в ступоре - че надо поменять?
Ведь всё и так (по моему) должно работать...
Или нет?