| |
|
|
| | По кнопельке в эксессе создается документ эксель. Если из проводника открыть его, не закрывая эксесс, то внутреннее содержимое не прорисовывается, наблюдаю внутри экселя либо рабочий стол, либо базу. чем лечить? | |
| |
| |
| |
|
|
| | а ты экземпляр Excel, используемый при создании файла закрыла.
типа Set переменная = Nothing | |
| |
| |
| |
|
|
| | не закрывала. да и к тому же я ж его уже ручками открываю. а он в панели задач светится (эксель), а видно только пункты меню и панель инструментов, а окно, где должна быть таблица, показывает мой рабочий стол.
чото видела про висибл=тру, только не поняла куда это вписать. (модуль не мой, с русимпорта) | |
| |
| |
| |
|
|
| |
Private appEx As Excel.Application
Public Function cntExport() As Boolean
Dim k As Long, n As Long, sFN As String
On Error GoTo L_Err
cntExport = True
Set appEx = New Excel.Application
appEx.Visible = False
With appEx
.Workbooks.Open App.Path & "\Templates\cntExport.xlt"
.Cells(1, 8).Value = frmContactExport.lvP.SelectedItem.ListSubItems(8)
.Cells(1, 9).Value = frmContactExport.lvP.SelectedItem.ListSubItems(9)
.Cells(1, 10).Value = frmContactExport.lvP.SelectedItem.ListSubItems(10)
End With
appEx.ActiveWindow.Zoom = 100
appEx.Visible = True
' If boPrint Then appEx.ActiveWorkbook.PrintOut , , bCopyNumber
' appEx.ActiveWorkbook.Close
' appEx.Quit
cntExport = False
L_Exit: Screen.MousePointer = vbDefault: Set appEx = Nothing: Exit Function
L_Err: MsgBox Err.Description & " (" & Err.NUMBER & ")", vbExclamation, "cntExport": GoTo L_Exit
End Function
|
| |
| |
| |
| |
|
|
| | Вот ещё тебе
Public xlaProd As Excel.Application
Public WrkBk As Excel.Workbook
Public WrkSht As Excel.Worksheet
Dim rngActive As Range, rngInput As Range
Dim row As Integer ' НОМЕР СТРОКИ
Dim col As Integer ' НОМЕР КОЛОНКИ
Public Function CreateSheet(VIHODNOJ_DOKUMENT As String, VHODNOJ_DOKUMENT As String, PUT_OTCHOTA)
Set WrkBk = CreateObject("Excel.Sheet")
Set xlaProd = WrkBk.Parent
If Dir(CurrentPath & "\Лого.bmp") <> "" Then
WrkBk.ActiveSheet.Pictures.Insert(CurrentPath & "\Лого.bmp").Select
Else
MsgBox "Рисунок отсутствует " & CurrentPath & "\Лого.bmp"
End If
If VHODNOJ_DOKUMENT = "Отчёт за месяц" Then ZA_MESAC
WrkBk.SaveAs (PUT_OTCHOTA & "\" & VIHODNOJ_DOKUMENT)
WrkBk.Close
xlaProd.Quit
If Dir(PUT_OTCHOTA & "\" & VIHODNOJ_DOKUMENT, vbDirectory) <> "" Then
MsgBox "Создан отчёт " & PUT_OTCHOTA & "\" & VIHODNOJ_DOKUMENT
Else
Call MsgBox("Документ " & VIHODNOJ_DOKUMENT & " не создан ", vbCritical)
End If
Set rngInput = Nothing
Set rngActive = Nothing
Set WrkSht = Nothing
Set WrkBk = Nothing
Set xlaProd = Nothing
End Function
|
| |
| |
| |
