Такое дело... Мне надо открыть файл Excel'a.
у меня на форме лежит Spreadsheet. Я могу сохранять таблицу в .xls и смотреть ее в MSEXCEL, но вот беда открыть этот (.xls) я уже немогу! все что мне удалось это найти LoadText... больше возможностей для открытия я ненашел 8(
Я в отчаянии...

Добрый день всем!

Kerrion, привет! Я много занимаюсь данным вопросом: вот тебе мой код:

Код

Option Explicit Dim adoConnection As ADODB.Connection Dim adoRecordset As ADODB.Recordset Dim connectString As String Dim objExcel As Object Dim objTemp As Object

и еще:

Код

Private Sub mnuIKniga_Click() On Error Resume Next Dim iIndx As Integer Dim iRowIndex As Integer Dim iColIndex As Integer Dim iRecordCount As Integer Dim iFieldCount As Integer Dim sMessage As String Dim avRows As Variant Dim excelVersion As Integer Dim sSqlString As String Set adoConnection = New ADODB.Connection Set adoRecordset = New ADODB.Recordset connectString = "Provider=Microsoft.Jet.OLEDB.3.51;" _                  & "Data Source=" & gDataBaseName  '(путь к БД у меня например gDataBaseName = "C:\BIBLIOTEKA\BDanny\Bibliot.mdb") sSqlString = "SELECT DatZap, InventNumber, " & _         "(Autor & ' ' & Title) AS Imy,  " & _         "DatPubl, Zena, " & _         "Autor1, PodRed, InventNumber2, NumbPost" & _         "FROM Titles WHERE InventNumber =" & Text2.Text adoConnection.Open connectString adoRecordset.CursorLocation = adUseClient adoRecordset.Open sSqlString, adoConnection '-- Read all of the records into our array avRows = adoRecordset.GetRows() ' '-- Determine how many fields and records iRecordCount = UBound(avRows, 2) + 1 iFieldCount = UBound(avRows, 1) + 1 '-- Create reference variable for the spreadsheet Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open (App.Path & "\Document\KatalogKniga") 'если "objExcel.Workbooks.Add", то откроет новый файл  '-- We need this line to insure Excel remains visible if we switch Set objTemp = objExcel excelVersion = Val(objExcel.Application.Version) If (excelVersion >= 8) Then  Set objExcel = objExcel.ActiveSheet End If '-- Place the names of the fields as column headers -- iRowIndex = 1 iColIndex = 1 For iColIndex = 1 To iFieldCount   With objExcel.Cells(iRowIndex, iColIndex)      .Value = adoRecordset.Fields(iColIndex - 1).Name      With .Font        .Name = "Arial"        .Bold = True        .Size = 9      End With   End With Next '-- Just add data -- With objExcel   For iRowIndex = 2 To iRecordCount + 1    For iColIndex = 1 To iFieldCount     .Cells(iRowIndex, iColIndex).Value = avRows(iColIndex - 1, iRowIndex - 2)    Next   Next End With objExcel.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit End Sub

Что делаю:
Из БД Access выбираю запись согласно инвентарного номера (Text2.Text),
Открываю xls.файл, который указан в App.(путь)
и данные вставляю на первый лист.
Данный код не я придумал, а где-то нашел и вот пользуюсь. Если кто поправит что, то с удовольствием и я воспользуюсь.
А вот еще один:

Код

Dim objExcel As Object Private Sub Command1_Click()       Dim myXl       Dim XL     Set myXl = CreateObject("Excel.Application")    Set XL = myXl.Workbooks.Open(App.Path & "\Doc\ProtokolDop.xls")        Set objExcel = myXl objExcel.Visible = True   End Sub

С уважением

Это сообщение отредактировал(а) Flotskiy - 21.3.2005, 09:33

Вопрос примерно на эту же тему.

Выдираю данные из базы и вывожу их в объект excel.

(пример)
sheet.cells(o_count, 1) = rs!ab_typ_abon
sheet.cells(o_count, 2) = rs!operator

У меня выгружаются длинные текстовые строки из цифр - инвентарные номера, примерно 15-20 цифр, и при занесении в ячейку эксела они автоматом преобразуются в формат с плавающей запятой, то есть дробь, помноженая на 10 в какой то степени, так как формат ячеек ставится в объекте эксел по умолчанию как общий.

Как указать из VB, что формат ячейки должен быть не общий а текстовый?

Добрый день всем!
jen,

Цитата

Как указать из VB, что формат ячейки должен быть не общий а текстовый?

это я не знаю, а свои данные загоняю в готовый файл.xls, где колонки заранее отформатированы
Может кто ответит на твой вопрос, я тоже с удовольствием приму на вооружение.
С приветом

Цитата

Как указать из VB, что формат ячейки должен быть не общий а текстовый?

Код

.Cells(iRowIndex, iColIndex).NumberFormat = "@"

Добрый день всем!

Naghual
Спасибо за подсказку, если можно, то еще на такой вопрос:
в xls-файл в первую колонку отсылаются значения "дата",
во вторую - числовые,
в третью - денежные,
в четвертую - процентные.
Как в коде это записать?
Всего доброго, с уважением

Код

'в первую колонку отсылаются значения "дата"         .Columns(1).NumberFormat = "dd/mm/yy"         'во вторую - числовые         .Columns(2).NumberFormat = "0.00"         'в третью - денежные         .Columns(3).NumberFormat = "#,##0.00$"         'в четвертую - процентные         .Columns(4).NumberFormat = "0.00%"

Naghual, благодарю за помощь.
Всего доброго.
С уважением