При попытке чтения xls файла созданного в 77 через табличный документ выдает ошибку:

ТабличныйДокумент.Прочитать(ИмяФайла);
по причине:
Ошибка при выполнении файловой операции  'D:\111\77.xls'

Как это г победить?

ещё пару раз запуусти, оно нервное, как блондинка

Хуже

Запускал, разрешения на файл крутил - нифига

(2) ой, всё, не трожь больше

еще полезные мысли будут?
или забить?

77 штатно сохраняет в кривом слегка формате, Экселем открыть и пересохранить с апгрейдом формата согласиться.

хреново, грузить нужно автоматом, на машине екселя вообще нет

(7) Выгрузка тоже автоматом? Пусть тот кто выгружает сначала проверит на кривизну.

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

(8)+ После сохранения из 77 проверит а оно открывается ли.

(5) Сохранять из 7.7 в mxl

А Прочитать() - это чьё? вроде у Йокселя такого нет (у ТабличногоДокумента в частности).

Формат файла ексель 5.0/95 - не читает 8 его похоже
Отправляют файл поставщики, он екселем открывается нормально, если сохранить в формате 97, то все гут.
С 95 форматом как быть интересно

(11) есть

У меня тут валяется прога одна, которая переделывает xls файлы,из 7.7 выгружаемые, из 1251 в UTF-8. Может поможет?

(14) Можно попробовать, она из 1с вызывается нормально?

(15) ну тупо в параметре имя файла и всё

могу на мыло кинуть

а. она даже формат меняет на xlsx

Ага, кинь пожайлуста

кинул. напиши работает или нет

Хорошо, спасибо

(20) Неа, не хочет

08.08.2016 13:35:32
Ошибка разбора XML:  - [1,160]
Фатальная ошибка:
Input is not proper UTF-8, indicate encoding !
Bytes: 0xF0 0xF3 0xE1 0x2E

(22) это кто такое пишет? 1С?

Да

(0) Кста я правильно понял что обмен электронными доками через формат XLS ?

Да, этот поставщик так присылает

(24) кидай свой файлик, подшаманю

мож там кодировка не 1251 или ещё чо

(28) Кинул

(26) Попроси DBF ))

Да фиг знает согласятся ли, да и с проблемой разобраться хочется, мало ли кто еще такие файлы зашлет

(31) Поставщики соглашаются все, некоторые просто "менеджеры не умеют сами" в отличие от "в формате эксель".
Мы своих уже приучили ))

Ну все же, если получится читать что есть, будет лучше. Иначе придется просить, да

отправил. правда у меня и в старом варианте читалось :(
пробовал в 1С:Предприятие 8.3 (8.3.8.1652)

Делаю
ТабДок.Прочитать("C:\temp\000\1.xlsx");
ТабДок.Записать("C:\temp\000\1.mxl");

в mxl файле столбцы снизу куда то съезжают нафиг :(
чей глюк непонятно. в OpenOffice всё красиво

(35) Спасибо, попозже пропробую, отпишусь

(34) Сейчас из 1с вообще виснет. Если мышой файл кинуть пишет:
an unhandled exception is occured $0043A26D
Exception: [TsSpreadBIFF5Reader.ReadFromFile] Reading of OLE document failed
$0043A26D
$00435D7B
$004018EF

(37) всё ОК. это он уже переделанный. он теперь в тот же файл сохраняет. т.е. он делает из 1.xls опять 1.xls

у меня в 1с читается нормально

А куда он результат кладет? В исходной папке его нет

этот 1.xls скармливай 1С

он прямо исходный файл переделывает

аа, сейчас попробую

(42) Во, спасибо, работает)
Только, если имя файла с пробелами, игнорирует его. Переименовывавать приходится, но это фигня.

(44) ну давай исправим и это

(45) Что за прога то?

(44) имя файла в ковычки помести :)

(46) это суперсекретная суперпрога

Дарю

uses
  Classes, SysUtils, LazUTF8, fpspreadsheet, fpsTypes, fpsUtils, xlsbiff5, xlsbiff8, LazFileUtils;
var
  MyWorkbook: TsWorkbook;
  MyWorksheet: TsWorksheet;
  InputFilename: string;
  S: string;
  CurCell: PCell;
begin
  InputFileName := ParamStr(1);
  if not FileExists(InputFileName) then begin
  Exit;
  end;
  MyWorkbook := TsWorkbook.Create;
  try
    MyWorkbook.Options := MyWorkbook.Options + [boReadFormulas];
    MyWorkbook.ReadFromFile(InputFilename, sfExcel5);
    MyWorksheet := MyWorkbook.GetFirstWorksheet;
    for CurCell in MyWorksheet.Cells do
    begin
      S := MyWorkSheet.ReadAsUTF8Text(CurCell^.Row, CurCell^.Col);
      CurCell^.UTF8StringValue:=AnsiToUtf8(S);
    end;
    //MyWorkbook.WriteToFile(ChangeFileExt(InputFilename,'.xlsx'),sfOOXML,True);
    MyWorkbook.WriteToFile(ChangeFileExt(InputFilename,'.xls'),sfExcel8,True);
  finally
    MyWorkbook.Free;
  end;
end.

(49) оформи уже в нативе вк и на ис копейка капать будет

(50) оформи

(51) Влом )) но наверно придется сделать нечто вроде для сервиса своего по парсингу накладных

(52) да на ИС есть вроде ВК для xls

(52) "сервиса своего по парсингу накладных"
это который с искусственным интеллектом? маню хочешь переплюнуть?

(54) Угу, но у меня не будет заточки на загрузку в типовые.
Просто из кривых прайсов/документов екселя или "любых таблиц" делает стандартную табличку по требуемому шаблону.

Грузить дальше чем хошь, хоть типовыми загрузками ТЧ ну или образцы обработок в комплекте

(55) дело хорошее, но без искусственного интеллекта тут точно не обойтись :)

я одним тут интернетчикам делал из биллингов книгу продаж. мля... они мне каждый раз разные xls файлы присылали и всегда колонки местами меняли. надеюсь, что они уже в аду.

(56) >они мне каждый раз разные xls файлы присылали и всегда колонки местами меняли.
Аналогично для решения этой траблы и ваяю "сервис"

>надеюсь, что они уже в аду
Ну зачем же так с будущими покупателям/клиентами?

(57) да я так, любя:)

Прошу не кидаться тапками.
А, часом, слэши не надо ль удваивать удобства чтения компом для?

D:\\111\\...

(59) а тоже знаешь фишку что слешем путь не испортишь ))