VBA: INSERT в xls через ADO

BeS Yara, приведите ещё сам код для создания файла.

Вопрос снимается - дело было не в бобине...

Другими словами, через Application.Excel пожалуйста, через ADO/DAO - только почитать.

Свою задачу решил через создание временной таблицы(мне вариант показался самым простым) с последующим экспортом её через имеющийся в Access механизм(знал бы о нём раньше - не узнал бы об ADOX, который может потом пригодиться). Примерно так:

Sub MkRep01()
    Dim strSQL As String
    strSQL = "IF EXISTS (SELECT * FROM tempdb.dbo.sysobjects WHERE id = OBJECT_ID('tempdb..##TMPTable')) DROP TABLE ##TMPTable " & _
            "CREATE TABLE ##TMPTable (" & _
            "[Order] varchar(10), " & _
            "[Year] smallint, " & _
            "[Month] smallint, " & _
            "inv_date datetime, " & _
            "Credit_Note bit, " & _
            "currency varchar(3), " & _
            "Amount money, " & _
            "Amount0 money, " & _
            "Amount1 money, " & _
            "OShort_Name nvarchar(50))"
    Dim cnn As New ADODB.Connection
        cnn.Open get_connection_string()
    Dim com As New ADODB.Command
        com.ActiveConnection = cnn
        com.CommandText = strSQL
    'создаём временную таблицу
    cnn.Execute (strSQL)
    strSQL = "INSERT INTO ##TMPTable " & _
            "SELECT TOP 100 PERCENT " & _
            "Prefix + RIGHT('000000' + CAST(Number AS VARCHAR), 6) AS [Order], " & _
            "[Year], " & _
            "[Month], " & _
            "Invoice_Date AS inv_date, " & _
            "Credit_Note, " & _
            "Currency_ID AS currency, " & _
            "Amount, " & _
            "Amount0, " & _
            "Amount1, " & _
            "OShort_Name " & _
            "FROM dbo.MR_Order_QRY WHERE Invoice_Date BETWEEN '" & Format(Me.DTPickerFrom.value, "yyyy-mm-dd") & "' AND '" & _
                                    Format(Me.DTPickerTo.value, "yyyy-mm-dd") & "' ORDER BY Invoice_Date"
    'заполняем временную таблицу
    cnn.Execute (strSQL)
    'экспортируем данные из временной таблицы  в эксель
    If Me.chkOpenInExcel.value = 0 Then
            DoCmd.OutputTo acOutputTable, "##TMPTable", acSpreadsheetTypeExcel8, Me.txtFilePath.value, False
        Else
            DoCmd.OutputTo acOutputTable, "##TMPTable", acSpreadsheetTypeExcel8, Me.txtFilePath.value, True
    End If
End Sub

Проверил, работает и без установленного офиса, что мне и требовалось.

Да, помучился .
С другой стороны наткнулся на ADOX - в ряде случаев может оказаться очень полезным, для вывода данных из БД, например.

Если кому-то пригодится, вот мини-реферат который я для себя сделал(пример создания и заполнения таблицы есть в третьем посте):
______________________________________________________________________

"Microsoft ADO Ext. 2.8 for DDL and Security" aka ADOX.

Является надстройкой над ADO. Помимо прочих интересных возможностей, даёт возможность создать файл xls в отсутствии установленного MS Office.

При этом имеются ограничения:

- .Create для XLS не работает(выдаёт ошибку), т.к. не бывает пустых рабочих книг. Новую рабочую книгу можно создать только вместе с листом(пример для VBA - "How To Use ADOX with Excel Data from Visual Basic or VBA" [Creating Columns When Creating a Table]). Пустой MDB создаёт без проблем.
- Число типов данных ограничено(для Excel), хотя и достаточно(kb303814:ADO Data Types Used with Excel):
           adDouble, type 5
           adDate, type 7
           adCurrency, type 6
           adBoolean, type 11
           adVarWChar, type 202 [строка в Юникоде длиной в 255 символов (DT_WSTR)]
           adLongVarWChar ("memo"), type 203 [текстовый поток в Юникоде (DT_NTEXT)]
- Текстовые поля в колонки созданные через ADOX начинаются с апострофа('). На работу с полем из VBA похоже не влияет.
- Формулу добавленная в ячейку будет всего лишь строкой. Превратить текст в фомулу минуя ExcelApplication видимо не удастся. При этом для "родного" файла Excel достаточно переввести формулу средствами Excel, а для файла созданного через ADOX придётся ещё и апостроф убирать(из макроса достаточно переприсвоить значение, т.к. апостраф там не виден: Selection.Value = Selection.Value).

Есть несколько способов обратиться к таблицам в файле XLS (Пример использования технологии ADO для чтения и записи данных в книге Excel):
-Имя листа, а затем знак доллара (например, [Лист1$] или [Мой лист$]). Книги таблицы, на который ссылается таким образом состоит из всего используемого диапазона листа.
           oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
- Используйте диапазон с определенным именем (например, ["Table1"]).
           oRS.Open "Select * from Table1", oConn, adOpenStatic
- Использовать диапазон с конкретного адреса (например, [Лист1$ A1: B10]).
           oRS.Open "Select * from [Sheet1$A1:B10]", oConn, adOpenStatic

Итого: формулы, форматирование, сложные отчёт - для этого потребуется один из офисов, для вывода данных(с названием колонок или без) в формат XLS на компьютере где отсутствует Microsoft Office вполне можно воспользоваться ADOX. Полученный файл корректно открывается и в OOo.

______________________________________________________________________
Имеются и другие возможности(например по части задания прав доступа), которые в данный момент мне не актуальны, потому не упомянуты особо.
P.S. А тэга для оформления списков в движке форума нет, или я плохи искал?

Благодарю. Постараюсь подытожить самое полезное(с моей точки зрения) не забыв о прочих возможностях .

Эх, тоже в своё время попался на этом.
Пришлось установить excel'чик и msdasql.

Доступ к файлам Excel 97-2003 при установленном excel'е возможен так:

var myFileFullPath = ...;
...
var objConnection = new ActiveXObject("ADODB.Connection");
objConnection.ConnectionString = 
   "Provider=MSDASQL;Driver={Microsoft Excel Driver (*.xls)};DefaultDir=" + 
   myFileFullPath.substring(0, myFileFullPath.lastIndexOf("\\")) + 
   ";DBQ=" +
   myFileFullPath +
   ";ReadOnly=0;FirstRowHasNames=1;";
...
objConnection.Open();

При этом, если открыть файл в excel'е, процесс изменения данных в файле можно параллельно/одновременно наблюдать в окне excel'я.
Иногда очень эффектно получается

А зачем без?

Ах вон Вы про что… Строка соединения нужна для чего: для SQL Server или для Excel?

Без строки подключения работать не будет — иначе откуда он возьмёт информацию, куда и как подключаться.

Вы, наверное, хотели сказать — чтобы работало без необходимости создания источника DSN?

пользуйте оле, оно при наличие офиса на порядок быстрее - оспаривайте.

Из Excel можно связываться с SQL-сервером через ADODB. Создаём подключение, подключаемся, выполняем запрос - получаем recordset. По рекордсету проходим, и на основании этих данных заполняем отчёт в экселе.

Примеры можно поискать по форуму("ADODB.Connection"), можно посмотреть в MSDN(ADO Code Examples VBScript). Строка подключения будет прописана непосредственно в экселевском файле, и не будет нужды ходить по 300 рабочим местам. Пример строк подключения к различным источникам можно посмотреть на www.connectionstrings.com(или в MSDN ).

Под рукой примеров работы в vba из SQL в Excel нет, обычно в обратном порядке и на vbscript. Соорудил из подручных материалов пример на vbscript(надеюсь не слишком сырой):

Dim oConn, oRecordset
Set oConn = CreateObject("ADODB.Connection")
ConnectString = "Provider=SQLOLEDB;Data Source=" & ServerName & ";Initial Catalog=" & dbName & ";UID=" & user & ";PWD=" & pass
oConn.ConnectionString = ConnectString
oConn.ConnectionTimeOut = 15
oConn.CommandTimeout = 30
oConn.Open
Dim strSQL
'1. запрашиваем track_id из track по TIR
strSQL = "SELECT TOP 100 PERCENT track_id FROM track WHERE TIR LIKE '%" & TIR & "%'"
On Error Resume Next ' не останавливаемся на ошибках
Set oRecordset = oConn.Execute(strSQL)
If oConn.Errors.Count > 0  Then
      Dim E
      For Each E In oConn.Errors
        wscript.echo "При выполнении запроса возникла ошибка: " & E.Description
      Next
End If
If oRecordset.EOF Then
    wscript.echo "нифига нету"
  Else
    wscript.echo "получены данные"
    Do Until oRecordset.EOF
        'работаем с записью, обрабатываем возможные ошибки
        oRecordset.MoveNext
    Loop
End If
On Error Goto 0
oConn.Close
Set oConn = Nothing
Set oRecordset = Nothing

Попозже, если время будет, сделаю для vba.
P.S. два косяка уже нашел(копипаста ). Лучше подождать vba варианта.