Общие вопросы > Разработка приложений
СОХРАНЕНИЕ в excel. И НЕ ТОЛЬКО! БЛИН, ЗУМУЧИЛ ОН МЯ!!!
Sergey_st85:
Админы, я очень прошу разрешить мне ругаться матом в этом форуме. Это НЕРЕАЛЬНО.
Формат сохраняется хорошо только тогда, когда делаешь так:
xl.Workbooks(1).saveas Left(filepath,Len(filepath)-1) , -4143
первый нонсенс: БЕЗ СКОБОК. Второй - именно МИНУС 4143. Что за ПИИП - я так и не понял. Но формат XLS держит.
Sergey_st85:
Причем именно saveAS, потому что обычный сейв не терпит параметров.
Sergey_st85:
Четкий текст создания док-та экселя и уУСПЕШНОГО сохранения.
Open filePath For Output As #FH
Сlose #fh ' - важно создать файл, если его нет, иначе метода OPEN не сработает.
Dim xl As Variant, xlWorksheet As Variant,xlworkbook As Variant
Set xl= CreateObject("Excel.Application")
xl.Workbooks.open(filepath) ' Важно, чтобы файл был с 4-значным расширением: XLS и ещё к-н символ.
xl.visible =False
Set xlWorkbook = xl.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(1)
' Мучаем ячейки, форматируя их и вставляя информацию по вашим счетам за интернет.
'Корректно сохраняем и вырубаем это чудовище Билли Гейтса.
xl.Workbooks(1).saveas Left(filepath,Len(filepath)-1) , -4143 ' Сохранит именно XLS.
xl.Workbooks(1).close
xl.Quit ' KILL HIM!!!
Sergey_st85:
Примеры разные.
' Мучаем ячейки, форматируя их и вставляя информацию по вашим счетам за интернет.
'.cells(1,1)="Выгруженные сотрудники из базы " & {"} & "Сотрудники Группы" &{"} & "."
' .Cells(3,1).Font.Bold = True
' .Cells(3,7).Font.colorindex = 10 'Зеленый.
' .Cells(ii,1).Font.colorindex = 3 ' Красный.
' .Cells(ii,1).Font.Underline = True 'Подчеркнуть.
xl.ActiveSheet.Range("A1").Select ' Если у вас несколько листов или очень длинная страница - лучше сделать это.
Sergey_st85:
ss1="A" & ii & {:} & "F" & ii ' Выделить диапазон
.Range(ss1).Merge 'Склеить
.range(ss1).HorizontalAlignment=1
.range(ss1).NumberFormat="@" 'Сделать формат... текстовым?
Навигация
Перейти к полной версии