| |
|
|
| | Добрый день, заполняю шаблон excel, хочу после сохранить:
Dim RecSet As DAO.Recordset
Dim xlApp As Object
Dim xlBook As Object
Dim SQL, nm As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add("D:\VCNG\Profiles\IvanovaMA\import\otch1pk.xlt")
....
nm = "D:\import\Отчет за " & Replace(дата.Value, ".", "-") & ".xls"
xlBook.ActiveWorkbook.SaveAs Filename = nm
на последней строке вылазит ошибка ((( что неправильно? | |
| |
| |
| |
|
|
| | 1. посмотреть в хелпе или в гугле как использовать :)
2. возможно xlBook.ActiveWorkbook.SaveAs Filename := nm | |
| |
| |
| |
|
|
| | п2. не помог, хэлп ничего е показывает ((( | |
| |
| |
| |
|
|
| | Насколько помню, при позднем связывании нельзя использовать именованные параметры
т.е.
call xlBook.ActiveWorkbook.SaveAs(nm) | |
| |
| |
| |
 18 Кб. |
|
| | ничего не выходит (((
посмотрите пример, может кто чего увидит в проге? | |
| |
| |
| |
|
|
| | Ошибка ушла после исправления строки:
xlBook.ActiveWorkbook.SaveAs Filename:=nm
на
xlBook.Application.ActiveWorkbook.SaveAs Filename:=nm | |
| |
| |
| |
|
|
| | >xlBook.Application.ActiveWorkbook.SaveAs Filename:=nm
У вас xlBook - ваш файл (рабочая книга).
Эта инструкция сохраняет вашу книгу: xlBook.SaveAs Filename:=nm
А то, что вы нагородили - работает тоже, но, как-то, через ж...  | |
| |
| |
| |
|
|
| | я еще только учусь, извиняйте  | |
| |
| |
