| |
|
|
| | есть ли универсальный путь экспорта отчетов в документ WORD??? | |
| |
| |
| |
|
|
| | А что это значит "универсальный путь" ? | |
| |
| |
| |
автор: Andrew (05.10.2006 в 14:47) |
|
| | Я спросил и мне показали вот здесь вопрос и там же ответ
http://hiprog.com/forum/read.php?id_forum=1&id_theme=506&page=2
работает для екселя - но думаю если хорошенько подумать то и вворд можно перетянуть | |
| |
| |
| |
|
|
| | у меня почему то при запуске кода, появляется сообщение
Compiler error: Can't find project or library.
и маркируется строка: Dim xlApp As Excel.Application
как мне поступить? | |
| |
| |
| |
|
|
| | как я из форума понял, ты хочешь переделать код под ВОРД.
а ты код выставишь на форуме?
плиз | |
| |
| |
| |
|
|
| | вот может поможет
Подключение:
Dim ObjWord As Word.Application
Dim rpt As Word.Document
Set ObjWord = New Word.Application ' Подключаем Word
If ObjWord Is Nothing Then ' Проверка наличия его на компутере
MsgBox "MS Word 8.0 is not installed on your computer"
End If
Открытие шаблона:
Set rpt = ObjWord.Documents.Add("C:\gde-to tam\shablon.dot", False, , True) | |
| |
| |
| |
|
|
| | или вот ещё
Public Function OutFile(strSQL As String, Optional strFileName _
As String = "", _
Optional strDelimeter As String = ";", _
Optional NeedHead As Boolean = True) As Boolean
' strSQL - строка SQL или имя таблицы/запроса для записи в файл (обяз)
' strFileName - полное имя файла (не обяз)
' strDelimeter - разделитель полей (не обяз)
' NeedHead - с именами полей или без (не обяз)
'Error-handler inserted on 25.09.2004 at 09:20 by Dedushev M.N.
On Error GoTo OutFile_Error
Dim rst As DAO.Recordset, hFile As Long
Dim i As Integer, n As Integer, strText As String
If Len(strFileName) = 0 Then
strFileName = "C:\Access\d word\еуче.doc" ' по умолчанию
' Lыш цх strFileName = CurrentProject.Path & "\outfile.txt"
End If
Set rst = CurrentDb.OpenRecordset(strSQL)
strText = ""
' Формирование строки заголовка таблицы
With rst
For i = 0 To .Fields.Count - 1
strText = strText & Chr(34) & .Fields(i).Name _
& Chr(34) & strDelimeter
Next i
hFile = FreeFile
' Запись в файл
Open strFileName For Output Access Write As hFile
If NeedHead Then Print #hFile, _
Left(strText, Len(strText) - 1)
' Формирование строк таблицы
Do Until rst.EOF
strText = ""
For i = 0 To .Fields.Count - 1
strText = strText & Chr(34) & .Fields(i).Value _
& Chr(34) & strDelimeter
Next i
Print #hFile, Left(strText, Len(strText) - 1)
.MoveNext
Loop
Close hFile
.Close
End With
' Проверка наличия записанного файла
If Dir(strFileName) <> "" Then OutFile = True
OutFile_Exit:
Exit Function
OutFile_Error:
MsgBox "Непредвиденная разработчиком ошибка - " & Err.Number & _
vbCrLf & vbCrLf & Error$, vbExclamation
Resume OutFile_Exit
End Function
 | |
| |
| |
