Hallo liebe Leut,

ich hätt gern mal ein Problem. Bei mir lässt sich Excel nicht richtig einbinden? Ich
versuche folgenden Code aber VB ist immer an irgendwas am nörgeln?


Option Explicit On
Option Strict Off

Public Class Form1

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click

Dim xls_Appl As Excel.Application
Dim xls_Mappe As Excel.Workbook
Dim xls_Blatt As Excel.Worksheet
Dim xls_Bereich As Excel.Range

xls_Appl = New Excel.Application()
xls_Appl.Visible = True

xls_Mappe = xls_Appl.Workbooks.Open("C:\Mappe1.xls")
xls_Blatt = xls_Mappe.Worksheets(2)
xls_Blatt.Select()
xls_Bereich = xls_Blatt.Range("B13:H13")
xls_Bereich.Select()

xls_Bereich.Insert(Shift:=Excel.XlInsertShiftDirection.xlShiftDown)

xls_Mappe.Save()
xls_Mappe.Close()
xls_Appl.Quit()


End Sub
End Class


Es fängt damit schon an, dass VB „- New Excel.Application() -„ als Fehler ausgibt. Erst dachte ich daran, dass
es an dem fehlenden Verweis hängt? Aber nach einbinden mehrerer Verweise, von
dem ich nicht genau weiß welche den jetzt eigentlich rein muss, funkst es immer
noch nicht. Also
habe ich „New Excel.Application() „durch „CreateObject("Excel.Application")”ersätzt.Sieheda, esfunkst!


Aber
leider habe ich überhaupt keine Ahnung warum es nicht funktioniert hat und mit
Create schon? Das würde ich schon gerne wissen!!


Aber damit ist das Problem noch nicht
gelöst den VB hat immer noch ein Fehler gefunden. Ich jedoch nicht??


Bitte um Aufklärung J


Danke schon mal


jacques

*Topic verschoben*

Falsches Unterforum... gehört in Grundlagen... VBA ist in Excel selber...

Leider hat ...

FloFuchs schrieb:

Imports Microsoft.Office.Interop

nichts gebracht. Ich habe auch mal die Problem Zeile

Jacques72V schrieb:

xls_Bereich.Insert(Shift:=Excel.XlInsertShiftDirection.xlShiftDown)

weggelassen aber bekomme auch nur Fehler Meldung

FloFuchs schrieb:

Option Strict On

Habe ich nicht verstanden? was meinst du damit?
und Leider schreibt mir Paradise:
Achtung! Dieses Thema wurde als erledigt markiert. Bitte erstelle ggf. ein neues Thema.
Wie kann ich mein Thema denn wieder aktivieren?
Offensichtlich war es noch nie Online?

schau dir das an:
support.microsoft.com/kb/301982/de
codeproject.com/Articles/19840/Export-to-Excel-using-VB-Net

Hallo liebe Leut,



ich hätt gern mal ein Problem. Bei mir lässt sich Excel nicht richtig einbinden? Ich

versuche folgenden Code aber VB ist immer an irgendwas am nörgeln?





Option Explicit On

Option Strict Off



Public Class Form1



PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click



Dim xls_Appl As Excel.Application

Dim xls_Mappe As Excel.Workbook

Dim xls_Blatt As Excel.Worksheet

Dim xls_Bereich As Excel.Range



xls_Appl = New Excel.Application()

xls_Appl.Visible = True



xls_Mappe = xls_Appl.Workbooks.Open("C:\Mappe1.xls")

xls_Blatt = xls_Mappe.Worksheets(2)

xls_Blatt.Select()

xls_Bereich = xls_Blatt.Range("B13:H13")

xls_Bereich.Select()



xls_Bereich.Insert(Shift:=Excel.XlInsertShiftDirection.xlShiftDown)



xls_Mappe.Save()

xls_Mappe.Close()

xls_Appl.Quit()





End Sub

End Class





Es fängt damit schon an, dass VB „- New Excel.Application() -„ als Fehler ausgibt. Erst dachte ich daran, dass

es an dem fehlenden Verweis hängt? Aber nach einbinden mehrerer Verweise, von

dem ich nicht genau weiß welche den jetzt eigentlich rein muss, funkst es immer

noch nicht. Also

habe ich „New Excel.Application() „durch „CreateObject("Excel.Application")”ersätzt.Sieheda, esfunkst!





Aber

leider habe ich überhaupt keine Ahnung warum es nicht funktioniert hat und mit

Create schon? Das würde ich schon gerne wissen!!





Aber damit ist das Problem noch nicht

gelöst den VB hat immer noch ein Fehler gefunden. Ich jedoch nicht??





Bitte um Aufklärung J





Danke schon mal





jacques



Donnerstag, 9. August 2012, 19:59

Von FloFuchs
Visual Basic Quellcode





1
2
3
4
5




Option Strict On 'Bitte anlassen... das hilft dir bei Fehlern, bzw diese früh zu beheben... wenns meckert... dann hast was falsch gemacht
Imports Microsoft.Office.Interop
Public Class Form1
Dim xlApp As New Excel.Application
Dim xlWB As Excel.Workbook = xlApp.Workbooks.Open("DerPadMitDatei")


Leider hat das auch nicht funktioniert was FloFuchs mir geraten hat?
und wenn ich die Zeile "xls_Bereich.Insert(Shift:=Excel.XlInsertShiftDirection.xlShiftDown)" Herauslasse funkst es auch nicht ?

kann mir jemand helfen?
Sorry für die seltsame Aufmache des Threats, aber ich habe Ihn bevor er Online ging bereits als Erledigt markiert! Ich muss noch lernen auch VB-Paradise usen

jacques