0 голосов
спросил от в категории VBNET
Документация для этого предоставляется внутри Office Interop, следуйте по ссылке для метода «Добавить».
xlSheet.Hyperlinks.Add(xlSheet.cells(row_max + 1, col_min + 12), TextBox9.Text)
#


Этот пример основан на «column12», который заполняется из «TextBox9». U
xlSheet.Hyperlinks.Add(xlSheet.cells(row_max + 1, col_min + 12), TextBox9.Text)

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
0 голосов
ответил от
Открытый класс Form2

Dim row_min As Object
Dim row_max As Object
Dim col_min As Object
Dim col_max As Object
Dim value1 As Integer
Dim value2 As Integer Закрытая Sub Form11_Load (отправитель как объект , e As EventArgs) Обрабатывает MyBase.Load

End Sub

Частная Sub Button1_Click (отправитель как объект, e As EventArgs ) Ручки Button1.Click
Dim xlApp=GetObject (""," Excel.Application")
Dim xlBook=xlApp.Workbooks.Open ("G: Plantwide DataMobile Fleet StatusMobile Equipment Downtime ReportDowntime ReportMobile Equipment Downtime и Cost.xls" )
Dim xlSheet=xlBook.Worksheets (« Кастинг »)

'установить видимость
xlApp.Visible=False

'Отобразить строки и столбцы диапазона.
row_min=xlSheet.UsedRange.Row
row_max=row_min + xlSheet.UsedRange.Rows.Count - 1
col_min=xlSheet.UsedRange.Column
col_max=col_min + xlSheet.UsedRange.Columns.Count - 1


'введите данные
xlSheet.cells (row_max + 1, col_min) .Value=ComboBox1.Text

xlSheet.cells (row_max + 1, col_min + 1) .Value=ComboBox3.Text

xlSheet.cells (row_max + 1, col_min + 2) .Value=TextBox3.Text

xlSheet.cells (row_max + 1 , col_min + 3) .Value=TextBox4.Text

xlSheet.cells (row_max + 1, col_min + 4) .Value=TextBox1.Text

xlSheet.cells (row_max + 1, col_min + 5) .Value=TextBox2.Text

xlSheet.cells (row_max + 1, col_min + 6 ) .Value=ComboBox2.Text

xlSheet.cells (row_max + 1, col_min + 7) .Value=TextBox5.Text

xlSheet.cells (row_max + 1, col_min + 8) .Value=TextBox6.Text

xlSheet.cells (row_max + 1, col_min + 9) .Value=ComboBox4.Text

xlSheet.Hyperlinks.Add (xlSheet.cells (row_max + 1, col_min + 10), TextBox7.Text)

xlSheet.Hyperlinks.Add (xlSheet.cells (row_max + 1, col_min + 11), TextBox8.Text)

xlSheet.Hyperlinks.Add (xlSheet.cells (row_max + 1, col_min + 12), TextBox9.Text)

'сохранить изменения
xlBook.Save () < br>
> закрыть рабочую группу
xlBook.Close (False)

'закрыть приложение
xlApp.Quit ()

ComboBox1.SelectedIndex=-1

ComboBox2.SelectedIndex=-1

ComboBox3.SelectedIndex=-1

ComboBox4.SelectedIndex=-1

br>

Для каждого элемента управления Как Control In Me.Controls
Если TypeOf (control) является System.Windows.Forms.TextBox Then

control.Text=""

End If
Следующая страница End Sub


> Private Sub Button2_Click (отправитель как объект, e As EventArgs)
Dim objOutlook As Object
Dim objOutlookMsg As Object
objOutlook=CreateObject ("Outlook.Application " )
objOutlookMsg=objOutlook.CreateItem (0)
С objOutlookMsg
.To=""
.Cc="brannon.lockhart @ centuryaluminum.com"
.Subject =« Время простоя и затрат на мобильное оборудование »
.Body =« Это текст сообщения »
. HTMLBody=«Прикрепленная копия« Время простоя и затрат на мобильное оборудование »
.Attachments.Add (« G: Plantwide DataMobile Fleet StatusMobile Equipment Downtime Re portDowntime ReportMobile Equipment Downtime и Cost.xls" )
.Send () 'Let? s go!
End With
objOutlookMsg=Nothing objOutlook=Nothing

End
End Sub

Категории

Добро пожаловать на сайт DraftingCode Q&A (ИТ ответы), где вы можете задавать вопросы и получать ответы от других членов сообщества.

Связанных вопросов не найдено

...