Zugriff auf den Inhalt von 2 Excel File ermöglichen - visual basic .NET
Hallo,
weiß jemand wie ich den Zugriff auf zwei verschiedene Excel Datei ermöglichen, ohne sie zu öffnen??
Grüße
Kaiser
weiß jemand wie ich den Zugriff auf zwei verschiedene Excel Datei ermöglichen, ohne sie zu öffnen??
Grüße
Kaiser
Please also mark the comments that contributed to the solution of the article
Content-ID: 167341
Url: https://administrator.de/contentid/167341
Printed on: September 18, 2024 at 21:09 o'clock
5 Comments
Latest comment
Hallo Kaiser,
wie meinst du das genau?
Vielleicht hilft dir das ja weiter: http://office-tabs.com/download.htm ?
Freundliche Grüße
tmystr
wie meinst du das genau?
Vielleicht hilft dir das ja weiter: http://office-tabs.com/download.htm ?
Freundliche Grüße
tmystr
Hallo Kaiser,
als Ansatz kannst du ja mal das nehmen:
Oder in einem der tausend VB-Foren selbst suchen.
Henning
als Ansatz kannst du ja mal das nehmen:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oExcel As Object = CreateObject("Excel.Application")
Dim oBook As Object = oExcel.Workbooks.Open("d:\test.xls")
Dim oSheet As Object = oBook.Worksheets(1)
'//Lesen der A2 Zelle
Dim cellValue As String = oSheet.Range("A2").Value
'//Wert in A2 Zelle ändern
oSheet.Range("A2").Value = "hallo"
'//Speichern das Excel Dokument
oBook.SaveAs("d:\test2.xls", True)
oExcel.Quit()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'//Word Anwendung erstellen
Dim oWord As Word.Application = CreateObject("Word.Application")
'//Neues Word Dokument erstellen
Dim oDoc As Word.Document = oWord.Documents.Add()
oWord.Visible = True
'//eine Tabelle 3 x 5 einsetzen und füllen mit spezifischen Daten
Dim r As Integer, c As Integer
Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)
oTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
For c = 1 To 5
oTable.Cell(r, c).Range.Text = "Row" & r & "Col" & c
Next
Next
'make the first row bold and italic
oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True
'//Speichern das Word Dokument
oDoc.SaveAs("d:\hv1.doc", True)
oDoc.Close()
oWord.Application.Quit()
'Dim mm As Word.MailMerge = oDoc.MailMerge
'mm.ViewMailMergeFieldCodes()) ' ViewMailMergeFieldCodes ' OpenDataSource(
End Sub
Oder in einem der tausend VB-Foren selbst suchen.
Henning