forum.clarionlife.net

Андрей писал(а): 2. Вот такой стандартный кодL:FileName = path()&'\Отчеты\Отчет по услуге.xls'copy('.\Forms\ОтчетПоУслуге.xls',L:FileName)l:OLE{'workbooks.open("' & clip(l:FileName) & '")'}При открытии Эксел выдает сообщение "BIND has not been called for "f:\Work\Отчеты\Отчет по услуге.xls"Закрываешь его, дальше все нормально отрабатывает.... ???

   Object_                        = Create(0,Create:Ole)
   Object_{Prop:Create}    = 'Excel.Application' !'Excel.Sheet'

    If Object_{'Application.Name'} = 'No ole automation interface'
       Destroy(Object_)
       Clear(Object_)
    else
       Object_{'Application.ReferenceStyle'} = 1
       Object_{'Application.Workbooks.Open("' & Clip(Left(Loc:XlsFileName)) & '")'}
       Object_{'Application.DisplayAlerts'} = False
    end

Андрей писал(а): 1. Надо выделить диапазон (несколько) столбцов по их числовому, а не буквенному обозначению. Подыскал подходящий оператор, опробовал через макрос в Экселе - работает ! Вот он - Range(Columns(7), Columns(10)).SelectПереписываю в клашу - l:ole{'Range(Columns(7), Columns(10)).Select'} или еще так -l:ole{'ActiveSheet.Range(Columns(7), Columns(10)).Select'}- не работает ! ???

GetABC               PROCEDURE  (Column_)
XResult String(3)
  CODE
  If (Column_ > 0) and (Column_ < 16385)

     Column_ -= 1  
     Clear(XResult)

     Loop While Column_ >= 26
       XResult = Chr((Column_ % 26) + 65) & Clip(XResult)
       Column_ = Int(Column_ / 26) - 1
     end

     Return(Clip(Left(Chr(Column_+ 65) & Clip(XResult))))
  else
     Return('A')
  end

Прошу у кого такую связку можно проверить - 9.1.11497+Win 7 64+Excel 2010 - работает ли ?

Office 2010 is the first version of Office with a native 64 bit version, but by default, most users will be running the 32 bit version of Office 2010. The default setup for Office 2010 will install the 32 bit edition even on 64 bit systems so you can easily run older addins and VBA scripts for Office

Андрей писал(а): Не все корректные макросы отрабатываются через OLE ? В чем тут может быть дело ? Range(Columns(Col1), Columns(Col2))

"f:\Work\Отчеты\Отчет по услуге.xls"

Игорь Столяров писал(а):2. Попробуй мой код для открытия XLS файла, в качестве имени файла задай "c:\test.xls". Работает ?

Андрей писал(а):"f:\Work\Отчеты\Отчет по услуге.xls"