Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
nataxa23
Member

Откуда:
Сообщений: 191
Данная тема обсуждалась уже несколько раз. Однако явного ответа я так и не нашла.
Кто-нибудь нашел способ как избавиться от ошибки № 462?
Все что было описано в теме тут:
Проблема с CopyFromRecordset при выгрузке в exel / Microsoft Access / Sql.ru
Один в один моя ситуация. Помогите добраться до сути.
+ Код

Private Sub ExportToExcel()
  Dim rst As Recordset
  Dim strSQL As String
  Dim strPath As String
  Dim xlApp As Excel.Application
  Dim xlWb As Excel.Workbook
  Dim xlWs As Excel.Worksheet
  Dim i As Integer, CountColumn As Integer
  
  Dim lngLastRow As Long
  Dim lngLastColumn As Long

On Error GoTo ErrNumber
  If (strWHERE = "") Or (strWHERE = "КодЗаявки Is Null") Then
    MsgBox "Нет ни одного критерия для экспорта данных.", vbInformation + vbOKOnly, "Info"
    Exit Sub
  Else
    strSQL = "SELECT * FROM звПоиск WHERE " & strWHERE
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Add
    Set xlWs = xlWb.Worksheets(1)
    Set rst = CurrentDb.OpenRecordset(strSQL)
    CountColumn = rst.Fields.Count 'Узнаем количество колонок в Recordset
    For i = 0 To CountColumn - 1
      xlWs.Range("A1").Offset(0, i).Value = rst.Fields(i).Name
      xlWs.Rows(1).WrapText = False 'Перенос по словам
'Выравнивание
      xlWs.Rows(1).HorizontalAlignment = xlCenter
      xlWs.Rows(1).VerticalAlignment = xlCenter
      xlWs.Rows(1).Interior.ColorIndex = 15 'Цвет фона
    Next i
    xlWs.Range("A2").CopyFromRecordset rst 'экспорт запроса в excel
    rst.Close
    
    xlWs.Range("A1:A1").Select
    lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка
    lngLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    xlWs.Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn)).WrapText = False
'удаляем лишние листы в книге
    If xlWb.Sheets.Count > 1 Then
      For Each xlWs In xlWb.Worksheets
        If xlWs.Index <> 1 Then
          xlWs.Delete
        End If
      Next
    End If
'    strPath = GetUserDesktop
'    strPath = CurrentProject.Path & "\Отчет " & Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh-mm-ss") & ".xls"
'    xlWs.SaveAs strPath
    xlApp.visible = True
  End If
ExitHeare:
  Set rst = Nothing
  Set xlWs = Nothing
  Set xlWb = Nothing
  Set xlApp = Nothing
Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox Err.Description, , _
      "№ " & Err.Number & ". Процедура: ExportToExcel. Форма: " & Me.Name
    Resume ExitHeare
  End If
End Sub


___________________________________
Использую Microsoft Access 2010, 64 бит.

Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.
13 окт 18, 20:16    [21703392]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
Cells висячая.
13 окт 18, 20:29    [21703395]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
Rows тоже.
13 окт 18, 20:35    [21703398]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
court
Member

Откуда:
Сообщений: 1859
columns тоже :)
13 окт 18, 20:40    [21703400]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
Это уже на следующей строчке. Я до нее еще не добрался. :)
13 окт 18, 20:45    [21703403]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
nataxa23
Member

Откуда:
Сообщений: 191
Predeclared
Cells висячая.

Predeclared
Rows тоже.

court
columns тоже :)

Вы имеете в виду кусок кода:
    xlWs.Range("A1:A1").Select
    lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка
    lngLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    xlWs.Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn)).WrapText = False

вместо него этот:
    xlWs.Range("A1:A1").Select
    lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка
    lngLastColumn = xlWs.Cells(1, Columns.Count).End(xlToLeft).Column
    xlWs.Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn)).WrapText = False

Ровным счетом ничего не меняется, ошибка как была так и остается.
Самое главное, что дествительно как у автора в теме которую я указала, срабатывает только 1 раз нормально, но стоит сделать повторно возникает ошибка.
В диспетчере задач после закрытия файла, остается висеть запущенное приложение Excel. Вот это я вообще не втыкаю как так то???
13 окт 18, 21:09    [21703410]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
nataxa23,
Везде исправь, а не в одном месте.
13 окт 18, 21:26    [21703413]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
nataxa23
Member

Откуда:
Сообщений: 191
Predeclared
Везде исправь, а не в одном месте.

А где еще то? Тыкните пальцем, а то я не втыкаю что то.
13 окт 18, 21:30    [21703414]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка

и далее везде
13 окт 18, 21:33    [21703415]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
И константы EXCEL либо описать нужно, либо заменить их значениями.
13 окт 18, 21:34    [21703418]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка
13 окт 18, 21:34    [21703421]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
nataxa23
Member

Откуда:
Сообщений: 191
Predeclared
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка
и далее везде

ну да нашла уже, спс.
Predeclared
И константы EXCEL либо описать нужно, либо заменить их значениями.
Predeclared
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка


не поняла, как описать?
13 окт 18, 21:40    [21703424]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 918
Const xlUp As Long = посмотреть значение в Excel
13 окт 18, 21:42    [21703426]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка N 462: The remote server machine does not exist or is unavailable  [new]
nataxa23
Member

Откуда:
Сообщений: 191
Predeclared,

Спасибо большое, заработало.
13 окт 18, 22:02    [21703432]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить