Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel inplace auf VB Form erstellen

Mitglied: raziel

raziel (Level 1) - Jetzt verbinden

13.07.2011, aktualisiert 13:57 Uhr, 3286 Aufrufe, 4 Kommentare

Ich möchte auf einem Form über VB2008 eine Art Excel inplace erstellen (ähnlich SAP). Nun Habe ich schon etwas vorbereitet, jedoch gibt mir VB einen deklarierungsfehler bei den "ActiveWorkbook" und "ActiveSheet". Auch einen Operaatorenfehler bei "If Err() < 0 ". Ich dachte die Befehle sollten doch von dem Verweis der Excel Library übenommen werden. Weiss jemand dazu rat?

01.
 
02.
Public Class frmExcelInplaceWdb 
03.
 
04.
    Public oExl As New Microsoft.Office.Interop.Excel.Application 
05.
 
06.
    Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String) 
07.
        Dim A As Object 
08.
        Dim Zeile As Long, Spalte As Integer 
09.
        ' Workbook öffnen 
10.
        On Error Resume Next 
11.
        oExl.Workbooks.Open(sWSName) 
12.
        If Err() <= 0 Then 
13.
            MsgBox("Exceldatei konnte nicht gefunden oder geöffnet werden.", _ 
14.
              vbExclamation, "Dateifehler") 
15.
            Exit Sub 
16.
        End If 
17.
 
18.
        On Error GoTo 0 
19.
 
20.
        ' Tabelle selektieren: 
21.
        ActiveWorkBook.Sheets(sTabName).Select() 
22.
 
23.
        ' Zelle lesen 
24.
        A = ActiveSheet.Cells(Zeile, Spalte).Value 
25.
 
26.
        ' Zelle schreiben 
27.
        ActiveSheet.Cells(Zeile, Spalte).Value = "Test" 
28.
 
29.
        ' alles schließen 
30.
        ActiveWorkbook.Close(SaveChanges:=True) 
31.
        oExl.Quit() 
32.
        oExl = Nothing 
33.
    End Sub 
34.
 
35.
 
36.
End Class 
37.
 
Mitglied: SlainteMhath
13.07.2011 um 13:25 Uhr
Moin,

[...] VB2008 [...]
Du meinst sicher VB.NET bzw Visual Studio 2008

[...] deklarierungsfehler bei den "ActiveWorkbook" und "ActiveSheet" [...]
Versuch doch mal ein oExl. davor zustellen

If Err() < 0
Das ist so auch falsch. Err() ist ein Array, das kannst Du nicht gegen einen Integer prüfen. Abgesehen davon erledigt mal das Errorhandling in VB.NET mit Try...Catch.

Und, bitte, Benutze die CODE tags, siehe "Formatierungshilfe" beim Posten

lg,
Slainte
Bitte warten ..
Mitglied: 76109
13.07.2011 um 13:42 Uhr
Eventuell hilft Dir das ein wenig weiter?
01.
Public Class frmExcelInplaceWdb 
02.
 
03.
Public oExl As New Microsoft.Office.Interop.Excel.Application 
04.
 
05.
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String) 
06.
Dim A As Variant, Wkb As Object, Wks As Object 
07.
Dim Zeile As Long, Spalte As Long 
08.
 
09.
On Error Resume Next 
10.
 
11.
Set Wkb = oExl.Workbooks.Open(sWSName) 
12.
 
13.
Set Wks = Wkb.Sheets(sTabName) 
14.
 
15.
'If oExl.Err.Number <> 0 Then MsgBox "Fehler":  Exit Sub 
16.
 
17.
'If Wks Is Nothing Then MsgBox "Fehler":  Exit Sub 
18.
 
19.
On Error GoTo 0 
20.
 
21.
A = Wks.Cells(Zeile, Spalte).Value 
22.
 
23.
Wks.Cells(Zeile, Spalte).Value = "Test" 
24.
 
25.
Wkb.Close True 
26.
 
27.
oExl.Quit 
28.
 
29.
End Sub 
30.
 
31.
End Class
Gruß Dieter
Bitte warten ..
Mitglied: mathe172
13.07.2011 um 13:50 Uhr
Hallo,

wenn ich dich richtig verstehe, hast du einen Verweis in den Projekteigenschaften gemacht, oder?
Hast du den Namensraum aber Importiert (direkt unter den Verweises oder am Anfang einer Code-Datei)

MfG,
Mathe172
Bitte warten ..
Mitglied: raziel
13.07.2011 um 15:40 Uhr
@Didi: Hallo DidiDanke für dieses Script, es ist fehlerlos. Leider kann ich daraus nicht ablesen wie ich jetzt ein bestimmtes File öffne.
@Mathe: Verweis zu was? Dito Namespace ;)

Gruss
raziel
Bitte warten ..
Ähnliche Inhalte
Visual Studio

VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld)

gelöst Frage von PixL86Visual Studio7 Kommentare

Hallo Admins, sitze aktuell an einem kleinen Problem. Per VB wird das Tool NCFTP(.exe) gestartet, NCFTP arbeitet allerdings im ...

Visual Studio

(VB) Form-Elemente nicht wie im Entwurf angeordnet

gelöst Frage von MrCountVisual Studio2 Kommentare

Servus zusammen, ich habe ein sehr kurioses Problem: In Visual Studio Express 2015 habe ich ein VB-Projekt erstellt. In ...

C und C++

Erstellen einer Windows Forms-Anwendung

gelöst Frage von KnuefiC und C++5 Kommentare

Hallo und guten Tag zusammen, da ich sehr wenig Ahnung von Windows Forms Anwendungen habe und noch blutiger Anfänger ...

Batch & Shell

Kontrolle einer Excel Datei in Form eines Scripts

Frage von ProkuratBatch & Shell3 Kommentare

Hallo zusammen. Ich stehe momentan vor dem Problem das ich ca. 150 Excel Dateien kontrollieren soll, ob der dort ...

Neue Wissensbeiträge
Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 StundeWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 5 StundeniOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 1 TagWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 1 TagSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Heiß diskutierte Inhalte
C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++28 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL19 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...

Hyper-V
HyperV DC + DNS + AC
gelöst Frage von HardstylesHyper-V16 Kommentare

Hallo kann mir jemand sagen wieso meine Domänen Computer kein Internetzugang erhalten? Ich hab hier ein Server wo die ...