0

Access 2016. подключаюсь к Excel

Private Sub btnFile_Click()
Dim appExcel As Object
Dim a as range
Dim wbk As Variant 'Excel.Workbook
Dim wks As Variant 'Excel.Worksheet
Set appExcel = CreateObject("Excel.Application")
Set wbk = appExcel.Workbooks.Add
Set wks = wbk.Sheets.Add(After:=wbk.Sheets(wbk.Sheets.Count))
Set wks = wbk.Sheets("Bilans")
With wks
For col = 2 To 5
        Set a = wks.Range("B" & col & ":Y" & col)
       maxValue = appExcel.WorksheetFunction.Max(a)
       avgValue = appExcel.WorksheetFunction.Average(a)
       a.Replace What:=maxValue, _ 
       replacement:=Replace(CDbl(avgValue), ".", ","), LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, MatchCase:=False
Next col

на моменте a.Replaceполучаю ошибку: Named argument not found Как пофиксить?

upd

Private Sub btnFile_Click()
Dim appExcel As Excel.Application
Dim a as range
Dim wbk As Excel.Workbook
Dim wks As Excel.Worksheet
Set appExcel = New Excel.Application
Set wbk = appExcel.Workbooks.Add
Set wks = wbk.Sheets.Add(After:=wbk.Sheets(wbk.Sheets.Count))

на wbk.Sheets.Countошибка Method or data member not found.

Что смущает, так это то что месяц назад база работала.

4
  • может не replacement а Replacement?
    – Sublihim
    17 мар 2017 в 8:26
  • Имена именованных параметров регистронезависимы.
    – Akina
    17 мар 2017 в 8:27
  • @Akina точно! В VBA же регистронезависимость)
    – Sublihim
    17 мар 2017 в 8:29
  • Проходить код пошагово (F8) и смотреть значения переменных. 29 мар 2020 в 11:53

2 ответа 2

0

Вы используете позднее связывание. При этом именованные константы недоступны. Определите их на уровне модуля/процедуры, либо используйте их численные значения. Или перейдите на раннее связывание.

UPD:

на wbk.Sheets.Count ошибка Method or data member not found

Ну если учесть, что индексация идёт с нуля, то в книге из, скажем, 3 листов, они имеют индексы 0, 1 и 2, и искать лист с индексом 3 несколько самонадеянно...

4
  • Не сработало. В чем я допустил ошибку? 17 мар 2017 в 10:33
  • Проблема не в количестве листов. !imgshare.free.fr/uploads/a608cea7b2.png 17 мар 2017 в 11:36
  • Проверьте референсы. Проверьте наличие и целостность структуры через браузер объектов. В режиме отладки проверьте, что лежит в объектных переменных. И следовало бы делать скриншот так, чтобы были видны дефиниции переменных... а ещё лучше оформить минимальный код в виде отдельной процедуры. Заодно посмотрите в процессах на поведение хост-процесса Excel.
    – Akina
    17 мар 2017 в 11:52
  • @Akina, индексация идёт с нуля - проверяем:в Excel (в книге 3 листа, n = 3): n = ThisWorkbook.Sheets.Count: Debug.Print ThisWorkbook.Sheets(n).Name, или Debug.Print ThisWorkbook.Sheets(0).Name (ошибка). в Access по-другому? 29 мар 2020 в 11:47
0

Проблема возникла в Access2016 после последнего обновления. В предыдущих версиях все работает как запрограммировано. Не знаю окончательное ли решение или же через время опять не будет работать, но сейчас отрабатывает нормально после выноса кода с обработчика нажатия кнопки модуля формы в отдельный модуль.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.