| |
|
|
| | Доброго времени суток
где-то видел на форме что обсуждалось
и найти не могу
подкиньте ссылку пожалуйста
или функцию
накололся на
DoCmd.OutputTo acQuery ..........."MicrosoftExcelBiff8(*.xls)"
вот это "MicrosoftExcelBiff8(*.xls)" почему-то под 2007 офисом выводит абракадабру
там надо другое значение
выход вижу в определении версии офиса и в установке нужного значения
Заранее спасибо | |
| |
| |
| |
|
|
| |
Sub test()
Dim x As Access.Application
Set x = CreateObject("Access.Application")
MsgBox x.Version
x.Quit
Set x = Nothing
End Sub
|
| |
| |
| |
|
|
| |
|
|
| |
Dim sVer as string
sVer = Application.Version
If Val(sVer) = 11 Then 'A2003
...
ElseIf Val(sVer) = 12 Then 'A2007
...
Else
...
End If
|
| |
| |
| |
| |
|
|
| |
If SysCmd(acSysCmdAccessVer) = "12.0" Then'2007
|
| |
| |
| |
