powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сделать формат ячийки Excel финансовым из VFP
7 сообщений из 7, страница 1 из 1
Сделать формат ячийки Excel финансовым из VFP
    #35094025
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как правильно перевести формат ячейки Excel в финансовый вид без названия денежных единиц???

Знаю что чтобы перевести в текстовый нужно написать:

Код: plaintext
XLApp.columns( 5 ).NumberFormat = "@"

При переводе в финансовый, без названия денежных единиц, макрос Excel выдает следующее:

Код: plaintext
1.
Range("E41").Select
Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"

Пишу вот так, выдает синтаксическую ошибку при компиляции:

Код: plaintext
XLApp.columns( 5 ).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"

Пользовался поиском ответа не нашел.
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35094030
Galyamov Rinat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> XLApp.columns(5).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(*
> ""-""??_);_(@_)"
У тебя XLApp.columns(5).NumberFormat = "Строка1"-"Строка2"

Естественно ошибка


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35094087
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Galyamov Rinat

> XLApp.columns(5).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(*
> ""-""??_);_(@_)"
У тебя XLApp.columns(5).NumberFormat = "Строка1"-"Строка2"

Естественно ошибка


Posted via ActualForum NNTP Server 1.4

Сори ничего не понял. Я просто брал раньше макросы выдаваемые екселем и вставлял в прогу, почему для финансового формата он выдает не правильно? Укажите пожалуйста, а как надо правильно написать, чтобы все заработало.
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35094193
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
[ 455555 """""" '''']


text to ... noshow prete  15 
     455555 """""" ''''
endtext


попробуйте один из предл-х вариантов
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35094205
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да причем тут Эксел - если у вас просто неправильно сформирована строка.
У вас одни кавычки внутри других а фокс такого не понимает
если у вас в строке есть кавычки , то "наружные" должны быть другими

Код: plaintext
1.
XLApp.columns( 5 ).NumberFormat = '_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)'
XLApp.columns( 5 ).NumberFormat = [_(* #,## 0 .00_);_(* (#,## 0 . 00 );_(* ""-""??_);_(@_)]
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35094812
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня вот так, все работает нормально :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
* Создаем объект Excel
LOCAL loExcel as Excel.Application 
loExcel=CREATEOBJECT('Excel.Application')
* Создаем в нем новую рабочую книгу
LOCAL loBook as Excel.Workbook 
#DEFINE xlWBATWorksheet - 4167 
loBook = m.loExcel.workbooks.Add(xlWBATWorksheet)
* Создаем ссылку на новый лист в рабочей книге
LOCAL loSheet as Excel.Worksheet 
loSheet = m.loBook.Sheets( 1 )
* Заносим шапку таблицы
m.loSheet.cells( 2 ,  1 ).value='Кол-во'
*Устанавливаем шрифт и его размер для шапки таблицы
WITH m.loSheet.Range("A2:E2").Font
    .Name = "Arial Cyr"
    .Size =  8 
    .Bold = .T.
ENDWITH 
*Устанавливаем выравнивание данных
WITH m.loSheet.Range("A2:E2")
    .HorizontalAlignment =  3  &&Center
    .VerticalAlignment =  2  && Center
    .WrapText = .T. &&Переносить по словам
ENDWITH 
*Изменяем ширину колонок
m.loSheet.Columns( 3 ).ColumnWidth =  10 
m.loSheet.Columns( 3 ).NumberFormat = "0.000"
m.loSheet.Columns( 4 ).ColumnWidth =  14 
m.loSheet.Columns( 4 ).NumberFormat = "#,##0.00"
m.loSheet.Columns( 5 ).ColumnWidth =  14 
m.loSheet.Columns( 5 ).NumberFormat = '_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)'
...
Рейтинг: 0 / 0
Сделать формат ячийки Excel финансовым из VFP
    #35095263
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем спасибо. -=AlexiS=- оказался прав . Тема закрыта.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сделать формат ячийки Excel финансовым из VFP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]