Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Sub DruckeParameterMGC()
Dim xlApp As New Excel.Application
Dim xlFile As String = String.Empty
Dim xlBook As Excel.Workbook
Dim xlSheetKanPara As Excel.Worksheet
xlApp.Visible = True
xlFile = "C:\Vorlage\Vorlage.xlsx"
' ---- Excel aufrufen und für DDE vorbereiten
xlBook = xlApp.Workbooks.Open(Filename:=xlFile)
xlSheetKanPara = CType(xlBook.Sheets("KanalParameter"), Worksheet)
' ---------------------------------------------------------------------------------
' ---------------------------------------------------------------------------------
' zuerst die Headerdaten
' ---------------------------------------------------------------------------------
' ---------------------------------------------------------------------------------
xlSheetKanPara.Cells(2, 3).value = lblMwaPrNr.Text
xlSheetKanPara.Cells(2, 6).value() = lblMesid.Text
end sub
|
|
|
// Zelle konvertieren
Dim currentCell As Range = CType(xlSheetKanPara.Cells(2, 3), Range)
// oder alternativ
currentCell = xlSheetKanPara.Range("B3")
// oder auch so
currentCell = xlSheetKanPara.Range(xlSheetKanPara.Cells(2, 3))
// und hier der Zugriff
currentCell.Value2 = "Test"
|
|
|
