| View previous topic :: View next topic |
| Author |
Message |
Behemoth
Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
|
 Posted: 06 Oct 2005 16:16 Post subject: Открытие книги в Excel |
 |
|
Добрый день.
Не могу открыть файл Excel. Ругается на другой кодировке.
a1:='c:\книга1.xls'
oApp := CreateObject( "Excel.Application" )
oWorkBook:=oApp:WorkBooks:open(OemToAnsi(a1))
_________________
С уважением, Новиков Алексей. |
|
| Back to top |
|
 |
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 06 Oct 2005 16:23 Post subject: |
|
|
| Если не трудно - попробуйте название на английском файла плз, чтобы мне не сооружать тестовый приме |
|
| Back to top |
|
|
Behemoth
Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
|
| Posted: 06 Oct 2005 16:40 Post subject: |
|
|
Добрый день.
На самом деле имя такое
f:\reestr\Reestr0002489.xls
Может кавычки где прилепить?
_________________
С уважением, Новиков Алексей. |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 06 Oct 2005 17:01 Post subject: |
|
|
oWorkBook:=oApp:WorkBooks:Open(cFile)
В БЭСТе в текстовике на харборе так написан экспорт в excel и он работает
| Code: | IF EMPTY(cFile)
IF !EMPTY(aResultCol:=GetCheckPos())
cFile:=aResultCol[2]
ENDIF
IF !EMPTY(cFile:=InputFile(cFile,".xls")).AND.LASTKEY()!=K_ESC
SetCheckPos(0,{0},cFile)
cFile:=OemToAnsi(cFile)
ELSE
RETURN {}
ENDIF
ENDIF
cFile:=ALLTRIM(cFile) |
|
|
| Back to top |
|
|
Behemoth
Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
|
| Posted: 06 Oct 2005 17:24 Post subject: |
|
|
Добрый день.
Спасибо. Получилось.
А GetCheckPos() и SetCheckPos(0,{0},cFile) - это работа с последними введенными параметрам
_________________
С уважением, Новиков Алексей. |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 06 Oct 2005 17:37 Post subject: |
|
|
| А |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
