VPF::vba навигация по excel листу - Форум программистов

delphi_

Дата 3.1.2011, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

вопрос - я экспортирую данные из outlook (определённые поля писем)

примерно так

Код


  Set xlApp = GetObject(, "Excel.Application")
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim Selecttion_ As Outlook.Selection
    

    On Error Resume Next
    
    
    Set myOlExp = myOlApp.ActiveExplorer
    Set Selecttion_ = myOlExp.Selection
    
    For Each myItem In Selecttion_
    
    
    
     xlApp.[A1] = myItem.To
     xlApp.[B1] = myItem.Body
     xlApp.[C1] = myItem.Sent
     xlApp.[D1] = myItem.123

как видно этот код изменяет результат ячеек

как мне сделать так,чтобы экспорт велся в текущую выделенную строку?

допустим,я выделил курсором ячейку a10...или d10...или вообще какую-либо на 10 строке

то есть вместо a1 в a10
вместо b1 в b10 и так далее

delphi_

Дата 4.1.2011, 03:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

чет у меня монологи какие-то в последнее время
проблема решена smile

может кому и надо

Код


Sub MyFirstMacros()

Set xlApp = GetObject(, "Excel.Application")


Dim myItems As Object, myItem As Object, myAttachments As Object, myAttachment As Object
Dim myOrt As String, myOlApp As New Outlook.Application, myOlExp As Outlook.Explorer
Dim Selecttion_ As Outlook.Selection
Dim bodyarray() As String
Dim timearray() As String



On Error Resume Next

Set myOlExp = myOlApp.ActiveExplorer
Set Selecttion_ = myOlExp.Selection

Dim sh As Object, NextRow As Object
Set sh = xlApp.ActiveSheet ' активный лист Excel

'for all items do...
For Each myItem In Selecttion_



bodyarray = Split(myItem.body, vbNewLine)
timearray = Split(myItem.SentOn, " ")

Set NextRow = sh.Range("B" & sh.Rows.Count).End(-4162).Offset(1) ' первая незаполненная ячейка в столбце C

Dim body, time, fullbody As String



body = bodyarray(0)
time = timearray(1)
fullbody = body & " " & "Письмо: " & myItem.To & " " & myItem.CC

NextRow.Resize(, 4).Value = Array(time, time, myItem.Subject, fullbody)
body = Nothing
time = Nothing
Next



Set myItems = Nothing: Set myItem = Nothing
Set myAttachments = Nothing: Set myAttachment = Nothing
Set myOlApp = Nothing: Set myOlExp = Nothing: Set Selecttion_ = Nothing
End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »